如何不打开工作簿，获取其中的数据，vba

leepang1984

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

2015-1-6 11:58 上传

点击文件名下载附件

我设想的是不打开基础数据表的前提下，获取数据

要求：

1、把基础数据工作簿  基础数据表  A:Q 列，录入到汇总工作簿  基础数据表 A:Q列

2、把基础数据工作簿  汇总表  A:G 列，录入到  汇总工作簿  汇总表  A:G列，顺序不一致，对应关系 详见附件

我写的代码总是不对，另外，有个 getobject 函数，不太会用，最好用数组解决，效率更高

十分感谢！！！！！！！！！！！！！！

1578278106

真正不打开的情况下而获取数据貌似只有sql

1578278106

1. Sub HuiZong() '汇总
   
2.     Dim wb As Workbook, tem As String
   
3.     Dim brr(1 To 10000, 1 To 7)
   
4.     Application.ScreenUpdating = False
   
5.     tem = ThisWorkbook.Path & "\基础数据.xlsm"
   
6.     Set wb = GetObject(tem)
   
7.     With wb.Sheets("汇总")
   
8.         arr = .Range("a1").CurrentRegion
   
9.         For x = 2 To UBound(arr)
   
10.             n = n + 1
    
11.             brr(n, 1) = arr(x, 1)
    
12.             brr(n, 2) = arr(x, 2)
    
13.             brr(n, 3) = arr(x, 3)
    
14.             brr(n, 4) = arr(x, 6)
    
15.             brr(n, 5) = arr(x, 7)
    
16.             brr(n, 6) = arr(x, 4)
    
17.             brr(n, 7) = arr(x, 5)
    
18.         Next
    
19.     End With
    
20.     wb.Close False
    
21.     Set wb = Nothing
    
22.     Range("a2:g10000").Clear
    
23.     Range("a2").Resize(n, 7) = brr
    
24.     Application.ScreenUpdating = True
    
25. End Sub
    
26. 
    
27. Sub JiChuShuJu() '基础数据
    
28.     Dim wb As Workbook, tem As String
    
29.     Application.ScreenUpdating = False
    
30.     tem = ThisWorkbook.Path & "\基础数据.xlsm"
    
31.     Set wb = GetObject(tem)
    
32.     With wb.Sheets("基础数据").UsedRange
    
33.         [a1].Resize(.Rows.Count, .Columns.Count) = ""
    
34.         [a1].Resize(.Rows.Count, .Columns.Count) = .Value
    
35.     End With
    
36.     wb.Close False
    
37.     Set wb = Nothing
    
38.     Application.ScreenUpdating = True
    
39. End Sub
    

复制代码

1578278106

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

2015-1-6 15:14 上传

点击文件名下载附件

看看是不是这个意思。

leepang1984

1578278106 发表于 2015-1-6 15:15
看看是不是这个意思。

恩，非常感谢，就是这个意思
请问一下
Set wb = Nothing
这条语句什么意思

leepang1984

1578278106 发表于 2015-1-6 15:15
看看是不是这个意思。

另外，请教一下，能不能在汇总表做一个按钮，点一下，把这两个过程都运行了，我刚刚试了一下，发现把基础数据也复制到汇总表里面了，谢谢

1578278106

leepang1984 发表于 2015-1-6 16:13
另外，请教一下，能不能在汇总表做一个按钮，点一下，把这两个过程都运行了，我刚刚试了一下，发现把基础 ...

在当前表点击按钮，就不会弄错。
想两个弄在一起就用call，但是单元格前面要指定具体表格名称，比如sheet1.range("a1")······

1578278106

leepang1984 发表于 2015-1-6 16:12
恩，非常感谢，就是这个意思
请问一下
Set wb = Nothing

消除对象。对象明白吗？就像range和range.value

leepang1984

1578278106 发表于 2015-1-6 16:48
消除对象。对象明白吗？就像range和range.value

明白了，谢谢

leepang1984

1578278106 发表于 2015-1-6 16:44
在当前表点击按钮，就不会弄错。
想两个弄在一起就用call，但是单元格前面要指定具体表格名称，比如shee ...

好的，搞定了，非常感谢！！！！！！！！！！！！！