不修改excel数据直接导入到Foxtable - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

字典的用法是错的，也没有什么用。如果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

Tables("excel报表导入测试").ResumeRedraw()

主题：不修改excel数据直接导入到Foxtable