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中的數據有幾千條,執行完要等很久,有什麼辦法可以加快執行的速度呢?
...全文
56 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧