[µo°Ý] ·Q½Ð±Ð¨Ï¥ÎFindWindow«ö¤U¹ï¸Ü®Øªº"Àx¦s"

iamaraymond

§Ú·Q§ì¨ú¦bgoogle trend ªºCSV¡A¦ý·í§ÚÂI¿ï¤U¸üCSVªº«ö¶s®É¡A·|¥ý¥X²{¹ï¸Ü®Ø¡A§Ú·QÂI¿ï¹ï¸Ü®Øªº"Àx¦s"¡A¦ýºÉ¶q¤£­n¥Îsendkeyªº¤è¦¡
¦p¹Ï

¤U¸ü (4.52 KB)

2018-1-27 14:21

§Ú¦³google¨ìfindwindow¨Ó¸Ñ¨M¡A¦ýÁÙ¬O¤£¤Óª¾¹D¦p¦óÀ³¥Î
·Q½Ð°Ýª©¤W¦U¦ì°ª¤â¡AÁÂÁÂ
¬ÛÃöºô§}
google trend:
https://trends.google.com.tw/trends/explore?q=%E5%8F%B0%E7%A9%8D%E9%9B%BB

§Ú§ä¨ìªº¬ÛÃöµª®×¡A¦ý¬Ý±o¤£¬O«ÜÀ´
https://www.mrexcel.com/forum/excel-questions/567033-automate-file-download-dialog-box-without-sendkeys.html
¨Ï¥Îfindwindow®É­n¥ý¥[¤J

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

©M

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

³Ì«á¬O§Úªº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("¤u§@ªí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

½Æ»s¥N½X

·PÁÂ