ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
数据管理利器Foxtable2022下载 Excel 2016函数公式学习大典 不用妈妈陪默写神器 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 21685|回复: 20

[求助] 请教如何简单地将VBA代码打包为EXE执行.

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-3-17 15:57 | 显示全部楼层 |阅读模式
因工作需求,需要将多个工作簿内的所有工作表分别生成新的工作簿,但工作簿多的情况下要每个表打开,然后添加宏进行处理非常不方便,能否把这段代码封装成EXE程序,方便使用?
大概想要实现的效果如图片内容:选择需要处理的excel文件,然后点击按钮可以可以执行代码内容.


本人没有VB以及VBA基础..Excel函数也只会一小部分...能否有比较直观简单的方式实现..谢谢!

1.gif

请教大佬.zip (19.21 KB, 下载次数: 126)

TA的精华主题

TA的得分主题

发表于 2017-3-17 18:09 | 显示全部楼层
我电脑用的excel2016,所以只能给你封装个2016的了,经测试可以用。请试用
  1. Private Sub Form_Load()
  2.     Dim xlApp As Object, wb As Workbook
  3.     On Error GoTo GUANBI:
  4.     Set xlApp = CreateObject("Excel.Application")
  5.     FileName = xlApp.GetOpenFilename("所有文件(*.*),", , "请选择文件")
  6.     If Dir(FileName) = "" Then
  7.         msg = MsgBox("必须选择一个要拆分的文件", vbCritical, "错误")
  8.     Else
  9.         Set wb = xlApp.Workbooks.Open(FileName)
  10.         Dim sht As Worksheet
  11.         xlApp.ScreenUpdating = False
  12.         ipath = wb.Path & ""
  13.         For Each sht In wb.Sheets
  14.             sht.Copy
  15.             xlApp.ActiveWorkbook.SaveAs ipath & sht.Name & ".xlsx"
  16.             xlApp.ActiveWorkbook.Close
  17.         Next
  18.         xlApp.ScreenUpdating = True
  19.         wb.Close
  20.     End If
  21. GUANBI:
  22.     If Err.Number <> 0 Then
  23.         MsgBox "执行过程中遇到了未知的错误", vbOKOnly, "错误"
  24.     Else
  25.         MsgBox "完成", vbOKOnly, ""
  26.     End If
  27.     Set xlApp = Nothing
  28.     Unload Me
  29. End Sub
复制代码


批量生产工作簿.zip

6.72 KB, 下载次数: 830

评分

参与人数 1鲜花 +2 收起 理由
ardu95 + 2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-20 09:35 | 显示全部楼层
kldxlb 发表于 2017-3-17 18:09
我电脑用的excel2016,所以只能给你封装个2016的了,经测试可以用。请试用

膜拜大神!!!请问复制这串代码到VB然后封装成EXE就可以了吗?大佬能否大概说明一下代码哪部分是实现哪个功能,方便日后转用到其他地方,谢谢!!!

TA的精华主题

TA的得分主题

发表于 2017-3-20 09:47 | 显示全部楼层
chansonzhou 发表于 2017-3-20 09:35
膜拜大神!!!请问复制这串代码到VB然后封装成EXE就可以了吗?大佬能否大概说明一下代码哪部分是实现哪个功 ...

我那不下面加了成品附件了吗?直接解压用就可以了,实现功能就是你说的 弹窗选取指定Excel文件——依次把每个Sheet另存为新的工作簿

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-20 09:59 | 显示全部楼层
kldxlb 发表于 2017-3-20 09:47
我那不下面加了成品附件了吗?直接解压用就可以了,实现功能就是你说的 弹窗选取指定Excel文件——依次把 ...

恩恩,大佬的附件的确能用,但总不能每次都要麻烦大佬,所以就想在大佬编的代码基础上可以自己改成其他代码方便日后使用.例如我在你编的代码中间看到VBA那一段,如果把这一段改成使用录制编出来的宏代码写上去也能一样使用吗?除了加xlApp.之外....非常感谢大佬的无私分享.

TA的精华主题

TA的得分主题

发表于 2017-3-20 10:08 | 显示全部楼层
chansonzhou 发表于 2017-3-20 09:59
恩恩,大佬的附件的确能用,但总不能每次都要麻烦大佬,所以就想在大佬编的代码基础上可以自己改成其他代码 ...

差不多,把Application换成XlApp应该就可以,具体的可能还需要些小的改动

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-20 10:13 | 显示全部楼层
kldxlb 发表于 2017-3-20 10:08
差不多,把Application换成XlApp应该就可以,具体的可能还需要些小的改动

好的,非常感谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-3-20 11:07 | 显示全部楼层
kldxlb 发表于 2017-3-20 10:08
差不多,把Application换成XlApp应该就可以,具体的可能还需要些小的改动

请问如果我想加个窗体.直接复制到按钮代码里面封装就出现提示..请问该如何调整..本人VB零基础...非常感谢..


问题1.gif


Private Sub DIANJI_Click()
   Dim xlApp As Object, wb As Workbook
        On Error GoTo GUANBI:
        Set xlApp = CreateObject("Excel.Application")
        FileName = xlApp.GetOpenFilename("所有文件(*.*),", , "请选择文件")
        If Dir(FileName) = "" Then
            msg = MsgBox("必须选择一个要拆分的文件", vbCritical, "错误")
        Else
            Set wb = xlApp.Workbooks.Open(FileName)
            Dim sht As Worksheet
            xlApp.ScreenUpdating = False
            ipath = wb.Path & ""
            For Each sht In wb.Sheets
                sht.Copy
                xlApp.ActiveWorkbook.SaveAs ipath & sht.Name & ".xlsx"
                xlApp.ActiveWorkbook.Close
            Next
            xlApp.ScreenUpdating = True
            wb.Close
        End If
GUANBI:
        If Err.Number <> 0 Then
            MsgBox "执行过程中遇到了未知的错误", vbOKOnly, "错误"
        Else
            MsgBox "完成", vbOKOnly, ""
        End If
        Set xlApp = Nothing
        Unload Me
    End Sub
End Sub




TA的精华主题

TA的得分主题

发表于 2017-3-20 11:13 | 显示全部楼层
chansonzhou 发表于 2017-3-20 11:07
请问如果我想加个窗体.直接复制到按钮代码里面封装就出现提示..请问该如何调整..本人VB零基础...非常感谢 ...

你这已经不是0基础了 加我QQ 我给你发截图

TA的精华主题

TA的得分主题

发表于 2017-3-20 11:53 来自手机 | 显示全部楼层
你这个情况完全没有必要封装,VBA本身就能自动打开工作簿进行操作。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2022-5-23 04:47 , Processed in 0.058667 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2022 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表