使用bat命令，一键打开Excel表格，自动调用VBA代码功能

花生壳

现实需求：
使用Excel表格的VBA编程，既可以通过手动点击按钮等动作，触发运行VBA代码功能；
也需要通过命令行控制，自动执行VBA代码，实现一键执行或供其它程序调用。
（比如仓库管理工作中，可能在月底做汇总、结转、对账等，可以写好代码一键执行）

解决思路：
1. 手动执行VBA功能，只需要在Excel中增加绑定宏的按钮即可，由操作者点击相应的按钮。
2. 通过命令执行，是为了一键执行或供其他工具调用，解决思路为：调bat文件，bat文件通过打开Excel执行VBA功能。

步骤如下：
1.写一个bat批处理命令文件，用于打开Excel表格，同时设置标识参数，用于标识是bat打开的：


2.制作一个Excel工作薄文件，在VBA中增加workbook的open事件，此事件会在文件打开时触发：


3.编写VBA代码检查是否为cmd命令打开表格，根据不同的打开方式执行相应功能，代码如下：

1. ' 32 位系统为
   
2. ' Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long
   
3. ' Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)
   
4. ' Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
   
5. ' 64 位系统为
   
6. Private Declare PtrSafe Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As LongPtr
   
7. Private Declare PtrSafe Function lstrlenW Lib "kernel32" (ByVal lpString As LongPtr) As LongPtr
   
8. Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As LongPtr)
   
9. 
   
10. Private Sub Workbook_Open()
    
11.     Dim CmdMsg  As String
    
12.     CmdMsg = "/batOpen" '命令行传递来的参数标识，与bat文件中的参数一致
    
13.    
    
14.     Dim CmdRaw  As LongPtr
    
15.     CmdRaw = GetCommandLine()
    
16.     Dim CmdLine As String
    
17.     CmdLine = CmdToSTr(CmdRaw)
    
18.     On Error Resume Next '这句是必须的，防止非bat打开，下面代码会报错
    
19.     Dim paraPos As Integer
    
20.     paraPos = WorksheetFunction.Search(CmdMsg, CmdLine, 1) '检查打开方式
    
21.     If paraPos > 0 Then
    
22.         MsgBox "bat"
    
23.     Else
    
24.         MsgBox "man"
    
25.     End If
    
26. End Sub
    
27. 
    
28. '被调用的子函数 , 用来将命令行参数转换成字符串类型
    
29. Function CmdToSTr(Cmd As LongPtr) As String
    
30.     Dim Buffer() As Byte
    
31.     Dim StrLen   As LongPtr
    
32.     If Cmd Then
    
33.         StrLen = lstrlenW(Cmd) * 2
    
34.         If StrLen Then
    
35.             ReDim Buffer(0 To CInt(StrLen - 1)) As Byte
    
36.             CopyMemory Buffer(0), ByVal Cmd, StrLen
    
37.             CmdToSTr = Buffer
    
38.         End If
    
39.     End If
    
40. End Function

复制代码

执行效果：
分别使用bat命令打开Excel表格，以及手动打开Excel表格，执行的效果如下：

1.手工打开表格弹窗


2.命令打开表格弹窗


最终文件：
实现使用bat命令，一键打开Excel表格，自动调用VBA代码功能，代码并不复杂，只是做为基本的演示。
附件是制作好的bat调用命令文件，以及Excel测试表格，可以在此基础上，扩展执行任意自动化操作。

我是赖赖生的

感谢楼主分享

zjxte

这个真是不错；
半自动了

……_IGYF

感谢分享，学习了！

雪浪王子

刚开始接触学起来太困难了

人生好运

谢谢分享。。。。。

lqq8906

谢谢分享....

webjiang

非常实用，感谢分享。

有梦路亚

非常实用，感谢分享。

咁系』种feel

谢谢楼主分享!