[已解决]【求助】请高手帮忙修改下代码（不打开工作簿取数值

wgq985

有2张相同结构的工作簿，其中一张工作簿（取数源）的数据是用公式取的其他多个表的数据，现在想在汇总表工作簿中取“取数源”工作簿的内容，但2个工作簿除要填写的单元格以外都被锁定了，要取数值又不能一个一个粘贴，我是新手，写了段代码，但运行太慢了，还请高手帮忙修改或者写一段，非常感谢，祝新年快乐，附上我的代码
Sub 汇总华东()
Dim arr1, arr2, arr3
Dim wb As Workbook
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
arr = Array("h", "j", "l", "n", "p", "t", "v", "x", "z", "ab", "ad", "af", "ah")
For j = 0 To 12
  For i = 18 To 161 Step 13
Set wb = GetObject("E:\取数源.xls")
arr1 = wb.Sheets("华东").Range(arr(j) & i)
arr2 = wb.Sheets("华东").Range(arr(j) & i + 2).Resize(4, 1)
arr3 = wb.Sheets("华东").Range(arr(j) & i + 7)
With Sheets("华东")
.Range(arr(j) & i) = arr1
.Range(arr(j) & i + 2).Resize(4, 1) = arr2
.Range(arr(j) & i + 7) = arr3
End With
Next i
Next j
Windows(wb.Name).Visible = True
wb.Close False
Set wb = Nothing
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

rxj_0414

2012-1-16 21:34

因为表格中数据已被保护，所以不必担心会写错数据，只需加句错误处理代码即可。

1. 
   
2. Sub 汇总华东rxj11()
   
3.     Dim arrRSC
   
4.     Dim wb As Workbook
   
5.     Application.ScreenUpdating = False
   
6.     Set wb = GetObject("E:\取数源.xls")
   
7.     arrRSC = wb.Sheets("华东").Range("A1:AK173").Value
   
8.     On Error Resume Next
   
9.     Sheets("华东").Range("A1:AK173") = arrRSC
   
10.     wb.Close False
    
11.     Set wb = Nothing
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

rxj_0414

因为表格中数据已被保护，所以不必担心会写错数据，只需加句错误处理代码即可。

1. 
   
2. Sub 汇总华东rxj11()
   
3.     Dim arrRSC
   
4.     Dim wb As Workbook
   
5.     Application.ScreenUpdating = False
   
6.     Set wb = GetObject("E:\取数源.xls")
   
7.     arrRSC = wb.Sheets("华东").Range("A1:AK173").Value
   
8.     On Error Resume Next
   
9.     Sheets("华东").Range("A1:AK173") = arrRSC
   
10.     wb.Close False
    
11.     Set wb = Nothing
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

happym8888

Set wb = GetObject("E:\取数源.xls")可以放到循环外面来，会快一些。

happym8888

rxj_0414 发表于 2012-1-16 21:34
因为表格中数据已被保护，所以不必担心会写错数据，只需加句错误处理代码即可。

高，实在是高！！！

wgq985

没想到这么“简单”，我弄得太复杂了，高手就是高手