[求助]excel合并提示错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

增加了一个临时表从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

Tables("本期费用占比汇总").ResumeRedraw()

此主题相关图片如下：11.png

此主题相关图片如下：13.png

此主题相关图片如下：12.png

发布后有提示这个错误

此主题相关图片如下：微信图片_20241106100135.png

这个文件是直接通过下面方式生成的

Dim Book As New XLS.Book(ProjectPath & "Attachments\202410版费用成本.xlsx")

Dim fl As String = ProjectPath & "Reports\202410版费用成本.xlsx"

可能还是我office版本的问题，装个低点office版本再看看

奇怪，做个测试项目，原文件复制出来，并没有问题

最后排查，应该是excel公式的问题，发现有一列SUM求和公式计算的结果带有绿色小三角，把公式改成一列列直接相加没了小三角现在可以了

[此贴子已经被作者于2024/11/6 12:32:04编辑过]

反复测试最后的结果是Reports下面的这个excel文件生成后不能直接关闭，需要先保存

两个问题还请帮忙看看

1、项目中我点击“生成excel报表”，报表打开后直接关闭，再点“提取数据”就会出错，报表打开后必须得先点击保存才行。但经常会忘记点保存，有什么办法自动保存。问题是Attachments下报表模板中T列到AF列的公式造成的，取消公式也是没问题的。

2、第二个问题是一直困扰我的问题，也跟上面第一个问题有关系。就以T列为例，T列公式按正常应该是“='C2费用'!F4”，但这里设置公式总是要往前移一列才行（只要是列和列间的计算都要前移一列），因为这个问题以前在弄excel模板的时候经常导致出错。说明下，我这里的模板不是通过“打印输出--设计模板”这里设计的，是直接在Attachments文件夹中打开设计的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

【生成excel报表】这个按钮完全就是多余的。不是的，只是测试简化了，实际的Attachments中文件是有直接统计的设置的，如[$基础数据汇总一,Sum(实销金额)]。前面几张表都是通过直接统计等方式提取数据的，只是测试项目这里都删除了

[此贴子已经被作者于2024/11/9 11:18:03编辑过]

主题：[求助]excel合并提示错误