Excel VBA宏将pdf保存到特定文件路径

试图创建一个excel宏按钮来创建和保存一系列数据的pdf，宏在我的电脑上运行没有问题

但是我需要共享excel工作簿，我们不使用网络，我们使用Dropbox，因此我的文件路径通过我的用户名保存：

“C:\Users\Username\…Dropbox

我可以删除我的名字以便打开文件的人可以使用宏吗

这是我迄今为止创建的代码，虽然它仍然在我的笔记本电脑上工作，但它不适用于其他用户：

Sub Create_PTC_pdf()
    Range("A76:G137").Select
    ActiveSheet.PageSetup.PrintArea = "$A$76:$G$137"
    ChDir "C:\Users\" & Range("F168").Text & "\Dropbox"
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:= "C:\Users\" & Range("F168").Text & "\Dropbox " & Format(Date, "yyyy mm dd") & Range("O142").Text & ".pdf", _
        Quality:=xlQualityStandard, _ 
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

范围（“F168”）。文本

引用一个单元格，该单元格提取工作簿中任何人的用户名。

尝试以下操作：

Sub Create_PTC_pdf()

    Dim sPath As String

    sPath = Environ("userprofile") & "\Dropbox\"

    With ActiveSheet
        .PageSetup.PrintArea = "$A$76:$G$137"
        .ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sPath & Format(Date, "yyyy mm dd") & .Range("O142").Text & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    End With

End Sub

---

也许

“C:\Users\”环境（“user”）和“\dropbox”

谢谢。我必须将其声明为字符串吗？我尝试了“C:\Users\”环境（“Username”）和“\dropbox”。但没有用。它是user还是Username？我还尝试在单元格中引用用户名：“C:\Users\”范围（“F168”）。Text&"\Dropbox…但当我让其他人打开工作簿并运行宏时，这也不起作用。任何基本的字符串连接技术都可以。在

filename:=

参数中使用，或分配给字符串变量并使用它。打开cmd提示符，键入

set

，然后按enter键。所有环境变量都将显示。Indeed、 这些指导方针是为了帮助我们帮助你。