매크로로 만든 파일의 위치를 ​​설정하는 방법

Question

매크로로 Excel 파일을 텍스트 파일로 변환하고 있으며 텍스트 파일의 위치를 ​​Excel 워크 시트의 위치와 동일한 폴더로 지정합니다.

내 코드는 다음과 같습니다

Dim strPath As String 
strPath = "MyFileName.dat" 
Dim fnum As Integer 
fnum = FreeFile() 
Open strPath For Output As #fnum 

'my code 

Close #fnum 

항상 실행 문서로 이동합니다. 나는 "../MyFileName.dat"를 시도하고 Excel 워크 시트를 넣으려고 시도한 위치 중 일부와 함께 작업했지만 전부는 아니 었습니다.

이 작업을 수행하는 올바른 방법은 무엇입니까? 고맙습니다.

Answer 1

문제의 통합 문서가 ActiveWorkbook이라고 가정하면이 방법이 유용합니다. 그것은 FullName와 통합 문서의 전체 경로를 얻을 수 및 통합 문서의에 대한 데이터 파일의 이름을 subsitutes :하지만주의의

Sub test() 
Dim wb As Excel.Workbook 
Dim strPath As String 

Set wb = ActiveWorkbook 
strPath = Replace(wb.FullName, wb.Name, "MyFileName.dat") 
Dim fnum As Integer 
fnum = FreeFile() 
Open strPath For Output As #fnum 

'my code 

Close #fnum 
End Sub