excel - 如何设置宏创建的文件的位置

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