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

(µo°Ý)WEB¬d¸ß¡A¦p¦ó¨ú®ø¸õ¥XªºÄµ§iµøµ¡

(µo°Ý)WEB¬d¸ß¡A¦p¦ó¨ú®ø¸õ¥XªºÄµ§iµøµ¡

¦U¦ì¥ý¶i¡A¤p§Ì¦³¨Ï¥ÎWEB¬d¸ßºô­¶¸ê®Æ¡A¦ý±`±`·|¦]¬°ºô¸ô³s½u¤£¨}¡A¥X²{¥H¤U°T®§¡G

"¦¹WEB¬d¸ß¨S¦³¶Ç¦^¸ê®Æ¡A­n­×§ï¬d¸ß¡A«ö[½T©w]¡A«ö¸ê®Æ½s¿è¦C¤Wªº¦WºÙ¤è¶ô¤¤ªº¥~³¡¸ê®Æ½d³ò¡AµM«á«ö[¥~³¡¸ê®Æ]¤u¨ã¦C¤Wªº[½s¿è¬d¸ß]¡C"

¥²¶·±N³o°T®§ÂI±¼¡A¤~¯àÄ~Äò§ó·sWEB¬d¸ßªº¸ê®Æ¡A±`±`µ{¦¡¶]¤@¥b¥d¦í¡A«D±`§xÂZ¡C
¦³¸Õ¹LApplication.DisplayAlerts = False ©Î Application.EnableEvents = false©ÎOn error resume  next
¤£¹L³£¨S¦³¥Î¡A½Ð¦U¦ì¥ý¶i«üÂI¤@¤U¡A·P¿E¤£ºÉ¡C

¦^´_ 19# faye59

·PÁÂ
faye59¤j¤j
³o»ò²Ó¤ßªº¸Ñµª«ü¾É...
Åý§Ú¾Ç²ß¤£¤Ö,¸Ñ´b°ÝÃD
ÁÂÁÂ!!
   
¤p§Ì ¦³ªþÀÉ...   test1.rar (12.31 KB)
¦A½Ð±Ð
·PÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 18# 7777


    ºô§}3­Óªº¸Ü­n¬Ý§AŪ¨ú¶¶§Ç¡A²q§AÀ³¸Ó³£¬O¤À§åŪ¨ú§a¡A¥u­n¦bºô§}¦a¤è§ï¦¨¦r¦ê¦A¥Î°j°é¤è¦¡­«½Æ³o¬qµ{§Ç§Y¥i¡A
©Î¬O§A¥i¥Hªþ¤W§Aªº³Ì·s¶i«×ÀɮסA³o¼Ë¤ñ¸û²M·¡§Aªº°ÝÃDÂI¡C
¨ä¹ê³o¬qµ{§Ç¥u¬OÅý§A´ú¸Õ¥Î¡A±q²Ä7¦C¶}©l¤~¬O­«ÂI¡C
  1. Sub test()
  2.     Dim oie As Object: Set oie = CreateObject("internetexplorer.application")
  3.     With oie
  4.         '.Visible = True '³o³¡¤Àµù¸Ñ±¼¤]¨SÃö«Y¡Aµù¸Ñ±¼¤£·|Åã¥Ü­I´ºÁÙ¬O·|°õ¦æ¸òFalse¤@¼Ë¡A¦]¬°´ú¸Õ©Ò¥H»Ý¶}±Òµe­±½T»{«áÄòµ{§ÇµL»~
  5.         .Navigate "" '¿é¤Jºô§}
  6.         Do While .readystate <> 4 Or .busy: DoEvents: Loop
  7. Set wshshell = CreateObject("wscript.shell") '¤Þ¥Î¨ä¥¦ª«¥ó¡A©I¥s¨ä¥¦À³¥Îµ{¦¡

  8. Do '°j°éÀ³¥Îµ{¦¡¤¤«ü©wª«¥ó
  9.     ret = wshshell.AppActivate("Microsoft Excel") '§ä´M¤Þ¥Îª«¥ó¦WºÙ¡A¦pªG¸õ¥Xµøµ¡¼ÐÃD¬O"ºô­¶°T®§"­×§ï¦¨Äµ§i°T®§¼ÐÃD
  10.     '³¯­z¦¡AppActivate¼ÐÃD [µ¥«Ý]
  11. Loop Until ret = True '·íret¦³­È®Éµ²§ô°j°é

  12.     Application.Wait Now + 2 / 86400 '³o³¡¤À¨ä¹ê¥i¥H¤£µ¥«Ý
  13.     ret = wshshell.AppActivate("Microsoft Excel")
  14.         If ret = True Then
  15.                    ret = wshshell.AppActivate("Microsoft Excel")
  16.                 Application.Wait Now + 2 / 86400 '³o¸Ì¤@©w­nµ¥«Ý2¬í¡A¨ä¹ê®É¶¡¤£¤@©w¡A¥u¬OSendKeys³o­Ó°Ê§@±`±`µo¥Í¤£Ã­©w©Ê°ÝÃD¡A½T«Oµ{§Ç¨S°ÝÃD¤~°õ¦æenter³o°Ê§@
  17.                 wshshell.SendKeys "{enter}" '¹ïĵ§i°T®§µøµ¡«ö¤UÁä½Lenter«öÁä
  18.         End If
  19.         Application.Wait Now + 2 / 86400 'µ¥«Ý2¬í
  20.         Do While .readystate <> 4 Or .busy: DoEvents: Loop '½T»{ºô­¶¸ü¤J§¹¦¨
  21.         .Quit 'Ãö³¬ºô­¶
  22.     End With
  23. End Sub
½Æ»s¥N½X
¥H¤W¬O§Ú¥H«e±q³Â»¶®a±Ú¬Y­Ó¦a¤èCopy¹L¨Óªº(§Ñ°O¨Ó·½¤F...©êºp)¡A§Ú¹ê»Ú¥Î¤W¬O°w¹ï·|¸õ¥Xĵ§iµøµ¡¦a¤è¥[¤J¥H¤Uµ{§Ç§Y¥i¡C
  1. Set Wshshell = CreateObject("wscript.shell")'·s¼WWshshell¬°©I¥s¨ä¥¦À³¥Îµ{¦¡ª«¥ó
  2. Application.Wait Now + 2 / 86400'µ¥«Ý2¬í
  3. ret = Wshshell.AppActivate("ºô­¶°T®§")'retÀ³¥Îµ{¦¡¤¤¬O§_¦³"ºô­¶°T®§"Title
  4. If ret = True Then'½T»{¦³°õ¦æ
  5. Wshshell.SendKeys "{enter}"'Áä½L¾Þ§@enter«ü¥O
  6. End If
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 17# faye59

faye59¤j¤j  ·PÁ§A ¼·¤¾¨ó§U
<<¸Õ¸Õ¬Ý§a!>> ¦n¹³«Ü²³æ
¤£À´¤U¡A¤£´±ÀH«Kµo°Ý¡A
´NÁÙ¬O¥ý..ª¦¤Fª¦¤å¡A¸Õ¤F¸Õ ¡]2¤Ñ¡^...... ÁÙ¬O¤£À´

§Ú¸Ó ¦p¦ó.... ·»¤J­ì¥ýªº  Sub °»´ú() ¤º

Sub test()
    Dim x   
    Dim oie As Object: Set oie = CreateObject("internetexplorer.application")
    With oie
        .Visible = True   '§Ú ­n§ï False ¤£Åã¥Ü ªí²{
        .Navigate ""       ' ³o¬O ­n©ñºô§}¶Ü??  ¦p¦³ 3­Ó ºô§}...ªº¸Ü  ¸Ó???
        Do While .readystate <> 4 Or .busy: DoEvents: Loop
Set wshshell = CreateObject("wscript.shell")

Do
    ret = wshshell.AppActivate("Microsoft Excel")
Loop Until ret = True

    Application.Wait Now + 2 / 86400    'µ¥«Ý 2¬í
    ret = wshshell.AppActivate("Microsoft Excel")
        If ret = True Then
                   ret = wshshell.AppActivate("Microsoft Excel")
                Application.Wait Now + 2 / 86400
                wshshell.SendKeys "{enter}"
        End If
        Application.Wait Now + 2 / 86400
        Do While .readystate <> 4 Or .busy: DoEvents: Loop
        .Quit
    End With
End Sub

½Ð  faye59¤j¤j À°¦£  ·PÁÂ!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 16# 7777


    ¸Õ¸Õ¬Ý§a!
  1. Sub test()
  2.     Dim x
  3.     Dim oie As Object: Set oie = CreateObject("internetexplorer.application")
  4.     With oie
  5.         .Visible = True
  6.         .Navigate ""
  7.         Do While .readystate <> 4 Or .busy: DoEvents: Loop
  8. Set wshshell = CreateObject("wscript.shell")

  9. Do
  10.     ret = wshshell.AppActivate("Microsoft Excel")
  11. Loop Until ret = True

  12.     Application.Wait Now + 2 / 86400
  13.     ret = wshshell.AppActivate("Microsoft Excel")
  14.         If ret = True Then
  15.                    ret = wshshell.AppActivate("Microsoft Excel")
  16.                 Application.Wait Now + 2 / 86400
  17.                 wshshell.SendKeys "{enter}"
  18.         End If
  19.         Application.Wait Now + 2 / 86400
  20.         Do While .readystate <> 4 Or .busy: DoEvents: Loop
  21.         .Quit
  22.     End With
  23. End Sub
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 4# GBKEE


½Ð±Ð~GBKEE¤j¤j
§Ú¤]¦³¬Û¦P±¡§Î?¥i§_À°¦£¨ó§U¤@¤U

¸õ¥X ĵ¥Ü"µøµ¡" ¡A
¦p¦ó ¦Û°ÊÃö³¬µøµ¡¡A¤£¼vÅT¤U¥B Ä~Äò¥¨¶°§@·~~~

¥¨¶°§@·~ ¬O
¬Y­Óºô­¶ ¨C15¬í§ó·s¤@¦¸
ActiveWorkbook.RefreshAll

¦³®É·|¸õ¥Xµøµ¡ "µLªk¶}±Ò  ........." ¤§µøµ¡
¥i¥H¥[¤°»ò
±N µøµ¡
¦Û°ÊÃö³¬µøµ¡¡A¤£¼vÅT¤U¥B Ä~Äò¥¨¶°§@·~~~

¾É¤J 4# ªº¤º®e¡A¤£³Ó¤F¸Ñ
ÁٽР¤j¤j «üÂI¤@¤U¡A·PÁÂ~

eeee2221.jpg
2018-8-9 15:41


Sub °»´ú()

On Error Resume Next
        Application.OnTime Now + TimeValue("00:00:15"), "°»´ú"
        ActiveWorkbook.RefreshAll

        'http://info512.taifex.com.tw/Future/VIXQuote_Norl.aspx
        '¦Û°ÊÃö³¬µøµ¡¡A¤£¼vÅT¤U¥B Ä~Äò¥¨¶°§@·~~~


End Sub

ÁٽР¤j¤j «üÂI¤@¤U¡A·PÁÂ~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

·PÁÂg¤j¸Ñµª
­ì¨Ó³sÄòªºrefresh¥¢±ÑµLªk³B²z,Ãø©Ç¤W¦¸§ó§ï¥N½X¶}©l¦ì¸m,·|¤@¤U¥¿±`,¤@¤U¤£¥¿±`

TOP

¦^´_ 13# blue2263
¥H¤U¬O§Úªº¨£¸Ñ
  1.    On Error GoTo 101 '   'web ¬dµL ¨ì¤U¤@­Ó¥N½X  
  2. ** ³æ¤@¦¸ªºRefresh¥¢±Ñ On Error GoTo 101 ¥i¥H³B²z
  3. ** ¦ý³sÄòªºRefresh¥¢±Ñ On Error GoTo 101 µLªk³B²z(µL¸Ñ)
  4.              .Range("az7").QueryTable.Refresh BackgroundQuery:=False
  5. QueryTable.Refresh BackgroundQuery:=False           
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ blue2263 ©ó 2014-2-24 23:47 ½s¿è

ÁÂÁÂj¤j¸Ñµª
§Ú±Nµ{¦¡½X§ï¬°,On Error Resume Next
µM«á¥[¤@IF§PÂ_,§PÂ_¸ê®ÆµL§ó§ï,´N¸õ¶},´ú¸Õ
¬Ý°_¨Ó¬O¨S°ÝÃD,¿ù»~°T®§¤£·|¶]¥X,¥B¸õ¥X,
§Ú¬O·s¤â,¤£ª¾§Ú³o¼Ë§ï,·|¤£·|¦³¤°»ò°ÝÃD?
ÁٽЫü±ÐÁÂÁÂ!!

µ{¦¡½X¦p¤U

Sub ¸ê®Æ¤U¸ü¾ã¦X()
    '¸ê®Æºô¸ô¤U¸ü->¶×Á`Sheets
       Dim Rng As Range, Ar(1 To 3)
       Dim err
    Set Rng = Sheets("¥N½X").[a2] '¥N½X°_©l¦ì¸m¦ba2
    Do While Rng <> ""   'µL¥N½X ¤¤Â_
       Dim myErrNum As Long

        With Sheets("­ì©lªí")
             .Range("a6") = Rng
             On Error Resume Next   'µo¥Í¿ù»~³¯­z¦¡¤§«áªº³¯­z¦¡Ä~Äò°õ¦æ
             err = Sheets("­ì©lªí").Range("az7")
             .Range("az7").QueryTable.Refresh BackgroundQuery:=False
             On Error GoTo 0    '°±¤îerror resume
            If err = Sheets("­ì©lªí").Range("az7") Then GoTo 103
            With .Range("BB12:BB27")
                    Ar(1) = Application.Transpose(.Cells)         '¤H¼Æ
                    Ar(2) = Application.Transpose(.Offset(, 1))   'ªÑ¼Æ
                    Ar(3) = Application.Transpose(.Offset(, 2))   '¦û¶°«O®w¦s¼Æ¤ñ¨Ò (%)
            End With
        End With
        With Sheets("¶×Á`").Range("A1").End(xlDown).Offset(1) '¿ï¾Ü¤u§@ªí,¨ì³Ì©³¦æ
             .Cells(1) = Rng
             .Cells(1, 2) = Rng.Offset(, 1)
             .Cells(1, "C").Resize(, UBound(Ar(1))) = Ar(1)
             .Cells(1, "S").Resize(, UBound(Ar(1))) = Ar(2)
             .Cells(1, "AI").Resize(, UBound(Ar(1))) = Ar(3)
             .Cells(1, "AX") = ""
            '.Range("A1:aw1").Value = Sheets("­ì©lªí").Range("A6:aw6").Value
         End With
103
         Set Rng = Rng.Offset(1)   '¤U¤@­Ó¥N½X
         
    Loop
End Sub

TOP

¦^´_ 11# blue2263
ªÑÅv¤À´²ªººô­¶¡A¬d¤£¨ì¸ê®Æ·|¸õ¥Xµøµ¡

win7·|¦³¨Ç°ÝÃD

§Ú¥Î¬O¥Îxmlhttp¤U¸ü¨Ó¬Ýªº¡A¥u­nºô­¶¦b¥»¦aºÝ¡A´N¤£·|¦³³s½u°ÝÃD

§Y¨Ï¬O¼u¸õµøµ¡¡A¦bºô­¶¤¤¡A¬d¤@¤Uhtml body ´N¦³¬ÛÃöªº¦r¥y¡A¦ÛµM¥i¥H¸õ¹L¡A¦pªG¤£³o¼Ë¥Î¡A¤]¥i¥H¤U¸ü«á¥Î¬dÀ˺ô­¶¤j¤p´Nª¾¹D¦³¸ê®Æ»P¬dµL¸ê®Æªººô­¶¤j¤p¬O¤£¤@¼Ëªº

¥H¤W

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD