2016-08-20 167 views
3

目前我救了我的Excel与此命令文件:如何与VBA保存当前位置

ActiveWorkbook.SaveAs Filename:="pleasework", FileFormat:=52 

当它保存它,这样可以节省它的文档。

我想将它保存在宏的当前位置(文件的激活位置)。
有什么建议吗?它更改为:

Filename:="C:/pleasework" 

都不行......

感谢

回答

1

给下面的一个尝试

... 
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\pleasework", FileFormat:=52 
... 

此外,您可能首先要检查是否Application.ActiveWorkbook.Path返回一个有效的路径,以便在情况下,你当前打开的文件中尚未保存你会不会尝试将其保存到一个无效的路径。

+0

在同一个地方仍在保存 - 文件..任何想法,为什么? – Dave

+0

嗯,我只是测试它,它的工作,据我了解的问题。你有一个简单的工作簿,里面有宏还是某种外接程序? – DAXaholic

+0

对不起,延迟回复。我有一个简单的工作簿,其中包含宏。但是当我用你的方式保存它时,它仍然保存在文档中... – Dave

0

试试这个

Option Explicit 
Sub Book_Path() 

    Debug.Print ThisWorkbook.Path 

    ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & "pleasework", FileFormat:=52 

End Sub 
+0

我会尽快尝试。你能给我一个ThisWorkbook.Path的例子吗? – Dave