- 帖子
- 53
- 主題
- 16
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- OFFICE 2000
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-6-6
- 最後登錄
- 2015-12-10
|
執行擋問題
請問各位高手用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 |
-
-
日期2.rar
(14.19 KB)
|
發表於 2014-11-20 20:05
| 
