分享一個程式碼，不知道有沒有幫助，我不會寫程式
Private Sub Workbook_Open()
If Time >= TimeValue("09:00:00") And Time <= TimeValue("13:30:00") Then
Sheet1. = "" '每天第一次開啟檔案時清除昨日資料
download
Else
Application.OnTime "09:01:00", "ThisWorkbook.download"
End If
End Sub
Private Sub download() '此程序與 Workbook_Open 同在 ThisWorkbook裡
Dim TimeRange As Range, Rng As Range, R As Range, i%
With Sheet1 ' 間必須已輸入 09:01 - 13:30 的時間
Set TimeRange = .Find(TimeSerial(Hour(Time), Minute(Time), "00"))
Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
For Each R In .Range("D1,D3,F2,D5")
i = i + 1
Rng(i) = R
Next
End With
If Time > TimeValue("13:30:00") Then Exit Sub
Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.download"
End Sub
s95105148 發表於 12-5-14 11:26 static/image/common/back.gif
分享一個程式碼，不知道有沒有幫助，我不會寫程式
Private Sub Workbook_Open()
謝謝您的熱心分享!
甘溫
本帖最後由 s95105148 於 12-5-14 12:05 編輯
版大可以問一下有程式碼是否可以改成
s95105148 發表於 12-5-14 12:04 static/image/common/back.gif
版大可以問一下有程式碼是否可以改成
抱歉!我不會寫程式
我是用公式的方式去實現但很繁瑣和麻煩搞了近一個月才有小成
版大我有抓到一個檔案你研究看看
s95105148 發表於 12-5-14 13:30 static/image/common/back.gif
版大我有抓到一個檔案你研究看看
檔案不能下載ㄋㄟ說要付費但點下去跳到此討論首頁
麻煩CHECK一下!
mead 發表於 12-5-14 14:42 static/image/common/back.gif
檔案不能下載ㄋㄟ說要付費但點下去跳到此討論首頁
麻煩CHECK一下!
好阿寄給你 給我資料吧
s95105148 發表於 12-5-14 19:26 static/image/common/back.gif
好阿寄給你 給我資料吧
謝謝感恩
因一直沒回覆已上網搜到了且也改好準備明天測一下可不可行
不好意思內大大下午有事在忙
s95105148 發表於 12-5-14 19:52 static/image/common/back.gif
不好意思內大大下午有事在忙
沒關係啦有測好再提供給您參考
mead 發表於 12-5-14 20:13 static/image/common/back.gif
沒關係啦有測好再提供給您參考
大大我有寄信到你的信箱囉 謝謝大大
s95105148 發表於 12-5-15 10:38 static/image/common/back.gif
大大我有寄信到你的信箱囉 謝謝大大
已傳請注意查收!
感謝大大分享~~~~{:4_82:} 買了
先聲明, 沒有要替人打廣告,,,,,,
16:30陳X宇 在 CH90 "趨勢大X家" 有開節目, 內容大略提到這個工具.
不過, 我看了二天還是看不出個所以然.有興趣的期友不妨參考看看.
(今天晚上好像有免費講座)
感謝分享 來研究看看...{:4_186:}