比如读取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 运行一下后,发现速度比打开、读取、关闭要快多了。特与大家分享。 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-2 22:08 , Processed in 0.073351 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.