自動開啟excel檔案

lone_tiger0303

剛在討論區看到版主GBKEE寫到，要在指定時間開啟EXCEL檔案程式寫法：
『將程序複製到ThisWorkbook 模組 存檔後
重新開啟一次檔案即可
Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:00"), "thisworkbook.mywork"
End Sub                                                                                               』
我將其貼到ThisWorkbook 模組 後怎都無反應
請各位前輩指點迷津，謝謝

GBKEE

回復 1# lone_tiger0303
重新開啟的時間需小於(早於) TimeValue("09:00")
mywork 程序也須在ThisWorkbook模組內

lone_tiger0303

GBKEE 我傳個檔案請您幫我看看~~謝謝

GBKEE

回復  lone_tiger0303
重新開啟的時間需小於(早於) TimeValue("09:00")
mywork 程序也須在ThisWorkbook模 ...
GBKEE 發表於 2011-1-23 17:09

Private Sub Workbook_Open()
    Application.OnTime TimeValue("12:30"), "thisworkbook.mywork"
End Sub
thisworkbook 模組內的mywork程序

下載 (37.74 KB)

2011-1-24 16:54

lone_tiger0303

那.....小弟這檔案這樣正確嗎

GBKEE

回復 5# lone_tiger0303
Application.OnTime TimeValue("12:30"), "thisworkbook.mywork"
上式程式碼 在TimeValue("12:30")時 ,執行 thisworkbook模組裡的mywork程序

你的附檔中thisworkbook模組裡,沒有mywork程序
你的附檔中thisworkbook模組裡,沒有mywork程序

lone_tiger0303

唉啊！對歐~~
那我直接說明需求好了，我希望在每天的早上0900時該檔案會自動打開，且必須開啟巨集
這樣要如何寫程式碼呢
要麻煩您解答了，謝謝

Hsieh

回復 7# lone_tiger0303


    每天的早上0900時該檔案會自動打開
這需要利用WINDOWS的排程

開啟檔案要觸發某巨集
就用OPEN事件驅動該巨集
在一般模組
Sub Auto_Open()
   被驅動巨集
End Sub
Sub 被驅動巨集()
   MsgBox  "被驅動了"
End Sub

lone_tiger0303

唉！說的也是！感謝各位幫忙

lone_tiger0303

再請教一下
當檔案開啟時會出現一個"安全性警告"視窗，必須按"啟動巨集"才能進入工作表！
有何方法可以直接執行上述動作直接啟動巨集進入工作表