Изменить жестко закодированный путь к файлу по запросу пользователя в VBA?

Question

Сейчас у меня есть макрос VBA для Word, который анализирует документ на наличие определенного шрифта и выводит весь текст выбранного шрифта в текстовый файл.

Жестко закодированная строка, которую я открываю в текстовом файле, выглядит примерно так:

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

Два способа:

Simple

Dim path As String

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

С File Chooser

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