VBAでの文字列へのパスの追加

Question

Excel VBAでFileSystemObjectを使用して出力ファイルを作成していますが、FileDialogボックスを使用して出力を保存する場所をユーザーが選択できるようにします。 Excelファイルの種類である：ここで

は、問題は、コードの「種類として保存」である

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) 

、私のコードのsのスニペットです。

誰かが私を助けることができますか？

Answer 1

フィルタをmsoFileDialogSaveAsに設定する代わりに、ファイルパスを参照するのに、msoFileDialogFilePickerを使用することはできません。フィルタを設定できるようになりました。

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