求助导入不同工作簿中数据问题

lalitou

lalitou 发表于 2014-1-30 15:31
谢谢，我试试。

在实际的表格中不能运行，有错误。
工作中的表格是这样的。

lalitou

zhaogang1960 发表于 2014-1-30 15:27
我犯糊涂了，给你写了个2010版本的，下面是2003版

在实际的表格中有错误，
这是工作中的表

zhaogang1960

lalitou 发表于 2014-1-30 15:49
在实际的表格中有错误，
这是工作中的表

用常规法吧：

1. Sub Macro1()
   
2.     Dim sh As Worksheet, r&, m&
   
3.     Application.ScreenUpdating = False
   
4.     With GetObject(ThisWorkbook.Path & "\test1.xls")
   
5.         For Each sh In .Sheets
   
6.             sh.UsedRange.Copy ThisWorkbook.Sheets(sh.Name).[a1]
   
7.         Next
   
8.         .Close False
   
9.     End With
   
10.     Application.ScreenUpdating = True
    
11. End Sub
    

复制代码

zhaogang1960

请看附件
test.rar (7.42 KB, 下载次数: 9)

2014-1-30 15:52 上传

点击文件名下载附件

lalitou

zhaogang1960 发表于 2014-1-30 15:53
请看附件

谢谢，可以运行了

LMY123

SQL = "Select * from [" & sh.Name & "$]"