exeへのExcelファイル（xlsからexeへ）

Question

マクロを含むxlsxシートをexeファイルに変換することは可能ですか？私はいくつかのコンバータを試してみるが、すべてのExcelは優れている。このため

Answer 1

コードをメモ帳に貼り付け、VBSファイルとして保存します。ファイルパスとマクロ名も変更してください。それはユーザーの確認から始まります。

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 

enter link description here

読み取り専用のブックを開くには、右のあなたのobjExcelの前に次の行を追加してみてください（ 'ファイルをExcelへの完全なパス' ,, TRUE）.Application.Runライン

セットブック= objExcel.Workbooks.Open