以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不修改excel数据直接导入到Foxtable  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188531)
--  作者：蓝蚂蚁
--  发布时间：2023/9/25 16:31:00
--  不修改excel数据直接导入到Foxtable
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt


图片点击可在新窗口打开查看此主题相关图片如下：测试1.png
图片点击可在新窗口打开查看

导入的excel数据格式如上图


按照这样的代码，不能导入数据。（因为需要导入七百个这样的表格数据，每个表格都要打开删除表头和表尾需要花费很多时间，所以想不用处理表格，想做代码直接导入）
问题：上面的代码应该如何修改才能正确导入数据。
由于提示非法字符，所以用记事本上传代码。
--  作者：有点蓝
--  发布时间：2023/9/25 16:37:00
--  
字典的用法是错的，也没有什么用。如果execl文档标题位置是固定的。

Dim Book As New XLS.Book("G:\\yao剂科管理系统V1.0\\测试001.xlsx")            
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("excel报表导入测试").StopRedraw()
\'注意下面的循环变量从4开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer =4 To Sheet.Rows.Count -3
    Dim r As Row = Tables("excel报表导入测试").AddNew()
    r("yao品信息") = Sheet(n,1).Value
    r("规格") = Sheet(n,8).Value
    r("实际数量") = Sheet(n,12).Value
Next
Tables("excel报表导入测试").ResumeRedraw()
--  作者：蓝蚂蚁
--  发布时间：2023/9/25 16:41:00
--  
完美解决，多谢！