Excel文件exe（xls到exe）

是否有可能将xlsx表格与macros转换为exe文件而无需打开excel？ 我尝试了一些转换器，但都打开excel。

Answer 1

将代码粘贴到记事本中并保存为VBS文件。 还要更改文件path和macros名称。 它从用户确认开始。

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中运行macros，如下所示 –

 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 

在这里input链接描述

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

设置书= objExcel.Workbooks.Open（'完整path到Excel文件'，真）