- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]excel合并提示错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194047)
-- 发布时间：2024/11/6 9:15:00
-- [求助]excel合并提示错误
增加了一个临时表从excel报表中取数，但总是提示错误。列的位置，表的位置什么的都没问题。起初”费用项目“那里第一行确实是”税费“，中间曾经成功过，后面对excel报表进行了修改就一直提示错误
Dim dtb As New DataTableBuilder("本期费用占比汇总")
dtb.AddDef("部门编号", GetType(String), 32)
dtb.AddDef("部门名称", GetType(String), 32)
dtb.AddDef("费用类型", GetType(String), 32)
dtb.AddDef("费用项目", GetType(String), 32)
dtb.AddDef("费用占比二月", GetType(Double))
dtb.AddDef("费用占比三月", GetType(Double))
dtb.AddDef("费用占比四月", GetType(Double))
‘此处省略
dtb.AddDef("渠道", GetType(String), 32)
dtb.Build()
Dim Book As New XLS.Book(ProjectPath & "Reports\\202410版费用成本.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(4)
Tables("本期费用占比汇总").StopRedraw()
Dim nms() As String = {"部门编号", "部门名称", "费用类型", "费用项目", "费用占比二月", "费用占比三月",此处省略， "渠道"}
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim r As Row = Tables("本期费用占比汇总").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n, m).Value
Next
Next
Tables("本期费用占比汇总").ResumeRedraw()
此主题相关图片如下：11.png
此主题相关图片如下：13.png
此主题相关图片如下：12.png
-- 发布时间：2024/11/6 10:00:00
--
execl文件发上来测试一下
-- 发布时间：2024/11/6 10:02:00
--
发布后有提示这个错误
此主题相关图片如下：微信图片_20241106100135.png
-- 发布时间：2024/11/6 10:11:00
--
这个文件可能不是xlsx文件，只是扩展名是xlsx而已
-- 发布时间：2024/11/6 10:21:00
--
这个文件是直接通过下面方式生成的
Dim Book As New XLS.Book(ProjectPath & "Attachments\\202410版费用成本.xlsx")
Dim fl As String = ProjectPath & "Reports\\202410版费用成本.xlsx"
-- 发布时间：2024/11/6 10:23:00
--
把这个文件发上来测试一下
-- 发布时间：2024/11/6 10:28:00
--
可能还是我office版本的问题，装个低点office版本再看看
-- 发布时间：2024/11/6 11:07:00
--
奇怪，做个测试项目，原文件复制出来，并没有问题
-- 发布时间：2024/11/6 12:32:00
--
最后排查，应该是excel公式的问题，发现有一列SUM求和公式计算的结果带有绿色小三角，把公式改成一列列直接相加没了小三角现在可以了
[此贴子已经被作者于2024/11/6 12:32:04编辑过]
-- 发布时间：2024/11/6 13:31:00
--
反复测试最后的结果是Reports下面的这个excel文件生成后不能直接关闭，需要先保存