先定義路徑

1.當前路徑：

path = Application.ThisWorkbook.path

然後，開啟時，加入其餘路徑，和檔名。

Workbooks.Open filename:= _

path & "\model\" & "book1.xls", Notify:=False

2.同級別資料夾路徑：

Sub hjs111()

t = ThisWorkbook.path "當前檔案的路徑

a = Split(t, "\") "以 \ 為分割，把t 儲存為陣列a

path0= Replace(t, a(UBound(a)), "") "把字串t中的字串（a(UBound(a)）替換為空。

"path0 & "\B\" & "book1.xls" 這下明白了吧。

End Sub

例如：若 t= C:\Documents and Settings\HackEr\桌面

則 陣列a即為 元素分別為 C: Documents and Settings HackEr 桌面 的陣列

a(UBound(a) 為a（3）即 桌面，UBound(a)為 a陣列的上界 3

Replace(t, a(UBound(a)), "") 即為 把t 中的第四個元素 桌面 替換 為空。