배치 파일에서 Excel 매크로의 UserForm 만 여는 방법

Question

배치 파일을 통해 Excel 매크로의 UserForm1을 열려고합니다. 나는 그것을 열 수 있지만 Excel도 함께 열리고 있습니다. UserForm1 만 엑셀이 아닌 열리길 원합니다. 내가 배치 파일에서 UserForm1을

Sub open_form() 
    UserForm1.Show 
End Sub 

를 열려면 매크로를 작성했습니다

: 다음은 내 접근 방식이다

@echo off 
cd "c:\Test\" 
openFormTest.xlsm 

위의 방법으로, 둘 다 배치 파일을 실행 해요 때 UserForm1과 Excel이 열려 있지만 UserForm1 만 열려고합니다. 친절하게 밖으로 도와

Answer 1

UserForm을 modeless 모드로 표시 한 다음 응용 프로그램을 숨겨야합니다.

이

Sub open_form() 
    Application.Visible = False 
    UserForm1.Show vbModeless 
End Sub 

시도 중 하나의 버튼에 당신은 다시 true로 설정해야하거나 UserForm_QueryClose 이벤트를

누군가가 정의 폼을 실행하고자하는 경우

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    Application.Visible = True 
    ThisWorkbook.Close SaveChanges:=False 
End Sub 

Answer 2

이 몇 가지 이유가 있습니다 그것은 이렇게하는 것은 좋은 생각이 아니라고 (예 : 처리되지 않은 예외로는 Application.Visible 전에 코드를 충돌하는 True에 재설정)하지만 난 당신이 이런 생각 한 가정합니다 :

Private Sub UserForm_Initialize() 
    Application.Visible = False 
End Sub 

Private Sub UserForm_Terminate() 
    Application.Visible = True 
End Sub 

Private Sub Workbook_Open() 
    UserForm1.Show vbModeless 
End Sub 

Answer 3

"모두를 사용할 수 있습니다 "독립형 응용 프로그램 :

문제점 내가 직면 한 문제 :

1. 엑셀이 읽기 전용으로 잠겨있어 Workbook_Open 이벤트를 사용하고 싶지 않았습니다.
2. 배치 명령은 (필자에게) 매크로를 호출 할 수 없다는 사실이 제한되어 있습니다. 응용 프로그램을 숨기고 (위의 의견에 따라) 동안

은 내가 먼저 내 사용자 정의 폼을 실행하는 매크로를 썼다 : 다음이 매크로를 실행하기 위해 VBS를 만들어

Sub open_form() 
Application.Visible = False 
frmAddClient.Show vbModeless 
End Sub 

(상대 경로와 함께 그 일을) 까다로운되었습니다 :

dim fso 
dim curDir 
dim WinScriptHost 
set fso = CreateObject("Scripting.FileSystemObject") 
curDir = fso.GetAbsolutePathName(".") 
set fso = nothing 

Set xlObj = CreateObject("Excel.application") 
xlObj.Workbooks.Open curDir & "\Excels\CLIENTES.xlsb" 
xlObj.Run "open_form" 

그리고 마침내 VBS를 실행하는 배치 파일을했다 ...

@echo off 
pushd %~dp0 
cscript Add_Client.vbs 

나는 또한이에 "다시 볼 수에 설정"을 포함했다

주 내 Userform_QueryClose :

Private Sub cmdClose_Click() 
Unload Me 
End Sub 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    ThisWorkbook.Close SaveChanges:=True 
    Application.Visible = True 
    Application.Quit 
End Sub