<em>excel</em>中如何用vba打开一个相对路径下的资料

打开excel以下7a686964616fe58685e5aeb9330代码，可以提取其他文件中的表“重量汇总”F520:BV521的数据，其中有选择文件路径的过程，你稍改动也许对你有帮助。。。

Sub 数据提取()
Dim FileName1 As String
Dim FileName As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
FileName1 = Application.ActiveWorkbook.Name
FileName1 = Right(FileName1, Len(FileName1))
FileName = Application.GetOpenFilename(" ( *.xls & *.Steel& *.xlsx),*.xls;*.xls;*.Steel", , " ")
FileName = Right(FileName, Len(FileName))
Windows(FileName1).Activate
Sheets(" Sheet 1").Select
Range("A2").Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Workbooks.Open FileName:=FileName
FileName2 = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Windows(FileName2).Activate
Sheets("重量汇总").Select
Range("F520:BV521").Select
Selection.Copy
Windows(FileName1).Activate
Sheets(" Sheet 1").Select
Range("B2").Select
ActiveSheet.Paste Link:=True
Range("A2").Select
Range("A2") = FileName2
FileName3 = Left(FileName, Len(FileName) - Len(FileName2))
Range("BS2") = FileName3
Windows(FileName2).Close
End Sub查词典
Dict.cn 海词 - 划词释义
已开启划词设置悬停发音即划即查

先定义路径
1.当前路径：
path = Application.ThisWorkbook.path
然后，打开时，加入其余路径，和文件名。
Workbooks.Open filename:= _
path & "\model\" & "book1.xls", Notify:=False
2.同级别文件夹路径：
Sub hjs111()
t = ThisWorkbook.path '当前文件的路e79fa5e98193e78988e69d83337径
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 中的第四个元素 桌面 替换 为空。
绝对路径（假百设度在d盘）:
Dim wordApp As Object
Set wordApp=CreateObject("Word.Application")
wordApp.Documents.Open "d:\xxxx.doc"

相对路径知（假设与此excel在同道一路径下）:
Dim wordApp As Object
Set wordApp=CreateObject("Word.Application")
wordApp.Documents.Open ActiveWorkbook.Path & "\xxxx.doc"
wdApp.Visible = True

打开文件如下：

Workbooks.Open ("C:\对账单\对帐单.xlsx")

这里你可以把百“C:\对账单\”换成你的绝对路径，

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx")

来获取你当度前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 

如果当前文件夹下还有A文件夹可以用代码：知

Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")