:不打开EXCEL文件的前提下读取数据的方法之一_VBA教程、excel VBA编程、VBA...

来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 03:47:30

比如读取D:\税金.xls中sheet1中A1:B20的数据

dim i as integer

application.screenupdating=false

for i=1 to 20

activesheet.cells(i,1).formula="='D:\[税金.xls]sheet1'!$A$" & i

activesheet.cells(i,2).formula="='D:\[税金.xls]sheet1'!$B$" & i

next i

activesheet.range("a1").currentregion.copy

activesheet.range("a1").PasteSpecial xlPasteValues

Application.CutCopyMode = False

application.screenupdating=true

运行一下后,发现比打开、读取、关闭的操作快多了,特与大家分享。