Excel 2010 VBA：使用单元格中的值保存文件以确定路径和文件名

Question

我正在尝试编写一些代码，将几个选项卡保存为在excell中的文件指定的文件夹中的pdf文档。 我希望文档中的单元格指示保存此文件的位置。 我不确定这是否可能，但如果有任何帮助会很好！ 我目前在代码的保存过程中收到运行时错误“1004”。

是的，我确实创建了正在引用的文件夹。

Sub asdf()

Dim Fname As String
Dim Fpath As String
Dim YrMth As String

Fname = Sheets("Sheet1").Range("A1").Text

YrMth = Sheets("Sheet1").Range("A2").Text & "\" & Sheets("Sheet1").Range("A3").Text

Fpath = "C:\Documents and Settings\My Documents\" & YrMth & "\Group\" & Fname & ".pdf"

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet4")).Select

Application.DisplayAlerts = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Fpath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

结束子

Answer 1

您的代码适用于我，但不适用于您指定的路径。

声明一个新的字符串变量：

dim myDocsPath as String

获取路径使用：

myDocsPath = Environ$("USERPROFILE") & "\My Documents\"

然后将Fpath的定义更改为：

Fpath = myDocsPath & YrMth & "\Group\" & Fname & ".pdf"

如果我将myDocsPath的结尾myDocsPath为& "\\My foo Documents\\"我会得到相同的1004错误。

Answer 2

尝试在代码中替换行

Fpath = "C:\Documents and Settings\My Documents\" & YrMth & "\Group\" & Fname & ".pdf"

同

Dim WshShell As Object
Dim MyDocsFolder As String
Set WshShell = CreateObject("WScript.Shell")
MyDocsFolder = WshShell.SpecialFolders("MyDocuments") & "\"

Fpath = MyDocsFolder & YrMth & "\Group\" & Fname & ".pdf"

编辑：此解决方案的核心是：

MyDocsFolder = WshShell.SpecialFolders("MyDocuments") & "\"

它返回“我的文档”的系统路径，与本地系统设置（如“我的文档”文件夹的语言或非标准位置）无关。 然后它在最后添加一个反斜杠。

如果您向系统询问特殊文件夹而不是在脚本中对此类数据进行硬编码，则它更优雅（并且代码变得更加便携）。

有关VBA中Windows特殊文件夹的更多信息， 请访问https://www.rondebruin.nl/win/s3/win027.htm