导出的Excel文件中加入宏命令。(BS结构)

Question

我现在需要做一个导出页面数据行到EXCEL并要求加入一段宏命令：Sub Macro1()
'
' Macro1 Macro
' 宏由 user 录制，时间: 2008-11-28
''
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$5"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.748031496062992)
        .RightMargin = Application.InchesToPoints(0.94488188976378)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 80
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub这段宏命令的目的是导出文件在打印的时候控制表头（也就是前五行）不动，让打印出来的每一页上面都有表头。导出功能已实现了，现在的问题是如何在导出的这个EXCEL中加上上面那个宏命令，请大家指教！

Answer 1

可以 做模板的，在模板上用宏 就可以，好想com接口 里面有个属性 是宏

Answer 2

我现在的做法是先创建一个模板excel,在里面录制了这段宏。然后在页面我调用EXCEL.DLL新建一个空excel文件，再使用fileinfo的copyTo方法，将模板里面的宏整体拷贝到这个新的空EXCEL里面，再往新的excel里面填充数据。这样想法倒可以，不过运行的结果不理想，无法达到要求。   有没有其他更好的解决办法啊？

Answer 3

有过类似要求,不过是这样的建一个模板excel,已经包含了这个宏,(a.xls)然后需要的时候,程序cpoy一个这个文件(a.xls)到别处   want.xls
然后填入数据就可以了,本身的东西只要针对性比较好,就可以了不知道这个可以不,貌似偶说的没技术含量...-_-|||

Answer 4

运行结果不理想???不太明白...偶用的时候还可以..为了显眼,sheet1中还有button..