Excel VBA代碼 - 從網絡文件夾打開文件 - PC與Mac

Question

我正在嘗試修改代碼以在PC和Mac上運行，並且遇到訪問網絡文件夾上文件的問題。以下是目前適用於PC用戶的代碼。我知道Mac的文件路徑的語法是不同的，但我似乎無法做到。我需要協助我需要做些什麼改變嗎？

Dim filename1 As String 
Dim Path1 As String 
Dim Name1 As String 
Path1 = "\\Spr1rfpfil\groupdata\admin\sales\Database Share\Data Files\Misc Archive\" 
Name1 = "Q4Data.xlsx" 
filename1 = Path1 & Name1 
Workbooks.Open fileName:=filename1 

由於這是我的第一篇文章，請讓我知道我是否應該在將來做不同的事情。

Answer 1

你可以使用類似「Application.OperatingSystem」

這將顯示你的環境，然後進行測試，並設置相應的路徑

Dim filename1 As String: Dim Path1 As String: Dim Name1 As String 

if instr(1, Application.OperatingSystem, "Mac", vbtextcompare) > 0 then 
    Path1 = "/Volumes/Spr1rfpfil/groupdata/admin/sales/Database\ Share/Data\ Files/Misc\ Archive/" ' Replace with Mac path 
Else 
    Path1 = "\\Spr1rfpfil\groupdata\admin\sales\Database Share\Data Files\Misc Archive\" ' Replace with Windows path 
End if 

Name1 = "Q4Data.xlsx" 
filename1 = Path1 & Name1 
Workbooks.Open fileName:=filename1