通用Excel填报的时候，怎么实现点击按钮，把当前报表导出为Excel文件

通用Excel填报的时候，怎么实现点击按钮，把当前报表导出为Excel文件，效果等同于“另存为”




如下图，点击一个自定义按钮，并加入简单VBA代码，即可实现：










VBA代码如下：




Sub 导出Excel()

    Dim obj As Object

           

    Dim book As Workbook

    Dim loc As Variant

    Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

    Application.DisplayAlerts = False

    Sheets("Sheet1").Activate




    ActiveWorkbook.Worksheets("sheet1").Copy




    loc = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="另存为", InitialFileName:=Range("C3"))




    If loc <> False Then

    Set book = ActiveWorkbook

    ActiveWorkbook.SaveAs Filename:=loc, FileFormat:=51

    obj.SaveReport

    MsgBox "导出Excel成功 ", 64, "互和科技"

    book.Close True

    Exit Sub

    End If

    Application.DisplayAlerts = True

           Set obj = Nothing

End Sub







直接复制上述代码，在通用Excel模板上新建一个按钮，然后指定宏即可。

上一篇：在通用Excel上传附件、文档、图片后，再次打开时提示“附件（图片）文件已经被删除!原始错误信息HTTP/1.1 404 Not Found”

下一篇：在安装通用Excel服务端时，提示无法与数据库建立连接。