[已解决]关于打开另一个工作簿路径的问题

一壶烧刀醉晚天

我想用两个复选框作一个打开其他工作簿的路径，不知道下面代码中“workbooks.open "用的对不对？
代码

1. Private Sub CommandButton1_Click()
   
2. Dim a, s
   
3. If CheckBox1.Value = True Then
   
4. a = a & " " & CheckBox1.Caption
   
5. If CheckBox2.Value = True Then
   
6. s = s & " " & CheckBox2.Caption
   
7. End If
   
8. End If
   
9. 
   
10. Workbooks.Open ("D:" & a & " \ " & s & ".xlsx")
    
11. 
    
12. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

zjdh

2015-5-22 09:01

1. Private Sub CommandButton1_Click()
   
2.     Dim a, s
   
3.     If CheckBox1.Value = True Then a = CheckBox1.Caption & ""
   
4.     If CheckBox2.Value = True Then s = CheckBox2.Caption
   
5.     Workbooks.Open ("D:" & a & s & ".xlsx")
   
6. End Sub

复制代码

跳转到最佳答案楼层

lyjlyg06

10.Workbooks("D:\" & a & " \ " & s & ".xlsx").open
这样就ok了！

zjdh

1. Private Sub CommandButton1_Click()
   
2.     Dim a, s
   
3.     If CheckBox1.Value = True Then a = CheckBox1.Caption & ""
   
4.     If CheckBox2.Value = True Then s = CheckBox2.Caption
   
5.     Workbooks.Open ("D:" & a & s & ".xlsx")
   
6. End Sub

复制代码

一壶烧刀醉晚天

lyjlyg06 发表于 2015-5-22 07:35
10.Workbooks("D:\" & a & " \ " & s & ".xlsx").open
这样就ok了！

可能是我哪里还没搞明白，试了一下提示下标越界。依然谢谢你

lyjlyg06

也谢谢你！