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

[µo°Ý] °õ¦æ¶¥¬q¿ù»~ '438': ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

[µo°Ý] °õ¦æ¶¥¬q¿ù»~ '438': ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-18 13:54 ½s¿è

µn¤J¥Î.rar (21.05 KB)
  1. Private Sub CommandButton3_Click()
  2. '±b±KÅçÃÒ
  3.     With CreateObject("InternetExplorer.Application")
  4.         .Navigate "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
  5.    
  6.         Do While .Busy Or .ReadyState <> 4
  7.             DoEvents
  8.         Loop
  9.         
  10.         '±b¸¹Äæ¦ì
  11.         .Document.all("username").innerText = "A"
  12.         '±K½XÄæ¦ì
  13.         .Document.all("password").innerText = "B"
  14.         .Document.all("usernamebutton").Click
  15.         .Visible = True
  16.         '.Navigate "http://odis.tycg.gov.tw/HOME/Home_Splitter.aspx"
  17.     End With
  18. End Sub
½Æ»s¥N½X
±b¸¹¦¨¥\¦Û°Ê¥á¤W¥h¡A¨ì¤F±K½X´N¥d¦í¤F¡AÀµ½Ð¤j¤j­ÌÀ°¦£¡AÁÂÁÂ
§Ú·|Ä~Äò¦bºô¸ô¤W´M§ä¸Ñµª¡I

¦^´_ 25# GBKEE


    ÁÂÁª©¥D¹©¤O¬Û§U¡A§¹¦¨¦p¤U
  1.     With Application
  2.         With .VBE.MainWindow
  3.             .WindowState = vbext_ws_Minimize
  4.             .Visible = False
  5.         End With
  6.     End With
½Æ»s¥N½X
¯u¬O¨ü¯q¨}¦h~·P¿E¸U¤À!

TOP

¦^´_ 24# av8d
  1. Option Explicit
  2. Sub Ex()
  3.     With Application                    'Excel ª«¥ó
  4.         .WindowState = xlMinimized      'µøµ¡³Ì¤p¤Æ
  5.       '  .Visible = False                '¨M©wª«¥ó¬O§_¥i¨£:¤£¥i¨£
  6.         With .VBE.MainWindow            'VBAµøµ¡ (Window ª«¥ó)
  7.             .Visible = True             'Alt+F11
  8.             .WindowState = vbext_ws_Maximize        'µøµ¡³Ì¤j¤Æ
  9.                         '= vbext_ws_Normal          'µøµ¡¤@¯ë¤Æ
  10.             Application.Wait Time + #12:00:02 AM#   '¼È°±2¬í
  11.             .WindowState = vbext_ws_Minimize       'µøµ¡³Ì¤p¤Æ
  12.         '    .Visible = False            'Alt+q
  13.         End With
  14.       '  .WindowState = xlMaximized      'µøµ¡³Ì¤j¤Æ
  15.        ' .Visible = True                '¨M©wª«¥ó¬O§_¥i¨£:¥i¨£
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 23# GBKEE


    ÁÂÁª©¥D~·Q¦A½Ð±Ðª©¥D~
¤@¯ë§Ú­Ì¥´¶}EXCEL«á~
«ö¤UAlt+F11·|¥´¶}µ{¦¡½X~
¬O§_¦³³Ì¤p¤Æµ{¦¡½Xªº¼gªk©O?ÁÂÁÂ!

TOP

¦^´_ 22# av8d
  1. Dim IE As Object
  2. Sub CommandButton1_Click()
  3.     Set IE = CreateObject("InternetExplorer.Application")
  4.     With IE
  5.         .Navigate "https://google.com"
  6.         .Visible = False  'ie ¤£Åã¥Ü ´À¥NIE³Ì¤p¤Æªº«ü¥O        
  7.         '.Visible = True   'ie Åã¥Ü
  8.         'IE³Ì¤p¤Æ­n°Ê¥Î¨ìAPI¨ç¼Æ,¥i«ü©w¤W,¥k,°ª,¼e ´À¥NIE³Ì¤p¤Æªº«ü¥O
  9.         '.Top = 1
  10.         '.Left = 1
  11.         '.Width = 1
  12.         '.Height = 1
  13.         Do While .Busy Or .readyState <> 4
  14.             DoEvents
  15.         Loop
  16.     End With
  17. End Sub
  18. Sub Ex() '¨ä¥Lµ{¦¡¤¤©I¥sIE
  19.     MsgBox IE.document.getElementsByTagName("Title")(0).innertext
  20.     IE.Quit
  21.     Set IE = Nothing
  22. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-21 13:27 ½s¿è

¦^´_ 20# GBKEE


    ¸Ñ¨M¤F~
§ÚÅý¶}EXCEL®É¡A¦Û°Ê¶}±Òµ{¦¡½X¡A§Y¥i
  1. Private Sub Workbook_Open()
  2.     On Error Resume Next
  3.     Application.SendKeys ("%{F11}") '«ö¤U Alt+F11 Áä
  4. End Sub
½Æ»s¥N½X
¥u¬O¤£²M·¡¦p¦óÅý¥L³Ì¤p¤Æ¡A§V¤O¬d¸ß¤¤
ª©¥D¨¯­W¤F~ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-21 10:35 ½s¿è

¦^´_ 20# GBKEE


    ª©¥D¦A¦¸³Â·Ð±z~¯u¤£¦n·N«ä~
ªþ¤W¥N½X
  1. Private Sub CommandButton1_Click()
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Navigate "https://google.com"
  4.         .Visible = True

  5.         Do While .Busy Or .ReadyState <> 4
  6.             DoEvents
  7.         Loop
  8.         .Document.Focus
  9.     End With
  10. End Sub
½Æ»s¥N½X
¥H¤W¬O³Ì²©öªºGoogle¶}±Òªººô­¶
-------------------------------------------------
¥H¤U«D±`­«­n~­º¥ý§Ú§â«ö³o«ö¶s©ñ¤W³o­Ó¥N½X«á
Àx¦s¨ÃÃö³¬EXCEL
µM«á­«·s¶}±Ò¡Aª½±µ«ö¤U«ö¶s«á
±z·|¬Ý¨ìGoogleºô­¶«Ü©úÅ㪺¦bEXCEL«á­±
¸Ó¦p¦óÅýºô­¶¦b³Ì¤W¼h©O?
----------------------------------------------------
µo²{¤@­Ó²{¶H~¨C·í¶}±Ò«áºÝµ{¦¡½X°Ï«á
¦A°õ¦æ«ö¶s´N·|¥¿±`±Nºô­¶¦b³Ì¤W¼h
¦ý¬O·íÀÉ®×Ãö³¬¡A¶}±ÒÀɮ׫᪽±µ«ö«ö¶s¡Aºô­¶¤S·|¦A«×¶]¨ìEXCEL«á­±

TOP

¦^´_ 19# av8d
³o¬O¤º³¡ºô­¶.À°¤£¤W¦£.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# GBKEE


    ÁÂÁª©¤j~
¥Ø«e³Ñ¤U°ß¤@°ÝÃD~
¨C¦¸¶}±Ò«áºô­¶Á`¬O¦bEXCEL¤U¼h~
¾É­P°T®§µøµ¡·|¦s¦bªº°ÝÃD
(¦³¨Ï¥Î.Document.Focus)
¨C­Ó¦ì¤l¤]´ú¸Õ¹L¡A¬ÒµL®Ä

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-20 15:46 ½s¿è

¦^´_ 17# av8d
¦p¦óÅý¶}±Òºô­¶«á~Åýºô­¶¬°³Ì¤W¼h

§Aªº°ÝÃD¬O login ¦¨¥\ -> ¶}±Ò¤@·sªºIEªºµøµ¡,µLªk¨ú±o(·sªºIE)ªº¸ê®Æ(¤¸¯À)



¦p ¾÷Ãö¤º³¡¤H¨Æ·~°È¨t²Î-µn¤J §¹¦¨ (µn¤J­n °O¦í¤@¤Ñ ¥H¤W),
  1. With IE
  2.         .Navigate URL 'login
  3.         .Visible = True
  4.         Do While .Busy Or .readyState <> 4:         Loop
  5.         .Document.getElementsByTagName("OPTION")(2).Selected = True '°O¦í¤@¤Ñ
  6.         '©Î¬O
  7.         '.Document.getElementsByTagName("SELECT")(0).Value = "week" '°O¦í¤@­Ó¤ë
  8.    
½Æ»s¥N½X
µ{¦¡½Xª½±µ¶i¤J ¾÷Ãö¤º³¡¤H¨Æ·~°È¨t²ÎªºiIE ,¤£¥²¥Ñµn¤Jºô­¶¶i¤J
¾÷Ãö¤º³¡¤H¨Æ·~°È¨t²ÎªºURL
¥i¦p¹Ï : ¦bIE¥DÅé¤W,«ö¤U¥kÁä, ¿ï¨ú¤º®e,¤º®eªºµøµ¡,·Æ¹«½Æ»sURL
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD