Access中国/Office中国不打开EXCEL文件的前提下读取数据的方法之一access教程,access文章,access培训,access下载,access破解,access技巧,access源码,access实例,access数据库,access开发,access软件,ACCESS学习,access应用 - Powered by Discuz!

Access中国/Office中国不打开EXCEL文件的前提下读取数据的方法之一access教程,access文章,access培训,access下载,access破解,access技巧,access源码,access实例,access数据库,access开发,access软件,ACCESS学习,access应用 - Powered by Discuz!

比如读取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 运行一下后，发现比打开、读取、关闭的操作快多了，特与大家分享。