ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¸ß°Ý .WebBrowser1ªº´X­Ó°ÝÃD

¸ß°Ý .WebBrowser1ªº´X­Ó°ÝÃD

¥Ø«e½s¼g §Q¥Îuserform ¬d¸ßexcel ¦WºÙ ªºgooglemap  
(¤£­n°Ý§Ú¬°Ô£¤£ª½±µ¥Î §Úªº¦a¹Ï¤Ï¬d¬O­Ó§|... ¥Î¸g½n«×¤Ï¬d·|§ä¤£¨ì¦aÂI)

¹J¨ì´X­Ó°ÝÃD...
1.maps.google ÅܼƤ@ª½¦b§ïÅÜ ­n¦p¦ó§JªA§ì¨úÃöÁäID°Ñ¼Æ?  
©T©wªºID >> searchbox-searchbutton [·j´Mªº¨º­ÓID] ¸ò searchboxinput [¿é¤J¬d¸ßªº¤å¦r®ØID]  
ÅܰʪºID >> sb_cb50 [¨ú®ø·j´Mªº¨º­Ó«ö¶sID] << ³o­Ó®É¤£®É´N§ïÅÜ¡A­n«çÅý¥L©T©w¡H

2.¦pªG¤£²z·|ÅÜ°ÊID ª½±µ³]©w §ó°Ê«á ª½±µ·j´M¡A±N·|³y¦¨ ·j´M¨ì²Ä¤Gµ§¸ê®Æ®É¡A½w¦sÁÙ°±¯d¦b²Ä¤@µ§¡C
¨Ò¦pcombobox1 ¤º¦³ ´ºÂI1 ¸ò ´ºÂI2
¦pªG³]©w·j´M ´ºÂI1 µM«á«ö¤U·j´MÁä®É WebBrowser1 ·|Åã¥Ü ´ºÂI1ªº©w¦ì
¦ý¦pªG±µµÛ·j´M´ºÂI2 µM«á«ö¤U·j´MÁä®É WebBrowser1 ¤´µMÅã¥Ü ´ºÂI1ªº©w¦ì

                    Set tet(0) = .TextBox1
                    Set tet(1) = .TextBox2
                    Set cmb(0) = .ComboBox1
                    Set cmb(1) = .ComboBox2
                    Set cmb(2) = .ComboBox3
                    

                With .WebBrowser1
               
                    With .Document
                        
                        .GetElementById("searchboxinput").Value = cmb(2).Text  '¦b·j´Mtextbox·j´M ¦WºÙ
                        .GetElementById("searchbox-searchbutton").Click  'ÂIÀ»·j´M©ñ¤jÃ誺«ö¶s
                        .GetElementById("gs_lc50").Click                                  '¨ú®ø·j´M
                        .GetElementById("searchboxinput").Value = cmb(2).Text  '¦b·j´Mtextbox·j´M ¦WºÙ
                        .GetElementById("searchbox-searchbutton").Click  'ÂIÀ»·j´M©ñ¤jÃ誺«ö¶s                     
                         '¥¿±`¨Ó»¡ ¨ú®ø·j´M«á ­«·s¿é¤J·sªº¦WºÙ¡AÀ³¸Ó¬O­n·j´M·sªº¦WºÙ¡A¦ý¥Lªº¼È¦s¨Ì¬Oªº
                        
                        Do
                           DoEvents
                        Loop
                        

                    End With

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

³t«×¤Ó§Ö¡AWebBrowser¨S¤ÏÀ³¹L¨Ó¡C
WebBrowser¬O²§¨Bªº¥[¸üªº¡A³Ì¦n¬O¦b¨C¤@­Ó©R¥O¤§¦Zµ¥«ÝWebBrowser§¹¥þ ...
Joforn µoªí©ó 2020-11-26 22:39



    ·PÁ¦^ÂÐ~
¥Ø«e§ï¦¨¤U¦Cµ{¦¡½X~ ·|±Ò°Ê·j´Mªº¥\¯à(©w¦ì) ¡A¦ý¨ÌÂÂ¥u·|Ū¨ú²Ä¤@¶µ...QQ
¼W¥[¶µ¥Ø>> «öÁä¼ÒÀÀ »P®É¶¡°±¹y
  1.                 With .WebBrowser1
  2.                
  3.                     With .Document
  4.                         
  5.                         '.GetElementById("gs_taif50").Click   
  6.                         
  7.                         .GetElementById("searchboxinput").Value = cmb(2).Text
  8.                         .GetElementById("searchbox-searchbutton").Click
  9.                         
  10.                         .GetElementById("searchboxinput").Value = cmb(2).Text
  11.                                 Application.Wait Now + TimeValue("0:00:05")

  12.                         .GetElementById("gs_lc50").Click
  13.                         Application.OnKey "+^{a}"   '¼ÒÀÀ«öÁä ctrl  + a
  14.                         Application.OnKey "{del}" '¼ÒÀÀ«öÁä del
  15.                         .GetElementById("searchboxinput").Value = cmb(2).Text
  16.                             Application.OnKey "+^{ENTER}"  '¼ÒÀÀ«öÁäctrl + enter
  17.                         .GetElementById("searchbox-searchbutton").Click
  18.                         Do
  19.                             DoEvents
  20.                         Loop
  21.                         

  22.                     End With
  23.                 End With
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2020-11-27 10:31 ½s¿è
¦^´_  mark15jill
§Aªº¥N½X¤¤¦³¤@¥y¡G²Ä¤@¦¸°õ¦æ¦Zµ{¦¡±N¶i¤J¥Ã¤[¦º´`Àô¡A«Øij¥h±¼¡C
Joforn µoªí©ó 2020-11-27 10:16



¥Ø«e§ï¦¨¤U¦Ccode ~
¦ý·|³y¦¨...
¸ê®Æ1 << Ū¨ú¨SÂIÀ»
¸ê®Æ2 << ¦³®ÉŪ¨ú¨ì¸ê®Æ1 ¦³®É¨S¤ÏÀ³
¸ê®Æ3 << ¦³®ÉŪ¨ú¨ì¸ê®Æ1 ¦³®ÉŪ¨ú¨ì¸ê®Æ2 ¦³®É¨S¤ÏÀ³

¦pªG®É¶¡©µ¿ðŪ¨ú³]¸m¹L¤j~ ¤S·|³y¦¨¥d¥dQQ

                With .WebBrowser1
                    
                    With .Document
                        
                        '.GetElementById("gs_taif50").Click
                        
                        .GetElementById("searchboxinput").Value = cmb(2).Text
                        .GetElementById("searchboxinput").Select
                            Application.OnKey "+^{ENTER}"
                        .GetElementById("searchbox-searchbutton").Click
                        '.GetElementById("searchbox-searchbutton").Click
                                                
                        .GetElementById("searchboxinput").Select
                            Application.OnKey "+^{a}"
                            Application.OnKey "+^{del}"
                            Application.OnKey "+^{ENTER}"
                        Application.Wait (Now + TimeValue("0:00:3"))
                            cmb(2).Copy
                        .GetElementById("searchboxinput").Select
                            Application.OnKey "+^{v}"
                           
                        '.GetElementById("searchboxinput").Value = cmb(2).Text
                            Application.OnKey "+^{ENTER}"
                        .GetElementById("searchbox-searchbutton").Click
                        Application.Wait (Now + TimeValue("0:00:3"))
                        
                           
                           
                    End With
                End With


·Pı®Ú¥»¬O§âVBA·í«öÁäºëÆF¦b¼g...

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_  mark15jill
«Ü¤[³£¤£¥ÎWebBrowser±±¥ó¤F¡C¥u¯à¸ò§A¤j­P»¡¤U³B²z¬yµ{¡C
¦bµo°e©R¥O¦Z¡A¤@¯ë¥ÎµM¦ZÁÙ ...
Joforn µoªí©ó 2020-11-27 11:41



    ¨SÃö«Y... §Ú§ï¥Îvb.net¼g¬Ý¬Ý~ ·PÁÂ

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_  mark15jill
«Ü¤[³£¤£¥ÎWebBrowser±±¥ó¤F¡C¥u¯à¸ò§A¤j­P»¡¤U³B²z¬yµ{¡C
¦bµo°e©R¥O¦Z¡A¤@¯ë¥ÎµM¦ZÁÙ ...
Joforn µoªí©ó 2020-11-27 11:41



    «á¨Óµo²{..... ¦³­Ó§ó§Öªº¤èªk¸Ñ¨M...
cmb(0).text >> combobox.text >> ­n¬d¸ßªºª«¥ó

            .Navigate ("about:blank")
            .Navigate ("https://www.google.com.tw/maps/search/" & cmb(0).Text)

¤£ºÞ¥Lªº·j´M¤¸¥ó°Ñ¼Æ¡A±j¨î¼ÒÀÀ¤â°Ê·j´Mªº¤è¦¡...


    ¥u¬O·s²£¥Í´X­Ó°ÝÃD...  
1¡B¥Î¤W­±ªº¤èªk¡AÁöµM·|¦Û°ÊÅܤƻP©w¦ì¡A¥i¬Oµe­±¦]¬°vba»Pie¤¸¥ó¤Á´«Åª¨ú¡A»Ý­nµ¥ªº®É¶¡§ó¤[¡C
2¡Bgooglemap §âid ¸ò span ÁôÂñ¼... ¨Sªkª½±µ¬Ý "¤À¨É" ªºID ¸òÃþ§O

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD