返回列表 上一主題 發帖

[發問] 想請教使用FindWindow按下對話框的"儲存"

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-1-27 14:31 | 只看該作者

[發問] 想請教使用FindWindow按下對話框的"儲存"

我想抓取在google trend 的CSV，但當我點選下載CSV的按鈕時，會先出現對話框，我想點選對話框的"儲存"，但盡量不要用sendkey的方式
如圖

我有google到findwindow來解決，但還是不太知道如何應用
想請問版上各位高手，謝謝
相關網址
google trend:
https://trends.google.com.tw/trends/explore?q=%E5%8F%B0%E7%A9%8D%E9%9B%BB

我找到的相關答案，但看得不是很懂
https://www.mrexcel.com/forum/excel-questions/567033-automate-file-download-dialog-box-without-sendkeys.html
使用findwindow時要先加入

Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

和

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

最後是我的code
  1. Sub googleTrend()

  3. Dim IE As Object
  4. Dim myhtml As Object

  6. [A5].CurrentRegion.Clear

  8. Set IE = CreateObject("InternetExplorer.Application")
  9. Set myhtml = CreateObject("htmlfile")

  11. With IE
  12.     .Visible = False
  13.     .Navigate "https://trends.google.com.tw/trends/explore?q=%E5%8F%B0%E7%A9%8D%E9%9B%BB"
  14.     Do While .Busy Or .readyState <> 4: DoEvents: Loop
  15.    
  16.     Dim doc
  17.     Set doc = .document
  18.    
  19.     Dim myButton
  20.     Dim myButtons
  21.    
  22.     Call delay
  23.     Set myButtons = doc.getElementsByTagName("button")
  24.     For Each myButton In myButtons
  25.         If myButton.getAttribute("title") Like "*CSV*" Then
  26.             myButton.Click
  27.             Call delay
  28.             
  29.             Application.SendKeys ("%{s}")
  30.             Exit For
  31.         End If
  32.         'Debug.Print myButton.getAttribute("title")
  33.     Next
  34.    
  35.     Dim theCSV
  36.     Dim WB
  37.     Dim theData
  38.     theCSV = "C:\Users\User\Downloads" & "\" & "multiTimeline.csv"
  39.     If Dir(theCSV) <> "" Then Kill theCSV
  40.     On Error GoTo errHandler
  41. continue:
  42.     Set WB = Workbooks.Open(theCSV)
  43.     With WB.ActiveSheet
  44.         Set theData = .[A1].CurrentRegion
  45.         ThisWorkbook.Sheets("工作表1").[A5].Resize(theData.Rows.Count, theData.Columns.Count) = theData.Value
  46.     End With
  47.     WB.Close
  48.     Set WB = Nothing
  49.     Kill theCSV
  50.    
  51.     .Quit
  52.     Set IE = Nothing
  53. End With

  55. Exit Sub

  57. errHandler:
  58. On Error GoTo 0
  59. Call delay
  60. GoTo continue

  62. End Sub

  64. Sub delay()
  65. Application.Wait Now() + TimeValue("00:00:03")
  66. End Sub
複製代碼
感謝
收藏 分享
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題