请问版上大大
在Excel里想用VBA抓相对路径的资料该怎么写(同资料夹但不同层的档案)
知道用绝对路径怎么写，可是档案给别人的时候可能就没办法跑了
所以想改用相对路径写，
Sub s()
Dim i As Integer
For i = 1 To 46
Sheets("工作表1").Range("A" & i & ":A" & i).Formula =
"='C:\Users\资料夹\VBA用\[" & i & ".xlsx]综合报表'!$A$3"
Sheets("工作表1").Range("B" & i & ":B" & i).Formula =
"='C:\Users\资料夹\VBA用\[" & i & ".xlsx]综合报表'!$E$3"
Next i
End Sub
C:\Users\资料夹\VBA用\ <

.\\[" & i & ".xlsx]综合报表'!$A$3"".\[" & i & ".xlsx]综合报表'!$A$3"

用万用方法试试 ./是本目录 ../是上层目录

用Application.FileDialog(msoFileDialogFolderPicker)让使者自己指定资料夹https://goo.gl/z04PC9