以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  老师看看问题出在哪里？谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187537)

--  作者：xiaofei_00 --  发布时间：2023/7/25 8:32:00 --  老师看看问题出在哪里？谢谢 For Each file As String In filesys.GetFiles("e:\\2023\\厂内电子委托")     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("nbxmjdzzb").AddNew         dr("xfsj") = Date.Today()         dr("xmfzr") = "张勇"         dr("zhye") = "工艺"         dr("gsmc") = "山东股份有限公司"         dr("xmmc") = sheet(3, 3).Text         dr("spbm") = sheet(7, 3).Text         dr("xmlx") = "施工图"         dr("wtwcsj") = sheet(4, 3).Text     End If Next 此主题相关图片如下：微信图片_20230725082341.png

--  作者：xiaofei_00 --  发布时间：2023/7/25 8:32:00 --   xls  没有问题  xlsx 就报错，

--  作者：有点蓝 --  发布时间：2023/7/25 8:37:00 --   贴出完整代码

--  作者：xiaofei_00 --  发布时间：2023/7/25 8:45:00 --   这就是完整代码，代码功能是把固定文件夹内所有excel文件内容导入到指定foxtable表格中

--  作者：有点蓝 --  发布时间：2023/7/25 9:02:00 --   把有问题的xlsx文件发一个上来测试一下

--  作者：xiaofei_00 --  发布时间：2023/7/25 11:28:00 --   我知道原因了，表格中有大量插入的图片就不认

--  作者：有点蓝 --  发布时间：2023/7/25 11:39:00 --   也有可能本来就是xls文件只是扩展名改为xlsx而已，改为xls试试