在VBA中添加一個字符串的路徑

Question

我在Excel VBA中使用FileSystemObject創建一個輸出文件，我想讓用戶使用FileDialog框來選擇要保存輸出的位置。

這裏是我的代碼A S片斷，

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) 

的問題是代碼的「保存類型」爲Excel文件類型。

任何人都可以幫助我嗎？

Answer 1

您無法將篩選器設置爲msoFileDialogSaveAs而不是該瀏覽器來瀏覽文件路徑，請使用msoFileDialogFilePicker。現在你可以設置過濾器。

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