VBA per ChatGPT

Leider kann ChatGPT nicht direkt VBA-Code oder Funktionen schreiben. Es kann jedoch über allgemeine Konzepte und Syntax von VBA informieren und Anleitungen zur Programmierung in VBA bereitstellen.

ChatGPT über sich selbst

Allerdings erzeugt ChatGPT brauchbaren Code (sogar mit deutschen Kommentaren) , z.B. hier bei der Frage nach einer Funktion in VBA für Access zur Auswahl einer Datei, mit einer Endung passend zum Parameter.

Function GetFileNameWithExtension(ByVal strExtension As String) As String
    Dim fd As FileDialog
    Dim strFile As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Filters.Clear
    fd.Filters.Add "Selected Files", "*." & strExtension
    If fd.Show = -1 Then
        GetFileNameWithExtension = fd.SelectedItems(1)
    Else
        GetFileNameWithExtension = ""
    End If
End Function

Sie können die Funktion wie folgt verwenden:

strFile = GetFileNameWithExtension("txt")
If strFile <> "" Then
    'Ausgewählte Datei verarbeiten
End If