VBA另存为PDF到另一台计算机的共享文件夹

Question

嗨，我编写了一个代码，将excel表作为PDF文件保存到我们公司的共享文件夹（投递箱）中。 我意识到当我的同事尝试使用该宏时，由于文件的保存路径，它无法正常工作。

在代码中，它说“ MyComputerName”是我的计算机名称，我猜这是因为我的同事计算机名称不同，所以无法在她的计算机上找到路径。

有办法解决吗？ 所以我们俩都可以使用此宏并将其保存到共享文件夹中？

救命！！！

Sub SaveAsPDF()

' FormatName
ActiveSheet.Name = "#" & ActiveSheet.Range("F6").Value & " " & ActiveSheet.Range("F4").Value

' saveAsPDF Macro   
ActiveSheet.ExportAsFixedFormat Type:=xltypepdf, Filename:= _
  "C:\Users\MyComputerName\Dropbox\Team Folder\PACKING LIST\201804\" & "PACKING LIST_" & ActiveSheet.Name _
    , quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
End Sub

Answer 1

尝试将以下行添加到代码的开头：

Dim username As String
username = Environ$("username")

然后您的路径应该是：

"C:\Users\" & username & "\Dropbox\...

要使年/月动态（假设基于今天的日期），您的链接可以是：

...LIST\" & Format(Now(), "yyyymm") & "\PACKING LIST...