Question

excel中如何用vba打开一个相对路径下的资料？

Answer 1

先定义路径
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 中的第四个元素 桌面 替换 为空。