现有工具薄sheet1内，单元格（A1）内有一串数字 20180505。
文件夹地址 【 E:\新建文件夹 】 与 【 E:\keil 】 内均有文件 20180505.xlsm。
现在要如何根据既有数字 20180505 ，分别依次打开两个路径下的文件 20180505.xlsm
如果只是打开文件，可以试试以下VBA代码
Sub 打开文件()
Dim wjm, lj1, lj2
wjm = Sheets("Sheet1").Range("A1") & ".XLSM"
lj1 = "E:\新建文件夹\" & wjm
lj2 = "E:\keil\" & wjm
If Dir(lj1) <> "" Then '判断文件是否存在
Workbooks.Open Filename:=lj1
Else
MsgBox "文件1不存在。"
Exit Sub
End If
If Dir(lj2) <> "" Then '判断文件是否存在
Workbooks.Open Filename:=lj2
Else
MsgBox "文件2不存在。"
Exit Sub
End If
End Sub追问
Sub 打开文件()
Dim wjm, lj1, lj2
wjm = Sheets("Sheet1").Range("A1") & ".XLSM"
lj1 = "E:\新建文件夹\" & wjm
lj2 = "E:\keil\" & wjm
If Dir(lj1) <> "" Then '判断文件是否存在
Workbooks.Open Filename:=lj1
Else
MsgBox "文件1不存在。"
Exit Sub
End If
If Dir(lj2) <> "" Then '判断文件是否存在
Workbooks.Open Filename:=lj2
Else
MsgBox "文件2不存在。"
Exit Sub
End If
End Sub追问
不好意思再请教一下啊，dim 后的wjm lj1 lj2为什么不用定义数据类型，我在实验时到 wjm = 。。。这一句时，会报出阵列索引超出范围错误。
实验出来了😂😂小白如我把一个点～忘记了，非常感谢你哦😘
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-06-03
你要用模拟器多开，改转换器，这个很简单的，
先准备一个模拟器，
然后备一个转换器修改工具：比如，兔子转换器转换器
比如我想要在一台电脑上，改10个不同的转换器，
直接在模拟器上，使用兔子，就能修改成功，
快去试下吧。
先准备一个模拟器，
然后备一个转换器修改工具：比如，兔子转换器转换器
比如我想要在一台电脑上，改10个不同的转换器，
直接在模拟器上，使用兔子，就能修改成功，
快去试下吧。
