通过VBA获取另一个打开的工作簿的文件路径

Question

我编写了一个VBA脚本，用于从用户选择的另一个打开文件中收集数据。从Excel文件中获取数据不是问题，但现在我想在与数据来源的文件相同的文件夹中创建一个新文件。

我无法获取数据文件的路径。我怎么能这样做？

通常我会做Application.ThisWorkbook.Path，我想我可以使用另一个文件Application.Workbooks(objWB).Path，但这不起作用。

Answer 1

如果您在users文件中，可以将objWB设置为ActiveWorkbook，然后从那里创建一个新文件

Sub SaveToActiveFolder()

Dim objWB As Workbook
Set objWB = ActiveWorkbook
Dim NewWB As Workbook
Set NewWB = Workbooks.Add

    With NewWB
        .SaveAs Filename:=objWB.Path & "\NewFile1.xlsm"_
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End With

End Sub

然后将创建文件NewFile1.xlsm并将其保存在与第一个文件相同的位置。