比如讀取D:\稅金.xls中sheet1中A1:B20的數(shù)據(jù)

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

運行一下后，發(fā)現(xiàn)比打開、讀取、關閉的操作快多了，特與大家分享。

(責任編輯：admin)

• ·Excel VBA編輯語句集300條
• ·【技巧】excel文件破解密碼
• ·【Excel VBA】FileDialog 用法之 打開
• ·VBA修改ACCESS及EXCEL安全設置(源碼)
• ·實用的GET函數(shù)
• ·日期改為顯示星期幾的自定義涵數(shù)
• ·VBA在Excel 2000中的應用一例
• ·ActiveX在Excel中的運用
• ·檢查重復字段值的方法
• ·Excel中 BASIC 程序的運行
• ·Excel XP中圖片的智能刷新
• ·Excel成績分析處理程序
• ·創(chuàng)建自己的EXCEL函數(shù)
• ·用Excel制作公交向導
• ·使用ADO獲取外部數(shù)據(jù)
• ·Excel中如何編程判斷字符顏色