我有一个宏,该宏使用内部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文档。是否有适用于所有用户的默认目录/路径?
可以使用以下方法检索到当前登录用户的根用户文件夹的完整路径:
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] 删除。
我来说两句