Question

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

在代码中，它表示＆＃34; MyComputerName＆＃34;是我的计算机名称，我猜它是因为我的同事计算机名称不同，所以它无法在她的计算机上找到路径。

有没有办法解决这个问题？所以我们都可以使用这个宏并将其保存到共享文件夹中？

帮助!!!

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...

vba另存为pdf到不同计算机的共享文件夹中

1 个答案: