ACCESS问题，烦劳解答

3e5kw

情况是这样的，我有数百张EXCEL文档需要汇总统计，但不会ACCESS
EXCEL格式：序号 位置 直径（分别有2,4,6,8） 重量 ；每张表都是按所述格式严格对应的

想把所有EXCEL文档利用数据库统计成以下格式
        直径 2           4        6           8          合计
表编号       重量   重量  重量   重量   重量

注：表里面的直径不全，如，有的只有2,4,6，有的只有2,8


请问下应该如何操作？

[ 本帖最后由 3e5kw 于 2011-7-27 08:59 编辑 ]

zhangjimfu

请上传附件!

3e5kw

好几百个，我传两个，你帮帮看看吧

3e5kw

我QQ276329868，您要有时间的话，教教我可以不？

zhangjimfu

1. Sub test()
   
2.     Dim sRow%, i%, myPath$, fileName$, OpenWorkbook As Workbook
   
3.     On Error Resume Next
   
4.     Application.ScreenUpdating = False
   
5.     myPath = ThisWorkbook.Path & "\通廊"
   
6.     fileName = Dir(myPath & "*.xlsx", vbHidden): i = 2
   
7.     While Len(fileName) > 0
   
8.         Set OpenWorkbook = GetObject(myPath & fileName)
   
9.         With OpenWorkbook.Sheets(1)
   
10.             sRow = .Range("a65536").End(xlUp).Row - 3
    
11.             Range(Cells(i, 1), Cells(i + sRow, "h")).Value = .Range("a4:h" & sRow + 4).Value
    
12.             i = i + sRow
    
13.             OpenWorkbook.Close
    
14.         End With
    
15.         fileName = Dir
    
16.     Wend
    
17.     Set OpenWorkbook = Nothing
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

Test.rar (44.42 KB, 下载次数: 8)

2011-7-27 11:31 上传

点击文件名下载附件

3e5kw

谢谢您了，以后还请您多多指点