- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 161
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-7-5
               
|
回復 1# chenua
一般模組輸入以下程式碼,存檔後開啟檔案,測試看看- Sub auto_open()'開檔時自動執行此巨集
- GetDDE '呼叫程序
- End Sub
- Sub GetDDE()
- Dim T As Date
- T = Now '取得現在時間
- If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value '工作表1的資料DDE連結成功寫入工作表2
- Application.OnTime T + TimeValue("00:00:02"), "GetDDE" '這是以2秒測試,間隔5分鐘改成TimeValue("00:05:00"),
- End Sub
複製代碼 |
|