EXCEL VBA 实现 同一文件夹下相同格式的数据汇总到同一文件下

xhwuya

zhaogang1960 发表于 2015-7-21 10:07

大神，帮我看看怎么解决这个问题啊
程序运行后。显示“外部表不是预期的格式”错误，但是可以调出来Ａ、Ｂ、Ｃ、Ｄ班的数据，调不出其他三个表格的。

LMY123

1. Sub 同夹_多薄_指定表_合并成一薄一表_无字段名_ADO法()
   
2.     Application.ScreenUpdating = False
   
3.     ActiveSheet.UsedRange.Offset(1).ClearContents
   
4.     Set 连接 = CreateObject("adodb.connection")
   
5.     外薄 = Dir(ThisWorkbook.Path & "\*.xls")
   
6.     While 外薄 <> ""
   
7.         If 外薄 <> ThisWorkbook.Name Then
   
8.             计数器 = 计数器 + 1
   
9.             If 计数器 = 1 Then
   
10.                 连接.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='excel 12.0;hdr=no';Data Source=" & ThisWorkbook.Path & "" & 外薄
    
11.                 SQL = "select * from [考勤$B3:m]"
    
12.                 Range("A2").CopyFromRecordset 连接.Execute(SQL)
    
13.             Else
    
14.                 SQL = "select * from [Excel 12.0;hdr=no;Database=" & ThisWorkbook.Path & "" & 外薄 & "].[考勤$B3:m]"
    
15.                 Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset 连接.Execute(SQL)
    
16.             End If
    
17.         End If
    
18.         外薄 = Dir()
    
19.     Wend
    
20.     连接.Close
    
21.     Set 连接 = Nothing
    
22.     Application.ScreenUpdating = True
    
23. End Sub

复制代码