当前位置:首页 > 常见问题
    通用Excel填报的时候,怎么实现点击按钮,把当前报表导出为Excel文件

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


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


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


      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模板上新建一个按钮,然后指定宏即可。



    [返回列表] [ 发布:2022-11-28 10:10:04 ] [ 浏览: ] [ 字体: | ]
  • 根据企业自身需求,量身定制的管理系统更贴合企业管理现状,功能随需而变,从根源上摆脱软件公司的牵制。 自主开发

    根据企业自身需求,量身定制的管理系统更贴合企业管理现状,功能随需而变,从根源上摆脱软件公司的牵制。

  • 通用Excel采用全图文开发界面,无编程无代码,设置表间公式所见即所得,分分钟完成定义表间数据调用。 表间公式

    通用Excel采用全图文开发界面,无编程无代码,设置表间公式所见即所得,分分钟完成定义表间数据调用。

  • 建立或修改流程任务,只需要画个线条即可,其它的复杂程序设置就让智能化的通用Excel来自动完成。 流程管控

    建立或修改流程任务,只需要画个线条即可,其它的复杂程序设置就让智能化的通用Excel来自动完成。

  • 权限设置更加简单便捷,集合了填报、查看数据、修改数据、打印、删除、锁定及解锁等常用权限管理。 权限设置

    权限设置更加简单便捷,集合了填报、查看数据、修改数据、打印、删除、锁定及解锁等常用权限管理。

  • 互和提供全方位的技术支持,有解决不了问题,远程协助搞定,让您在开发过程中无后顾之忧。 技术支持

    互和科技提供全方位的技术支持,有解决不了问题,远程协助搞定,让您在开发过程中无后顾之忧。

网站首页 | 网站地图 | 客服邮箱:kf@sh-huhe.com

上海互和信息科技有限公司 版权所有 Copyright © HUHE. All Rights Reserved.

沪ICP备14023721号

扫一扫,关注“互和科技”微信公众号
互和科技微信公众号