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

[µo°Ý] µLªk¶×¤JPCHOME ªÑ¥«¸ê®Æ

¦^´_ 9# tajen
´£¨Ñ°Ñ¦Ò¡G (¤£ª¾¬O§_§k¦X§Aªº»Ý¨D¡H)
  1. Sub ³Ì¨Î¤­ÀÉ()
  2.     Dim Sh As Worksheet
  3.    
  4.     Set Sh = Sheets("¤u§@ªí3")                   '  ¥i«ü©w¤u§@ªí
  5.    
  6.     With Sh
  7.         .Cells.Clear
  8.         .Select
  9.         
  10.         With .QueryTables.Add(Connection:= _
  11.             "URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=6121", Destination:= _
  12.                                                                           .Range("F1"))
  13.             .WebFormatting = xlWebFormattingNone
  14.             .WebTables = "7"
  15.             .Refresh BackgroundQuery:=False
  16.         End With
  17.         
  18.         With .QueryTables.Add(Connection:= _
  19.             "URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=6121", Destination:= _
  20.                                                                           .Range("A1"))
  21.             .WebFormatting = xlWebFormattingNone
  22.             .WebTables = "8,10,11"    '  ºô­¶ªºªí®æ¡A§ó§ï WebTables ´N¦æ¤F
  23.             '  .WebTables = "7,8,10,11"
  24.             '  .WebTables = "6,8,10,11"
  25.             .Refresh BackgroundQuery:=False
  26.         End With
  27.         
  28.         With .QueryTables.Add(Connection:= _
  29.             "URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=6121", Destination:= _
  30.                                                                           .Range("I1"))
  31.             .WebFormatting = xlWebFormattingNone
  32.             .WebTables = "6"
  33.             .Refresh BackgroundQuery:=False
  34.         End With
  35.         
  36.         .Range("A:N").EntireColumn.AutoFit
  37.     End With
  38. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# tajen
±N¥H¤U¤å¦r½Æ»s©ó[¤p§@®a]©Î[°O¨Æ¥»] ¦sÀɬ° "»ù¶q¹Ï.iqy" (.iqy ¬d¸ßÀɪº°ÆÀɦW)«á,½ÐÂùÀ» "»ù¶q¹Ï.iqy".
ps:¨º¤@¦æªÅ¥Õ¬O¥²¶·ªº
  1. WEB
  2. 1
  3. http://traderoom.cnyes.com/tse/quote2FB.aspx?code=["»ù¶q¹Ï","½Ð¿é¤JªÑ²¼¥N¸¹:¦p 2317"]

  4. Selection=7
  5. Formatting=None
  6. PreFormattedTextToColumns=True
  7. ConsecutiveDelimitersAsOne=True
  8. SingleBlockTextImport=False
  9. DisableDateRecognition=False
  10. DisableRedirections=False
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE

Microsoft Office Excel could not open or read this query file. Either the file has been damaged or the file format is not valid :(

TOP

¦^´_ 13# genes
¤@¼Ë¬O 2003ª© ,¬°¦ó§Aªº¤£¦æ

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

TOP

¦^´_ 14# GBKEE


    ­ì¨Ó¬O­^¤åª©office©M¤¤¤åª©ªº¤£­Ý®e, §ï¦¨­^¤å¥i¥H. ¦³¨S¦³¿ìªk¯à­Ý®e?

¥t¥~iqy¦b¨º¸Ì¥i¥H¾Ç¨ì? ¨S¦³Å¥¹L

TOP

To:joey0415 ¤j¤j
    ÁÂÁ±z§iª¾webtables=7¡A§Ú¨S·Q¨ì¥i¥H³o¼Ë±Àºâ¡A·P®¦¡C

To: GBKEE¤j¤j
    ¯uªº¬O¤Ó§¹¬ü¤F¡A¤S¦h¾Ç¤F¤@¨Ç¡A¯uªº«Ü·PÁ¡C¥Ì®¦°Õ!!!

TOP

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

TOP

½Ð±Ð G¤j¤j , ¦pªG¿é¤J¿ù»~ªÑ²¼¥N½X ºô­¶Åã¥Ü¬dµL¸ê®Æ ¾É­P°±¦b DoEvents µL­­°j°é ¦p¦ó¥[¤J¿ù»~Àˬd"¬dµL¸ê®Æ" ÁÂÁÂ

.Navigate "http://pchome.syspower.com.tw/stock/sto0/ock2/sid" & Stock & ".html"
        .Visible = True
        Do While .Busy Or .ReadyState <> 4
             DoEvents
        Loop

TOP

¦^´_ 18# chairmen100
  1.   With CreateObject("InternetExplorer.application")
  2.         .Navigate "http://pchome.syspower.com.tw/stock/sto0/ock2/sid" & Stock & ".html"
  3.         .Visible = True
  4.         T = Time
  5.         Do While .Busy Or .ReadyState <> 4
  6.              DoEvents
  7.              If Time - T > #12:00:05 AM# Then End  '¶W¹L5¬í °±¤îµ{§Ç
  8.         Loop
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE ¤j¤j
½Ð°Ý¬°¦ó§Ú¨Ï¥Î§Aªºµ{¦¡½XÁÙ¬OµLªk¶×¤Jhttp://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html
³oºô­¶ªº¸ê®Æ¡A¬O­þ¿ù¤F?
Ãø¹D»Ý­n¯S§Oªº³]©w©Î¨BÆJ???
¥i§_«ü¾É¤@¤U¡C

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD