하드 코딩 된 파일 경로를 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