如果有人想運行一個用戶窗體「一點通「一個獨立的應用程序:
我正面臨的問題:
- 我不想使用Workbook_Open事件,因爲excel被鎖定爲只讀。
- 批處理命令是有限的,(據我所知)它不能調用宏的事實。
我第一次寫一個宏來啓動我的用戶窗體隱藏應用程序(基於上面您的意見),同時:
Sub open_form()
Application.Visible = False
frmAddClient.Show vbModeless
End Sub
然後,我創建了一個VBS推出這款宏(使用相對路徑做一直是棘手的):
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
Application.Visible = false會隱藏所有打開的excel工作簿,有沒有什麼建議? – Michael