[已解决]跨工作簿提取数的问题。

mate22

跨工作簿提取数的问题。看附件，有2个文件。

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-10-26 21:05

请看下面的代码：

EP求助2.zip (31.75 KB, 下载次数: 26)

2013-10-26 21:06 上传

点击文件名下载附件

1. Sub 提取()
   
2. Dim i&, arr
   
3. Application.ScreenUpdating = False
   
4. With Application.Workbooks.Open(ThisWorkbook.Path & "" & "数据.xls")
   
5. i = .Sheets(1).[b65536].End(3).Row
   
6. arr = .Sheets(1).Range("b" & i - 280 & ":" & "b" & i)
   
7. ThisWorkbook.Sheets("新数据").Range("a:a").ClearContents
   
8. ThisWorkbook.Sheets("新数据").Range("a1").Resize(281) = arr
   
9. .Close False
   
10. End With
    
11. Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

yyyydddd8888

请看下面的代码：

EP求助2.zip (31.75 KB, 下载次数: 26)

2013-10-26 21:06 上传

点击文件名下载附件

1. Sub 提取()
   
2. Dim i&, arr
   
3. Application.ScreenUpdating = False
   
4. With Application.Workbooks.Open(ThisWorkbook.Path & "" & "数据.xls")
   
5. i = .Sheets(1).[b65536].End(3).Row
   
6. arr = .Sheets(1).Range("b" & i - 280 & ":" & "b" & i)
   
7. ThisWorkbook.Sheets("新数据").Range("a:a").ClearContents
   
8. ThisWorkbook.Sheets("新数据").Range("a1").Resize(281) = arr
   
9. .Close False
   
10. End With
    
11. Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

mate22

yyyydddd8888 发表于 2013-10-26 21:05
请看下面的代码：

运行错误：

yyyydddd8888

mate22 发表于 2013-10-26 21:18
运行错误：

你要把你要取的数据的文件和本代码文件放在同一文件夹下才可以。
把写有代码的这个文件和你要取数据的文件放在同一个文件夹下再试试。
现在可以了吗？如果有问题可以再和我联系。