Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]excel合并提示错误


  共有177人关注过本帖树形打印复制链接

主题：[求助]excel合并提示错误
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]excel合并提示错误  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/11/6 10:00:00 [只看该作者]

execl文件发上来测试一下

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2024/11/6 10:02:00 [只看该作者]

发布后有提示这个错误

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20241106100135.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/11/6 10:11:00 [只看该作者]

这个文件可能不是xlsx文件，只是扩展名是xlsx而已

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/11/6 10:23:00 [只看该作者]

把这个文件发上来测试一下

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2024/11/6 10:28:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2024/11/6 11:07:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2024/11/6 12:32:00 [只看该作者]

最后排查，应该是excel公式的问题，发现有一列SUM求和公式计算的结果带有绿色小三角，把公式改成一列列直接相加没了小三角现在可以了
[此贴子已经被作者于2024/11/6 12:32:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1386 积分：10683 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2024/11/6 13:31:00 [只看该作者]

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

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04993 秒, 4 次数据查询