如题所述
先定义路径\x0d\x0a1.当前路径:\x0d\x0apath = Application.ThisWorkbook.path\x0d\x0a然后,打开时,加入其余路径,和文件名。\x0d\x0aWorkbooks.Open filename:= _\x0d\x0a path & "\model\" & "book1.xls", Notify:=False \x0d\x0a2.同级别文件夹路径:\x0d\x0aSub hjs111()\x0d\x0at = ThisWorkbook.path '当前文件的路径\x0d\x0aa = Split(t, "\") '以 \ 为分割,把t 保存为数组a\x0d\x0apath0= Replace(t, a(UBound(a)), "") '把字符串t中的字符串(a(UBound(a))替换为空。\x0d\x0a 'path0 & "\B\" & "book1.xls" 这下明白了吧。\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a例如:若 t= C:\Documents and Settings\HackEr\桌面\x0d\x0a 则 数组a即为 元素分别为 C: Documents and Settings HackEr 桌面 的数组\x0d\x0a a(UBound(a) 为a(3)即 桌面,UBound(a)为 a数组的上界 3 \x0d\x0a Replace(t, a(UBound(a)), "") 即为 把t 中的第四个元素 桌面 替换 为空。
温馨提示:答案为网友推荐,仅供参考