vba - 使用 VBA 将 Excel 工作表保存在当前目录中

Question

我已经在 vba Excel 中创建了一个工作表。我想将其保存在当前目录中，但不是绝对路径，这样，当在其他地方执行时，就不会出现问题。

有人可以帮忙吗？

Answer 1

我不清楚您的具体情况需要什么，但以下内容可能会帮助您开始。这里的关键是使用 ThisWorkbook.Path 获取相对文件路径:

Sub SaveToRelativePath()
    Dim relativePath As String
    relativePath = ThisWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    ActiveWorkbook.SaveAs Filename:=relativePath
End Sub