iT邦幫忙

0

抓取網路資料跨日VBA寫法

  • 分享至 

  • xImage

請教板上各為高手,
如果要用excel抓取網路即時資料,跨隔日的要如何製作??謝謝
要從下午1點到次日2點,是這樣寫嗎?
Sub ()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
If Now >= (Today() + 0 + TimeValue("13:00:00")) And Now <= (Today() + 1 + TimeValue("02:00:10")) Then
End If
End Sub

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

2 個回答

0
海綿寶寶
iT邦大神 1 級 ‧ 2022-06-07 15:42:08

我看不懂你所謂的「即時」資料和「跨隔日」的意思
時間範圍是「資料」的時間範圍還是「執行程式」的時間範圍

以下是兩個時間點(當日13:00及次日02:00)的產生方式供參考
https://ithelp.ithome.com.tw/upload/images/20220607/20001787BQpRK08l3J.png

另外
先前的問題如果已解決了
請選個最佳解答以結案

牽牛 iT邦新手 5 級 ‧ 2022-06-07 16:15:54 檢舉

我是要從下午1點抓資料~抓到次日2點,請問是用您分享的這個方式嗎?謝謝

我寫的只有取得「今天下午1點」和「明天凌晨兩點」兩個時間點的方式
要如何應用(在 if 裡怎麼使用,跟誰比較)要看你自己了

0

一般比較不能設計成所謂的「跨隔日」
一律都要依當日來判斷。

所以依照你的需求就是兩個時間區段。

一個是 00:00:00 ~ 02:00:00 。這個區段抓到的日期,要扣1天。
再來就是 13:00:00 ~ 23:59:59 。
這段時間的日期依當日計算。

牽牛 iT邦新手 5 級 ‧ 2022-06-09 13:38:37 檢舉

請問這兩個時段是寫再一起?還是要分兩個檔案弄??
如果是寫再一起~請教這如何寫呢?

我要發表回答

立即登入回答