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

iamaraymond

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

下載 (4.52 KB)

2018-1-27 14:21

我有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()
   
2. 
   
3. Dim IE As Object
   
4. Dim myhtml As Object
   
5. 
   
6. [A5].CurrentRegion.Clear
   
7. 
   
8. Set IE = CreateObject("InternetExplorer.Application")
   
9. Set myhtml = CreateObject("htmlfile")
   
10. 
    
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
    
54. 
    
55. Exit Sub
    
56. 
    
57. errHandler:
    
58. On Error GoTo 0
    
59. Call delay
    
60. GoTo continue
    
61. 
    
62. End Sub
    
63. 
    
64. Sub delay()
    
65. Application.Wait Now() + TimeValue("00:00:03")
    
66. End Sub

複製代碼

感謝