VBA 靈活的文件地址打開文件

Question

我在 flash 驅動器上有一個宏，我想在不同的計算機上運行它。 運行后，此宏將打開位於 flash 驅動器中宏自身文件夾中的文件。

Set Part = swApp.OpenDoc6("F:\RSO_Regal.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.OpenDoc6("RSO_Regal.SLDASM", 2, 0, "", longstatus, longwarnings)

我的問題是，每次我將 flash 驅動器連接到新計算機或復制新目錄中的文件夾時，我都必須在宏中編輯文件地址。 這個問題有解決辦法嗎？

這篇文章中有針對 Microsoft Excel 的此問題的解決方案。 在不調用文件路徑的情況下打開文件但是，我的宏是用於 SolidWorks 軟件的，它會打開一個 *.SLDASM 格式的文件。

Answer 1

使用GetCurrentMacroPathName獲取宏路徑並使用它打開文件。 檢查下面更改的行。

設置部分 = swApp.OpenDoc6( Left(swApp.GetCurrentMacroPathName, InStrRev(swApp.GetCurrentMacroPathName, "")) & "RSO_Regal.SLDASM" , 2, 0, "", longstatus, longwarnings)