如何将文件保存到使用vba的原始文件的位置？

我正在写一个简单的macros来做以下事情：1.删除所有格式2.取消隐藏所有隐藏的列3.保留四个指定的标签：“Forms”，“Fields”，“DataDictionaries”和“DataDictionaryEntries”4.保存在原始文件所在位置下的文件（带有这四个选项卡）。

这是我的代码：

Sub removeformat() Dim sheetlist As Variant Dim sheet As Variant sheetlist = Array("Forms", "Fields", "DataDictionaries", "DataDictionaryEntries") For Each sheet In sheetlist Sheets(sheet).Activate Sheets(sheet).Cells.Select Selection.ClearFormats Sheets(sheet).Cells(1, 1).Select Sheets(sheet).Columns("A:IV").Hidden = False Next sheet Sheets(Array("Forms", "Fields", "DataDictionaries", "DataDictionaryEntries")).Copy ActiveWorkbook.SaveAs Filename:="File to Upload", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close End Sub 

问题是第四步。 它不会保存到原始文件位置，而是保存到Excel默认位置。 你们能帮我解决这个问题吗？ 非常感谢！

Answer 1

如果要保存在与ActiveWorkbook相同的位置，则由ActiveWorkBook.Path提供

 ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "File to Upload", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False