将excel表格作为PDF存储在桌面上

我有以下代码来将工作表存储为PDF。 我想控制它的存储位置，即他们的桌面。 可以有人给我一个小费如何做到这一点。 谢谢！

Sub SaveAsPDF() Dim i As Long Dim PdfFile As String, Title As String ' Not sure for what the Title is Title = Range("B1") ' Define PDF filename PdfFile = Range("F3") i = InStrRev(PdfFile, ".") If i > 1 Then PdfFile = Left(PdfFile, i - 1) PdfFile = PdfFile & ".pdf" ' Export activesheet as PDF With ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub 

Answer 1

Rory的答案的替代scheme可能是使用Windows环境variables“userprofile”

 PdfFile = Environ("userprofile") & "\desktop\" & PdfFile & ".pdf" 

Answer 2

如果您始终想要在没有任何用户干预的情况下保存到桌面：

 PdfFile = createobject("Wscript.Shell").Specialfolders("Desktop") & "\" & PdfFile & ".pdf"