我是想问，有一个文件夹，如AA，AA文件夹下有两个子文件夹，如A、B文件夹，excel文件放在A文件夹中，而要调用的资料在B文件夹内，这个路径如何设置？以便AA文件夹移到其它地方时，程序能正常使用。
你都用VBA了，怎么还问这么种问题啊。。。thisworkbook.path就是A文件夹的路径。B文件夹的路径就用文本函数把A截取掉连上B或者把thisworkbook.path中的A替换成B都可以。。。。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-01-30
代码如下：
Sub s()
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = "d:\test\" '在这里输入要打开的工作簿的完整路径
fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"): Exit Sub
'在此添加操作代码
wb.Close True '如果无需保存，本参数用false
End Sub
Sub s()
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = "d:\test\" '在这里输入要打开的工作簿的完整路径
fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"): Exit Sub
'在此添加操作代码
wb.Close True '如果无需保存，本参数用false
End Sub
第2个回答 推荐于2018-01-17
先定义路径
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 中的第四个元素 桌面 替换 为空。本回答被网友采纳
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 中的第四个元素 桌面 替换 为空。本回答被网友采纳
第3个回答 2011-01-16
笨办法！直接录制宏吧。
