Foxtable(狐表)用户栏目专家坐堂 → 3.28版模板EXCEL报表出现错误提示


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

主题:3.28版模板EXCEL报表出现错误提示

帅哥哟,离线,有人找我吗?
易服
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
3.28版模板EXCEL报表出现错误提示  发帖心情 Post By:2010/3/28 21:48:00 [显示全部帖子]

3.28版模板EXCEL报表出现错误提示

图片点击可在新窗口打开查看此主题相关图片如下:2010-3-28 21-31-11.png
图片点击可在新窗口打开查看
以前从未有过,不是所有模板EXCEL报表出现错误提示。

 回到顶部
帅哥哟,离线,有人找我吗?
易服
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
  发帖心情 Post By:2010/3/28 22:16:00 [显示全部帖子]

1、生成空表
With Tables("总览")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\竣工一览表.xls") '打开模板
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\竣工一览表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File =ProjectPath & "Reports\竣工一览表.xls"
Proc.Start()

图片点击可在新窗口打开查看此主题相关图片如下:2010-3-28 21-59-56.png
图片点击可在新窗口打开查看
2、涉及到表达式列的报表有的出现一楼的错误提示,连续不断地点击“确定”直到错误提示消失,报表还是能出现。如
With Tables("总览")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\设计一览表.xls") '打开模板
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\设计一览表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File =ProjectPath & "Reports\设计一览表.xls"
Proc.Start()
3、例子不太好做
[此贴子已经被作者于2010-3-28 22:18:17编辑过]

 回到顶部