主题：【求助】怎么让Excel报表模板里面的程序运行

      用Excel报表模板输出功能导出报表需要一些小功能，就有Excel的vba对模板进行了编程，在模板里面添加了一个按钮。类似于宏程序，点击后弹出一个窗口让用户使用，功能已经实现了，

 测试了一下，这样解决。

 

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")

三个步骤都需要做吗？不知道放到那个事件下，自己尝试了一下没成功。

 不可能不成功

 

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

 

2、用代码先生成报表；

 

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

前两个步骤做了，低三个步骤不明白。

把红色代码替换成自己的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")

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")

这段代码是放在生成报表的按钮里面吗？第一的代码成功了，可是不会生成细节区， 刚给的代码提示出错了

每次都要生成一个按钮有什么用呢？