Question

现在，我有一个用于Word的VBA宏，它解析某个字体的文档，并将所选类型的所有字体输出到文本文件。

我打开文本文件的硬编码行是这样的：

Open "C:\Documents and Settings\Output.txt" For Output As #n

我可以更改此设置，以便提示用户在宏中此时输入文件路径吗？类似的东西：

Open (PROMPTS USER FOR FILE PATH HERE) For Output As #n

对不起，如果这看起来微不足道。我是VBA编码的新手。

Answer 1

两种方式：

<强>简单

Dim path As String

path = InputBox("Enter a file path", "Title Here")
Open path For Output As #1
Close #1

使用文件选择器

Dim path As String

With Application.FileDialog(msoFileDialogOpen)
    .Show
    If .SelectedItems.Count = 1 Then
        path = .SelectedItems(1)
    End If
End With

If path <> "" Then
    Open path For Output As #n
End If

Answer 2

您正在寻找InputBox功能。

Open InputBox("Enter a file path", "Title", "default path") For Output As #n

将硬编码文件路径更改为VBA中提示的用户？

2 个答案: