Hinzufügen eines Pfades zu einer Zeichenfolge in VBA

Question

Ich erstelle eine Ausgabedatei unter Verwendung FileSystemObject in Excel VBA, und ich möchte den Benutzer ermöglichen, den Speicherort zu wählen, wo seine Ausgabe mit einem FileDialog Feld zu speichern.

Hier ist ein s-Schnipsel meines Codes,

Dim objFSO As FileSystemObject 
Dim tsStream As TextStream 
Dim strFilePath as String 
Dim FD as FileDialog 

Set FD = Application.FileDialog(msoFileDialogSaveAs) 

With FD 
    .AllowMultiSelect = False 
    If .Show = -1 Then 
     For Each i in .SelectedItems 
      strFilePath = i 
     Next i 
    Else 

    End If 
End With 
Set FD = Nothing 

Set objFSO = New FileSystemObject 
Set tsStream = objFSO.CreateTextFile(strFilePath &".txt", True) 

Das Problem der Code der ist "als Typ speichern:" Excel-Dateitypen ist.

Kann mir jemand helfen?

Answer 1

Sie können Filter nicht auf msoFileDialogSaveAs setzen, anstatt zu einem Dateipfad zu navigieren, verwenden Sie . Jetzt können Sie Filter einstellen.

Set FD = Application.FileDialog(msoFileDialogFilePicker) 
FD.Filters.Clear 
FD.Filters.Add "Text file", "*.txt"