主题：从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:\采购订单”的一部分。

 

请帮帮我！谢谢！

放到其他盘试试，比如d盘建一个目录aa，把文件复制到d:\aa里

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

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

还是这样

For Each file As String In filesys.GetFiles("d:\aa\") 不要画蛇添足，GetFiles是干嘛用的请认真看看帮助：http://www.foxtable.com/webhelp/topics/0341.htm

如果只有一个文件