Question

我对VBA还是很陌生，因此，感谢您能提供的任何帮助。我的以下代码出了点问题，并且我一直在谷歌搜索一段时间以尝试解决问题。我有一个Excel工作表，我正在尝试使VBA达到： 1.使用Cell C7和C14数据作为文件名创建PDF 2.将此PDF保存到我的本地G驱动器（文件夹VBA工作）。

我的宏完成了OK上方的第1步，但是我的G：\ VBA工作文件夹中没有pdf文件。

有什么想法吗？

一旦执行了此操作，我需要编写代码以遍历数据并一遍又一遍地重复此步骤，但这是下一个任务。

谢谢...

Sub saveaspdftodrive()

    Dim SaveAsStr As String

    SaveAsStr = "G:\VBA work" & ActiveSheet.Range("C7") & ActiveSheet.Range("C14").Value

    ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
        Filename:=SaveAsStr & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas _                                                                                                                              
        :=False, OpenAfterPublish:=True
End Sub

使用VBA将Excel文件另存为pdf到本地驱动器

0 个答案: