Question

我在Excel VBA中使用FileSystemObject创建输出文件，我想让用户使用 FileDialog 框选择保存输出的位置。

以下是我的代码的片段，

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"

在VBA中添加字符串的路径

1 个答案: