Excel VBA:如何使用唯一的用户名或保存导出pdf宏的位置

屠夫

我有一个宏,该宏使用内部Excel方法ExportAsFixedFormat打印以将工作表打印为pdf,并使用唯一的文件名结构将文档保存到桌面。

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Users\UNIQUE_USER\Desktop\" & Right(Range("D11"), 8) & "_ALL_SALES.pdf", _
     Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

这对我没问题。但是,如果我想在工作中与其他用户共享此工作表(而不要求他们重写宏),则可以使用其唯一的用户名或目录来保存pdf文档。是否有适用于所有用户的默认目录/路径?

hBy2Py

可以使用以下方法检索到当前登录用户的根用户文件夹的完整路径:

Environ("USERPROFILE")

要将文件保存到用户的桌面(如已完成),可以使用:

Environ("USERPROFILE") & "\Desktop\" & ...

对于您提供的特定代码

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Environ("USERPROFILE") & "\Desktop\" & Right(Range("D11"), 8) & "_ALL_SALES.pdf", _
     Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章