求修改打开同文件夹下其他工作簿的代码

lagos

求修改成打开当前工作簿数字名称+1的同文件夹下另一工作簿的代码，详情请看附件： 解压后请看2023.1工作簿.rar (18 KB, 下载次数: 6)

2023-7-6 00:25 上传

点击文件名下载附件

liulang0808

lagos

liulang0808 发表于 2023-7-6 07:45

谢谢版主大神的代码，测试的时候卡在一句没有过，提示"下标越界",不知道是啥原因
Sub 打开工作簿()
Set fso = CreateObject("scripting.filesystemobject")
bnm = fso.getbasename(ThisWorkbook.Name)
arr = Split(bnm, ".")
arr(UBound(arr)) = Val(arr(UBound(arr))) + 1
bnm = Join(arr, ".")
bexnm = fso.getextensionname(ThisWorkbook.Name)

Windows(bnm & "." & bexnm).Activate
Sheets("sheet1").Select
Range("A1").Select
MsgBox ("已打开")
End Sub

ykcbf1100

参与一下。