[發問] vba 抓取 javascript:__doPostBack('','')數值每日自動+1問題

本帖最後由 msmplay 於 2018-3-25 09:45 編輯

Sub 查詢每日數據()
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = true
.Navigate "http://xxxxxxxxxxxx/xxx.aspx" '查詢數據網址

Do While .ReadyState <> 4
DoEvents
Loop
.Navigate "javascript:__doPostBack('ct600$phCondition3$cldDate','6656')" '點選查詢日期'6656'代表數字23，也就是當月23號
Application.Wait Now + 2 / 86400 '等待2秒
.document.forms(0).all("ct600_btnConfirm").Click '點選查詢按鈕
End With
End Sub
---------------------------------------------------------------------------------------------------------

以上程式碼已知:
可使用.Navigate "javascript:__doPostBack('ct600$phCondition3$cldDate','6656')"點選網頁日期視窗的日期

問題:
如何讓'6656'這個數值能每日自動+1，以自動取得每日數據，無需人工每日更改數據

例如:
6656 = 23 (代表當月23號)
6657 = 24 (代表當月24號)
6658 = 25 (代表當月24號)
6659 = 26 (代表當月24號)
6660 = 27 (代表當月24號)
6661 = 28 (代表當月24號)
6662 = 29 (代表當月24號)
6663 = 30 (代表當月24號)
6664 = 31 (代表當月24號)
6665 = 1 (代表當月1號)
以此類推.....

樓主熱帖

*宅女一枚無誤*

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

2^#

發表於 2018-3-26 14:50 | 只看該作者

回復 1# msmplay

.Navigate "javascript:__doPostBack('ct600$phCondition3$cldDate','6656')" '點選查詢日期'6656'代表數字23，也就是當月23號

我用2018/3/26的日期轉換是43185,減去36529就是6656,所以請自行調整(因為6656轉換後是1918/3/22)

.Navigate "javascript:__doPostBack('ct600$phCondition3$cldDate',' " & (Format(Date, "0") - 36529) & " ')"

TOP

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

3^#

發表於 2018-3-26 19:10 | 只看該作者

回復 2# jcchiang

j大~~~~真是太厲害了你，實測已成功，非常感謝幫忙喔!!

*宅女一枚無誤*

TOP

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

4^#

發表於 2018-3-27 20:39 | 只看該作者

回復 2# jcchiang

j大~~可以再向你請教一個問題嗎？請問以下需要自動儲存檔案的程式碼你會嗎？
----------------------------------------------------------
Sub 查詢每日數據並下載檔案()
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = true
.Navigate "http://xxxxxxxxxxxx/xxx.aspx" '查詢數據網址

Do While .ReadyState <> 4
DoEvents
Loop

.Navigate "javascript:__doPostBack('ct600$phCondition3$cldDate',' " & (Format(Date, "0") - 36529) & " ')"
Application.Wait Now + 2 / 86400 '等待2秒
.document.forms(0).all("ct600_btnConfirm").Click '點選查詢按鈕

.Navigate "http://10.178.1.140:8023/ReportPage/ReportAgentToDay_28_tptv.aspx" '查詢數據會自動產生於此網址頁面

   Do Until .ReadyState = 4
      DoEvents
   Loop

.document.forms(0).all("ctl00_btnDownload").Click '點選下載按鈕

  '點選下載按鈕後，網頁會彈出下載檔案視窗，詢問"開啟舊檔"、"儲存"、"取消"選項
  '希望能自動儲存至同資料夾並保持原檔名.csv檔(下載檔案為.csv檔)
  '請問以上這段程式碼該怎麼寫呢？
End With
End Sub

*宅女一枚無誤*

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

5^#

發表於 2018-3-28 08:29 | 只看該作者

回復 4# msmplay
我沒有試過從網站下載儲存,有時間我再研究一下
或許站上有其他高手能幫你解決

TOP