vba登入網頁選擇日期下載檔案問題

msmplay

以下是我希望能自動登入公司網站 > 點選查詢日期 > 下載所需數據檔案，但因為是公司內網無法提供測試網頁，想問最後一步自動存檔的程式碼要怎麼接續寫呢？
另外查詢日期javascript:__doPostBack('ctl00$phCondition3$cldDate','6656'這段，該如何讓'6656'這個數字能自動更新，或用什麼方式可以讓數字每天自動+1呢？例如'6656'是今天3/23，希望明天能自動點選'6657'就是3/24當天，後天能自動點選'6658'就是3/25當天...以此類推。

Sub 自動登入()
Dim a As Object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
  .Visible = False
  .Navigate "http://10.178.1.140:8023/Login.aspx" '登入網址

     Do While .ReadyState <> 4
        DoEvents
     Loop

Set a = .document.all.tags("INPUT")
  .document.all.txtUserName.innertext = "xxxxxx" '登入帳號
  .document.all.txtPassword.innertext = "xxxxxx" '登入密碼
  .document.all.btnLogin.Click '點選登入按鈕

     Do Until .ReadyState = 4
        DoEvents
     Loop

  .Navigate "http://10.178.1.140:8023/ConditionPage/ConditionAgentDay.aspx" '查詢數據網址
  Application.Wait Now + 2 / 86400 '等待2秒
  .document.all.ctl00_tvReportListt16.Click '點選進入數據網址的確認按鈕
  Application.Wait Now + 2 / 86400 '等待2秒
  .Navigate "javascript:__doPostBack('ctl00$phCondition3$cldDate','6656')" '點選查詢日期'6656'代表數字23，也就是當月23號
  Application.Wait Now + 2 / 86400 '等待2秒
  .document.forms(0).all("ctl00_btnConfirm").Click '點選查詢按鈕
  Application.Wait Now + 2 / 86400 '等待2秒
  .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