- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教报表问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99614)
-- 发布时间：2017/4/22 15:16:00
-- 求教报表问题
我想打开报表，却是这个效果，小虫子求大神帮忙！~感谢
此主题相关图片如下：1.png
此主题相关图片如下：2.jpg
-- 发布时间：2017/4/22 15:21:00
--
报表按钮的代码贴出来看看
-- 发布时间：2017/4/22 15:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考核.rar |
-- 发布时间：2017/4/22 16:21:00
--
导到这个文件的另外一个sheet里了。
一般报表输出不要放在Attachments目录，那是放模板的，最好放在Reports，名称也要和模板的名称区分开来
Tables("日常考核录入").SaveExcel(ProjectPath & "Reports\\基层员工奖励加分记录表2.xls","日常考核录入",False)
Dim Result As DialogResult
Dim Proc As New Process \'打开工作簿
Proc.File = ProjectPath & "Reports\\基层员工奖励加分记录表2.xls"
Proc.Start()
-- 发布时间：2017/4/22 22:46:00
--
老师，感谢您的解决， 您的代码可以将表里的数据显示在excel中。 但是我的意思是想生成一个报表。 有标题、日期、等。求教
-- 发布时间：2017/4/23 11:31:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\基层员工奖励加分记录表.xls")
Dim fl As String = ProjectPath & "Reports\\基层员工奖励加分记录表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()