Как установить местоположение файла, созданного макросом

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 и заменяет имя файла данных для книги:

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