求助EXCEL导入ACCESS时出错原因

2008-08-01 02:14:12 217 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASP实现Excel导入Access数据库导入方式有很多，思路有两种：1、用户直接打开本地Excel文件，通过程序直接导入Access数据库;2、用户打开本地Excel文件，通过程序上传至固定文件夹，然后通过程序将数据导入Access数据库两种方式相比较，方法2比方法1更为适用。一开始，使用第一种方法，本机测试通过，但是通过网络访问则会出现错误提示：80040e37，并提示找不到指定的文件。后来才发现，要使用此方法实现阅读详情

我的EXCEL资料里面的商品不是很全面,例如有商品名称就型号,没库存数量.我导入时就出错了!!!!

谢了!各位大哥!

Private Sub Command3_Click()
Call OpenConn
SQL = "select * from 商品信息"
rs.Open SQL, cn, 1, 3
Dim excela_app As Object
Set excel_App = CreateObject("Excel.application")
excel_App.Workbooks.Open FileName:=Text1.Text '打开选择好的EXCEL
i = 2
Do
If Len(Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1))) = 0 Then Exit Do '如所取数据长度为0则退出
rs.AddNew
rs.Fields("商品编号") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1))
rs.Fields("商品名称") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 2))
rs.Fields("规格型号") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 3))
rs.Fields("库存数量") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 4))

rs.Update
i = i + 1
Me.ProgressBar1.Visible = True
Me.ProgressBar1.Value = i

Loop

excel_App.ActiveWorkbook.Close False '不保存关闭Workbook
MsgBox "共导入" & Format$(i - 2) & "种商品.", vbInformation, "提示:"

...全文

Access 2016/2019 数据导入实战：3种方法处理10万行Excel数据本文详细介绍了Access 2016/2019处理10万行Excel数据的三种专业方法，包括直接复制粘贴、外部数据导入引擎和链接表+SSIS混合方案。通过实战案例和性能优化策略，帮助用户高效迁移和管理大规模数据，提升工作效率。特别适合需要处理海量数据的办公人员和数据库入门者。阅读详情

IDtoID

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

IDtoID 2008-08-01

打赏
举报

呵呵!!大哥说的是啊!!俺的头脑移动得很慢!! 多多指教啊!!

谢谢所有大哥的帮忙哦!

_l_ 2008-08-01

打赏
举报

[Quote=引用 5 楼 IDtoID 的回复:]

大哥,我那只是把EXCEL导入,没有用到TEXT1哦!
[/Quote]

别怪我骂你！！！！！！

说你笨还真不是一般的笨
你不会把 TEXT1换成 Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1)) 吗？

fvflove 2008-08-01

打赏
举报



'楼主,借用你的代码啊,我就不调试了.你看一下,我改的地方

'因为没有调试,不保证没有错误,但是思路是可以借鉴的.

Private Sub Command3_Click() 

  Call OpenConn 

  SQL = "select * from 商品信息" 

  rs.Open SQL, cn, 1, 3 



  Dim excela_app As Object 

  Set excel_App = CreateObject("Excel.application") 

  excel_App.Workbooks.Open FileName:=Text1.Text '打开选择好的EXCEL 

  i = 2 



  Do 

    If Len(Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1))) = 0 Then Exit Do            '如所取数据长度为0则退出 

     rs.AddNew   '增加新记录

     '注意我以下更改的

     '*****

     if len(Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1)))<> 0 then

        rs.Fields("商品编号") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1)) 

     else

        '这里可以处理如果是空的数据的信息 比如:

         rs.Fields("商品编号") = "空编号" '注意.此处的赋值要注意字符的类型 

     end if

     

     if len(Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 2)))<>0 then

        rs.Fields("商品名称") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 2))  

     else

       '这里可以处理如果是空的数据的信息 比如:

        rs.Fields("商品名称") = "空名称" '注意.此处的赋值要注意字符的类型 

     end if 

  

     if len(Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 3)))<> 0 then

        rs.Fields("规格型号") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 2))  

     else

       '这里可以处理如果是空的数据的信息 比如:

        rs.Fields("规格型号") = "空规格型号" '注意.此处的赋值要注意字符的类型 

     end if 



     if len(Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 4)))<>0 then

        rs.Fields("库存数量") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 2))  

     else

       '这里可以处理如果是空的数据的信息 比如:

        rs.Fields("库存数量") = 0 '注意.此处的赋值要注意字符的类型 '这里应该是数字型那就设为 0 吧.

     end if 



'*************我改的结束了,下面的还是你的代码

    rs.Update 

    i = i + 1 

    Me.ProgressBar1.Visible = True 

    Me.ProgressBar1.Value = i 



  Loop 



  excel_App.ActiveWorkbook.Close False      '不保存关闭Workbook 

  MsgBox "共导入" & Format$(i - 2) & "种商品.", vbInformation, "提示:"

IDtoID 2008-08-01

打赏
举报

[Quote=引用 4 楼 _l_ 的回复:]
我不是写了个函数吗？
难道你不会写判断语句？
如果不是数字就不执行ADDNEW?
或者不是数字就变成0
[/Quote]

大哥,我那只是把EXCEL导入,没有用到TEXT1哦!

_l_ 2008-08-01

打赏
举报

我不是写了个函数吗？
难道你不会写判断语句？
如果不是数字就不执行ADDNEW?
或者不是数字就变成0

IDtoID 2008-08-01

打赏
举报

大哥,还是不行哦!!

熊孩子开学喽 2008-08-01

打赏
举报

这样写:
rs.Fields("商品编号") = Trim$(excel_App.Workbooks(1).Worksheets(1).Cells(i, 1)) & ""
就可以了

_l_ 2008-08-01

打赏
举报

IsNumeric("") 判断是否数字

 

if not IsNumeric(text1) then 

  msgbox "text1中不是数字"

end if

求助EXCEL导入ACCESS时出错原因

相关推荐