[浏览完整版]
标题：[求助]excel合并提示错误
1楼
lgj716330 发表于：2024/11/6 9:15:00增加了一个临时表从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
2楼
有点蓝 发表于：2024/11/6 10:00:00execl文件发上来测试一下
3楼
lgj716330 发表于：2024/11/6 10:02:00发布后有提示这个错误
此主题相关图片如下：微信图片_20241106100135.png
此主题相关图片如下：微信图片_20241106100135.png4楼
有点蓝 发表于：2024/11/6 10:11:00这个文件可能不是xlsx文件，只是扩展名是xlsx而已
5楼
lgj716330 发表于：2024/11/6 10:21:00这个文件是直接通过下面方式生成的
Dim Book As New XLS.Book(ProjectPath & "Attachments\202410版费用成本.xlsx")
Dim fl As String = ProjectPath & "Reports\202410版费用成本.xlsx"
6楼
有点蓝 发表于：2024/11/6 10:23:00把这个文件发上来测试一下
7楼
lgj716330 发表于：2024/11/6 10:28:00可能还是我office版本的问题，装个低点office版本再看看
8楼
lgj716330 发表于：2024/11/6 11:07:00奇怪，做个测试项目，原文件复制出来，并没有问题
9楼
lgj716330 发表于：2024/11/6 12:32:00最后排查，应该是excel公式的问题，发现有一列SUM求和公式计算的结果带有绿色小三角，把公式改成一列列直接相加没了小三角现在可以了
[此贴子已经被作者于2024/11/6 12:32:04编辑过]
10楼
lgj716330 发表于：2024/11/6 13:31:00反复测试最后的结果是Reports下面的这个excel文件生成后不能直接关闭，需要先保存