求助！怎样把Excel表格里的数据导入VB编程的access...
发布网友
发布时间：2022-04-21 21:43
共1个回答
热心网友
时间：2024-09-29 13:53
从excel读取数据，写入mdb数据库中
F1=server.mappath("userdata/"&xlsfile) 'EXCEL 文件路径
Set xlApp = server.CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open(F1)
Set xlsheet = xlbook.Worksheets(1)
nLine=100 '行数
i=startline
set rs=server.createobject("adodb.recordset")
rs.open "Select * from [jinzhan]",conn,1,3
Do While I<nLine
s1=trim(xlsheet.Cells(i, 1)) '第I行第一列
rs.addnew
rs("s1")=s1
rs.update
i=i+1
loop
set xlsheet=nothing
set xlbook=nothing
xlApp.quit
rs.close
set rs=Nothing
Conn.close
set Conn=Nothing
