小弟想在mac 的excel 2016上建一個按鈕,希望按下後可以開啟同目錄下DM資料夾的一張test.pdf的檔
在window 的office 中我用下列程式可以ok
Sub 按鈕1_Click()
fname = ThisWorkbook.Path & "\DM\test.pdf"
ActiveWorkbook.FollowHyperlink fname, , True
End Sub
但到 MAC 的excel中無法成功
感謝版上SANRE大大有協助,提供程式碼如下:
n$ = MacScript("set userName to short user name of (system info)" & vbNewLine & "return userName")
ActiveWorkbook.FollowHyperlink "Macintosh HD:Users:" & n$ & ":Desktop:DM:test.pdf"
S大在他的虛擬環境下可以順利開啟test.pdf
可是同樣的程式我完整貼上我的電腦後,在我的MAC中卻出現找不到TEST.PDF檔案….
請問我該怎麼修正??
我也試過直接給路徑
ActiveWorkbook.FollowHyperlink "Macintosh HD:Users:使用者名稱:Desktop:DM:test.pdf"
也是一樣找不到檔案…
請各位高手協助,
感恩~~謝謝
找到原因了,重點在 file:// ,2016 一定要加上,不然會找不到檔案
就算路徑是對的,沒加上一樣打不開

檔案要放在桌面,如果是別的位置,需要取得使用者名稱那段程式碼配合
請改成這樣 excel 2016 確定可開
ActiveWorkbook.FollowHyperlink "file://" & ThisWorkbook.Path & "/dm/test.pdf"


mac os vba 就算語法是對的,也會有問題,2011 正常的指令,換到2016就不正常
還 google 不到解決方法,只能自己試,有夠麻煩的
感謝S大的回覆
小弟人在南部,過2天回去再試試結果再跟您回報
萬分感謝

補充另一個偷吃步(2011、2016)都可以執行

一、A1 插入 超連結
二、A2 插入 超連結
三、然後把A欄隱藏(眼不見為淨)


按鈕1
Sub Macro1()
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

按鈕2
Sub Macro2()
Range("A2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

會想到這個方法
實在是因為MAC VBA 太麻煩了,我在2011 可正常執行的,到2016就不正常
連MAC SCRIPT 語法也都試過了,一大堆相容性問題
看來EXCEL VBA FOR MAC,還拿來寫一些加、減、乘、除,的程式就好
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!