[已解决]VBA用储存格，自动开启多个EXCEL档

USERGM

我想要用储存格
假设
A1输入A则开启A.XLS的EXCEL档
A2输入B则开启B.XLS的EXCEL档
路径全在同一个资料夹。
☆不过档名没固定☆，我知道要用到Workboos.open用宏我只会用固定的档名，我要连续打开会出错。
假设要连开十个档案，在档名不固定的情况下要怎么用vba写。
求大神指教。
档名不固定，但路径在同一个资料夹，
请问如何做到，输入档名则自动连续开启EXCEL档。

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-9 14:14

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Mypath$, ibook As Object
   
3.     Mypath = ThisWorkbook.Path & ""
   
4.     If Target = "" Then Exit Sub
   
5.     Workbooks.Open Mypath & Target.Value & ".xls"
   
6. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Mypath$, ibook As Object
   
3.     Mypath = ThisWorkbook.Path & ""
   
4.     If Target = "" Then Exit Sub
   
5.     Workbooks.Open Mypath & Target.Value & ".xls"
   
6. End Sub

复制代码

USERGM

老司机带带我 发表于 2016-6-9 14:14

大神，不好意思，如果我输入的值没有在这个资料夹，
他会出现执行阶段错误"1004"，然後会弹出检查档名是否有拚错就会中断程序VBA
我想要输入的值没有在这个资料夹，程序可以不要显示中断吗或者有提示也可以。

老司机带带我

加个放错吧

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Mypath$, ibook As Object
   
3.     Mypath = ThisWorkbook.Path & ""
   
4.     If Target = "" Or Target.Column > 1 Then Exit Sub
   
5.     On Error Resume Next
   
6.     Workbooks.Open Mypath & Target.Value & ".xls"
   
7. End Sub

复制代码

USERGM

老司机带带我 发表于 2016-6-9 17:10
加个放错吧

谢了再上面加个防止错误的就行了。我真笨
谢谢指导