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

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