[已解决]请问一下，这句代码错在哪里，是否能这个写呢？

suxiong

1. 
   
2. Sub bb()
   
3. Dim x
   
4. x = 1
   
5. Workbooks("x & "." & xls").Close
   
6. End Sub
   

复制代码

注：1.xls是打开的。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-30 12:34

Sub bb()

Dim x

x = 1

Workbooks( x & ".xls").Close

End Sub

跳转到最佳答案楼层

mxg825

Sub bb()

Dim x

x = 1

Workbooks( x & ".xls").Close

End Sub

suxiong

回复 mxg825 的帖子

mxg825  你好，麻烦在问一下：
如果我要将变量放到地址里去呢，怎么写；
比如：

1. 
   
2. Dim n
   
3. For n = 1 To 3 Step 1
   
4. 
   
5. st = "insert  into 新表名 select *  FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=D:\123\2.xls;Extended Properties=EXCEL 8.0')...[Sheet1$] ;"

复制代码

我想把“2”变成我的变量N，，我怎么输都提示错误！


D:\123\2.xls

mxg825

1. Option Explicit
   
2. 
   
3. Dim n
   
4. For n = 1 To 3 Step 1
   
5. 
   
6. st = "insert  into 新表名 select *  FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=D:\123" & n & ".xls;Extended Properties=EXCEL 8.0')...[Sheet1$] ;"
   

复制代码

windimi007

回复 suxiong 的帖子

这段代码不怎么懂，猜一下，不知道对不对？{:912:}
Sub aa()
    Dim n
    For n = 1 To 3 Step 1
        st = "insert  into 新表名 select *  FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=D:\123\" & n & ".xls;Extended Properties=EXCEL 8.0')...[Sheet1$] ;"
    Next n
End Sub