不打开的情况下如何读取其他表格数据

旷野的狼

新人求助一下
我有A,B,C,D,E,F五个EXCEL表
想在只打开A工作表时  能够读取B,C,D,E,F里的数据
我是搞自动化控制的新人，对VBA不怎么熟悉，已经把需要的数据取到了EXCEL表中，不知道如何整合

好奇心

1. Sub test()   '后台打开
   
2. Dim wb As Workbook
   
3. Dim sht As Worksheet
   
4. Dim pat As String, nam As String
   
5. Dim arr, i As Integer
   
6. Application.ScreenUpdating = False
   
7. pat = ThisWorkbook.Path
   
8. nam = Dir(pat & "" & "*.xls")
   
9. Do While nam <> ""
   
10.   If nam <> ThisWorkbook.Name Then
    
11.         Set wb = GetObject(pat & "" & nam)
    
12.         Set sht = wb.Sheets(1)
    
13.         i = i + 1
    
14.      If i = 1 Then
    
15.         arr = sht.UsedRange
    
16.         ThisWorkbook.Sheets(1).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.      Else
    
18.          arr = sht.UsedRange.Offset(1, 0)
    
19.           ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Offset(1, 0).Resize(UBound(arr), UBound(arr, 2)) = arr
    
20.      End If
    
21.        Windows(wb.Name).Visible = True
    
22.         wb.Close False
    
23.     End If
    
24.     nam = Dir
    
25. Loop
    
26. Application.ScreenUpdating = False
    
27. Erase arr
    
28. Set wb = Nothing
    
29. MsgBox "数据汇总完毕。"
    
30. End Sub
    
31. 
    
32. 
    

复制代码

好奇心

新建文件夹.rar (26.97 KB, 下载次数: 73)

2012-7-20 23:21 上传

点击文件名下载附件

旷野的狼

好奇心 发表于 2012-7-20 23:21

太 感谢您了
我  是 做PCL的  还有 一些  上位机 组态的人机界面
感觉 您好厉害

旷野的狼

好奇心 发表于 2012-7-20 23:21

谢谢您的答案，十分感谢

旷野的狼

取数据的时候  会丢失 一些数据

qx-liuwx

每次回帖、谢谢！辛苦了。