以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从excel中读取数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153823)

--  作者:朱女士
--  发布时间:2020/8/24 15:28:00
--  从excel中读取数据

老师您好!

     我有一个从excle读取数据的模块,问题还没有得到解决,我将此表直接拷贝到e:\\目录下了:我的代码:

For Each file As String In filesys.GetFiles("e:\\采购订单")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("ylcgmxb").AddNew
        dr("名称") = sheet(11,2).Text
        dr("描述及规格") = sheet(11,3).text
        dr("数量") = sheet(11,4).text
        dr("到货日期") = sheet(11,5).text
        dr("备注") = sheet(11,6).text
       \' dr("订单号") = sheet(2,4).text
        dr("客户") = sheet(3,2).text
          End If
Next

 

 


图片点击可在新窗口打开查看此主题相关图片如下:采购单.png
图片点击可在新窗口打开查看

 

错误信息:未能找到路径“e:\\采购订单”的一部分。

 

请帮帮我!谢谢!


--  作者:有点蓝
--  发布时间:2020/8/24 15:32:00
--  
放到其他盘试试,比如d盘建一个目录aa,把文件复制到d:\\aa里

For Each file As String In filesys.GetFiles("d:\\aa")

--  作者:朱女士
--  发布时间:2020/8/24 15:53:00
--  

For Each file As String In filesys.GetFiles("d:\\aa\\采购订单")

 未能找到路径“d:\\aa\\采购订单”的一部分。


--  作者:朱女士
--  发布时间:2020/8/24 15:53:00
--  
还是这样
--  作者:有点蓝
--  发布时间:2020/8/24 15:56:00
--  
For Each file As String In filesys.GetFiles("d:\\aa\\") 不要画蛇添足,GetFiles是干嘛用的请认真看看帮助:http://www.foxtable.com/webhelp/topics/0341.htm

如果只有一个文件

        Dim Book As New XLS.Book(“d:\\aa\\采购订单.xlsx”)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("ylcgmxb").AddNew
        dr("名称") = sheet(11,2).Text
        dr("描述及规格") = sheet(11,3).text