Dim tempBatchPath As String  ' 声明一个字符串变量tempBatchPath，用于存储临时批处理文件的路径
	tempBatchPath = "d:\temp_call_script.bat"  ' 临时批处理文件的路径，并赋值给tempBatchPath变量
    ' 创建临时批处理文件
    Dim fileNum As Integer  ' 声明一个整数变量fileNum，用于获取一个未使用的文件号
    fileNum = FreeFile()  ' 调用FreeFile函数获取一个未使用的文件号，并赋值给fileNum变量
    Open tempBatchPath For Output As fileNum  ' 打开tempBatchPath指定的文件，用于写入，并指定文件号为fileNum
    Print #fileNum, "@echo off"
    Print #fileNum, ExtractDriveLetter(macroPath) '向临时批处理文件写入盘符，确保盘符与cd的路径一致
    Print #fileNum, "cd " & macroPath  ' 向临时批处理文件写入命令"cd"，后面跟上macroPath变量表示的路径，用于改变工作目录到VBA宏所在目录
    Print #fileNum, "call """ & batchPath & """"  ' 向临时批处理文件写入命令"call"，后面跟上batchPath变量表示的批处理脚本路径，用于调用该脚本
    Close fileNum  ' 关闭文件号为fileNum的文件
复制代码