共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：不修改excel数据直接导入到Foxtable
1楼
蓝蚂蚁 发表于：2023/9/25 16:31:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
此主题相关图片如下：测试1.png
导入的excel数据格式如上图
按照这样的代码，不能导入数据。（因为需要导入七百个这样的表格数据，每个表格都要打开删除表头和表尾需要花费很多时间，所以想不用处理表格，想做代码直接导入）
问题：上面的代码应该如何修改才能正确导入数据。
由于提示非法字符，所以用记事本上传代码。
2楼
有点蓝 发表于：2023/9/25 16:37:00字典的用法是错的，也没有什么用。如果execl文档标题位置是固定的。
r("实际数量") = Sheet(n,12).Value
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).Valuer("实际数量") = Sheet(n,12).Value
Next
Tables("excel报表导入测试").ResumeRedraw()
3楼
蓝蚂蚁 发表于：2023/9/25 16:41:00完美解决，多谢！
共3 条记录, 每页显示 10 条, 页签:
[1]