執行擋問題

gca78000

請問各位高手用VBA做成執行檔如下
為何打開工作表無法直接在UserForm1.Label1中輸入滑鼠點一下又可以
請問要如何改才能打開工作表就直接可以在UserForm1.Label1中輸入而不用再用滑鼠點一下
執行擋VBA如下
Dim alllen
Dim time
Private Sub userform_queryclose(cancel As Integer, closemode As Integer)
If closemode <> 1 Then cancel = 1
End Sub
Private Sub CommandButton1_Click()
Unload Me
Set MyXlsApp = CreateObject("excel.application")
MyXlsApp.Visible = True
MyXlsApp.Workbooks.Open "D:\日期2.xls"
End
End Sub