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

chansonzhou

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


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



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

2017-3-17 15:56 上传

点击文件名下载附件

kldxlb

我电脑用的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

复制代码

chansonzhou

kldxlb 发表于 2017-3-17 18:09
我电脑用的excel2016，所以只能给你封装个2016的了，经测试可以用。请试用

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

kldxlb

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

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

chansonzhou

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

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

kldxlb

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

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

chansonzhou

kldxlb 发表于 2017-3-20 10:08
差不多，把Application换成XlApp应该就可以，具体的可能还需要些小的改动

好的,非常感谢!

chansonzhou

kldxlb 发表于 2017-3-20 10:08
差不多，把Application换成XlApp应该就可以，具体的可能还需要些小的改动

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





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

kldxlb

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

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

crazy0qwer

你这个情况完全没有必要封装，VBA本身就能自动打开工作簿进行操作。