XL 엑셀 파일을 응용프로그램으로 Excel to App

20211028 2133 

 

REF

[1] "https://www.quora.com/How-do-I-convert-an-Excel-spreadsheet-into-an-app"

[2] "https://blog.naver.com/sseaeagle/221137183483"

[3] "https://m.blog.naver.com/PostView.naver?isHttpsRedirect=true&blogId=sseaeagle&logNo=221139396188"

[4] "https://www.techwalla.com/articles/how-to-turn-an-excel-spreadsheet-into-a-standalone-application"

[5] "https://xlcompiler.com/"

[6] "https://www.exceltoexe.com/"

 

[7] "http://shining.expull.com/2008/08/win32-com-vbscript-wscript.html"엑셀로 VB 코딩한 후, 엑셀 화면 없이 실행시키는 법

 

[7]을 재현한다

(1)엑셀로 가서 VBE를 연다(Alt+F11)

(2)폼을 만든다.

(3)폼에 코드를 입력한다.

(4)모듈에 코드를 입력한다

Sub doTest()   UserForm1.Show End Sub

(5)파일을 저장한다.

"C:\zTemp\20211102.xlsm"

(6)메모장을 연다

(7)아래와 같이 입력한다.

Set Excel = WScript.createObject("Excel.Application") Set TD = Excel.Workbooks.Open("C:\zTemp\20211102.xlsm") Excel.Run "doTest" Excel.Quit

(8)메모장을 저장한다. (note)확장자는 vbs

"C:\zTemp\20211102.vbs"

(9)위 파일을 더블클릭한다.

결과는..

엑셀 없이 위 대화창만 실행된다!

 

(연습문제) 숫자 두 개를 받아서 더하기를 하는 계산기를 만들어 보자. 

 

응용하기

 

Private Sub CommandButton1_Click() 'MsgBox "hello" zrow = [a1] + 1 Cells(zrow, 2) = TextBox1.Value Label1.Caption = "nmb data :" & [a1] End Sub Private Sub CommandButton2_Click() ActiveWorkbook.Save ActiveWorkbook.Close End Sub Private Sub UserForm_Activate() Label1.Caption = "nmb data :" & [a1] End Sub