Excel开发编程
不打开EXCEL文件的前提下读取数据的方法之一
2004-09-27 08:42:25
比如读取D:\税金.xls中sheet1中A1:B20的数据dim i as integerapplication.screenupdating=falsefor i=1 to 20activesheet.cells(i,1).formula="='D:\[税金.xls]sheet1'!$A$" & iactivesheet.cells(i,2).formula="='D:\[税金.xls]sheet1'!$B$" & inext iactivesheet.range("a1").currentregion.copyactivesheet.range("a1").PasteSpecial xlPasteValuesApplication.CutCopyMode = Falseapplication.screenupdating=true
运行一下后，发现比打开、读取、关闭的操作快多了，特与大家分享。