Excel文件到exe (xls到exe)

Question

是否可以在不打开excel的情况下将具有宏的xlsx表转换为exe文件？我试过一些转换器，但都打开了excel。

Answer 1

将代码粘贴到记事本中，并保存为VBS文件。还可以更改filepath和宏名。它从用户确认开始。

Option Explicit

Dim xlApp, xlBook
dim x


x=msgbox("Do You want to run the macro",4+64+0+4096,"Confirmation...")

if x= vbyes then

Set xlApp = CreateObject("Excel.Application")

'~~> Change Path here to your excel file
Set xlBook = xlApp.Workbooks.Open("C:\Users\Deb\Desktop\contactlist2.xlsm", 0, True)

'~~> Change macro name

xlApp.Run "check_data" 

xlbook.save

xlBook.Close

xlApp.Quit

Set xlBook = Nothing

Set xlApp = Nothing

WScript.Echo "Finished."

WScript.Quit

end if

Answer 2

为此，您可以尝试从外部excel运行宏，如下所示-

Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Run "'full path to excel file'!module name.macro name"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing

在这里输入链接描述

若要打开只读工作簿，请尝试在objExcel.Application.Run行之前添加以下行

设置book =objExcel.Workbooks.Open(“excel文件的完整路径”，TRUE)