excel 标题代码为 <"【"&[!kh]&"】"&[!rq1]&"至"&[!rq2]&"统计表"> - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

专家坐堂" />

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel 标题代码为 <"【"&[!kh]&"】"&[!rq1]&"至"&[!rq2]&"统计表">

共有4205人关注过本帖树形打印复制链接主题：excel 标题代码为 <"【"&[!kh]&"】"&[!rq1]&"至"&[!rq2]&"统计表">

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/30 20:36:00 [显示全部帖子]

为空是什么意思？你在生成之前，赋值为一个初始值呗。

比如

vars("kh") = ""

vars("rq1") = ""

vars("rq2") = ""

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/30 21:42:00 [显示全部帖子]

看2楼，赋值啊

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/30 21:46:00 [显示全部帖子]

上传例子

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/30 21:58:00 [显示全部帖子]

vars("khmc")=e.Form.Controls("khname").text
vars("rqa")=e.Form.Controls("startdate").text
vars("rqb")=e.Form.Controls("enddate").text

Dim Book As New XLS.Book(ProjectPath & "Attachments\查询.xls")
Dim fl As String = ProjectPath & "Reports\查询.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
App.Visible = False
App.Caption = "汉思软件"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit