不打开EXCEL文件的前提下读取数据的方法之一
时间：2004-09-27 08:42 来源：本站原创 作者：tanjh 阅读：次
比如读取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
运行一下后，发现比打开、读取、关闭的操作快多了，特与大家分享。
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
最新内容