vbscript控制Excel問題

yxlovemoney 2008-04-03 04:57:42
程序如下
set iCon = CreateObject("Adodb.connection")
set rs = CreateObject("Adodb.Recordset")

set xlapp = CreateObject("Excel.Application")
set ExcelBook = xlapp.workbooks.open("D:\2007-11\20080403job\CMXRVM.csv")
set ExcelSheet = ExcelBook.ActiveSheet

xlapp.visible = true

strCon = "UID=sa;PWD=123;Database=SAMCAT;"& _
"Driver={SQL Server};"& _
"Server=.;Provider=SQLOLEDB.1"
iCon.Open strCon


strSQLrs = "select * from CAT_ExchangeRates"

rs.Open strSQLrs,iCon,adOpenForwardOnly,1,adCmdText

msgbox rs.EOF

do while count<>2
arr(suffix) = ExcelBook.worksheets("CMXRVM").cells(i,j).value
if arr(suffix)="" then
count = count + 1
end if

suffix = suffix + 1
j = j + 1

if j>5 then
suffix = 0
j = 1
i = i + 1
if arr(3)="CLOSE" then
strSQL = "insert into CAT_ExchangeRates(nvrCurrency1,nvrCurrency2,ftRate,nvrImporSystemDate)"& _
" values('"&arr(0)&"','"&arr(1)&"','"&arr(4)&"','"&arr(2)&"')"
iCon.Execute strSQL
end if
end if
loop

msgbox "insert ok!"

我抽取Excel內容再插入數據庫,但Excel中的數據有幾千條,執行完要等很久,有什麼辦法可以加快執行的速度呢?
...全文
27 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-03 04:57
社区公告
暂无公告