【求助】怎么让Excel报表模板里面的程序运行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】怎么让Excel报表模板里面的程序运行

共有5591人关注过本帖树形打印复制链接主题：【求助】怎么让Excel报表模板里面的程序运行

有点甜

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

加好友

发短信

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

Post By：2015/2/26 18:11:00 [显示全部帖子]

测试了一下，这样解决。

1、在模板上加入一个宏，比如代码如下

Sub test()
UserForm1.Show
End Sub

2、用代码生成报表，但不要显示出来 http://www.foxtable.com/help/topics/1145.htm

3、用下面的代码设置按钮进去、以及运行对应的宏

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test_test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True

Ws.Buttons.Add(183.75, 141, 54, 18.75).Select
app.Run("test")

有点甜

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

加好友

发短信

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

Post By：2015/2/26 19:20:00 [显示全部帖子]

不可能不成功

1、代码写到宏的某个模块里面；

2、用代码先生成报表；

3、用代码打开生成的报表，加入按钮，运行窗口

有点甜

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

加好友

发短信

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

Post By：2015/2/26 19:25:00 [显示全部帖子]

把红色代码替换成自己的xls就行啊

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test_test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True

Ws.Buttons.Add(183.75, 141, 54, 18.75)
app.Run("test")

[此贴子已经被作者于2015/2/26 19:24:57编辑过]

有点甜

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

加好友

发短信

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

Post By：2015/2/26 19:48:00 [显示全部帖子]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Documents and Settings\Administrator\My Documents\下载\模板\模板\成绩报表模板.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True

ws.Buttons.Add(18.75, 28.5, 102.75, 39).Select
app.ActiveWindow.Selection.
app.ActiveWindow.Selection.Characters.Text = "导出成绩"
app.Run("test")