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

Excel ¥~³¡ºô­¶¶×¤J¤£§¹¾ã

Excel ¥~³¡ºô­¶¶×¤J¤£§¹¾ã

http://jsjustweb.jihsun.com.tw/z/ze/zeg/zeg_23.djhtm

¦b³oÃ䦳¤@¨Çºô­¶   ¦pªG§Q¥Îexcelªº¥~³¡ºô­¶¶×¤Jªº¸Ü
¦³¨Ç·|¥X²{ªÑ²¼¦WºÙ³£®ø¥¢ªºª¬ªp  (¹Ï¨Ò¬O¦æ±¡ªí­¶­±)
t1.png
2012-8-25 17:58


·Q½Ð°Ý¸Ó¦p¦ó¤~¯à°÷Åý©Ò¦³¸ê°T³£§¹¾ã¶×¤J©O
ÁÂÁ¦^µª

getweb.JPG
2012-8-26 04:43
¦^´_ 1# sleepycat


    ª¦¤å§ï¥Îgetweb¤è¦¡§ì....

TOP

¦^´_ 2# chen_cook

  ·PÁ¤j¤jªº¦^µª
  «D±`©êºp   ¬Ý¨ì¤j¤jªº´£¥Ü§ÚÁÙ¬O¤£¤ÓÀ´¦p¦ó¨Ï¥Î
  get web¬OVBAªº»yªk¶Ü
  ¬O§_¯à°÷¦A»¡©ú²M·¡¤@ÂI
  ÁÂÁ¨ó§U

TOP

¦^´_ 3# sleepycat
¥ÎVBA ¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.        .Navigate "http://jsjustweb.jihsun.com.tw/z/ze/zeg/zeg_23.djhtm"
  7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  8.         Set xlVbTable = .document.getelementsbytagname("table")(27)
  9.         Ar = Split(xlVbTable.Rows(0).Cells(0).innerText, Chr(10))(1)
  10.         With ActiveSheet
  11.             .Cells(1, 1) = Mid(Ar, 1, InStr(Ar, ":"))
  12.             .Cells(1, 2) = Mid(Ar, InStr(Ar, ":") + 1, 6)
  13.             For R = 1 To xlVbTable.Rows.Length - 1
  14.                 For C = 0 To xlVbTable.Rows(1).ALL.Length - 1
  15.                     .Cells(R + 1, C + 1) = xlVbTable.Rows(R).Cells(C).innerText
  16.                 Next
  17.             Next
  18.         End With
  19.        .Quit
  20.     End With
  21. End Sub
½Æ»s¥N½X

TOP

¦^´_  sleepycat
¥ÎVBA ¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2012-8-27 10:44


½Ð°ÝGBKEE¤j¤j¡A¬O§_©Ò¦³ªºdjhtmºô­¶³£¥i¾A¥Î©O¡A§Ú±N¥H¤Wºô§}§ï¦¨http://jsjustweb.jihsun.com.tw/z/zk/zk3/zkparse_700_NA.djhtm¡A´NµLªk°õ¦æ¤F?

TOP

¦^´_ 5# funnydisk
¤£¬O©Ò¦³ªºdjhtmºô­¶³£¥i¾A¥Îªº
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     With CreateObject("InternetExplorer.Application")
  4.         .Visible = True
  5.        .Navigate "http://jsjustweb.jihsun.com.tw/z/zk/zk3/zkparse_700_NA.djhtm"
  6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  7.         .ExecWB OLECMDID_SELECTALL, 1       '¿ï¨ú ºô­¶¤º®e
  8.         .ExecWB OLECMDID_COPY, 0            '½Æ»s ºô­¶¤º®e
  9.         With ActiveSheet                    '«ü©w¤u§@ªí
  10.             .Cells.Clear                    '²M²z ¤u§@ªí
  11.             .[a1].Select
  12.             .Paste                          '¶K¤W ºô­¶¤º®e
  13.             .Pictures.Delete                '²M°£ ºô­¶¹Ï¤ù
  14.             .Cells.ClearFormats             '²M°£ ¤u§@ªí¹Ï¤ù
  15.             .[a:b].Delete                   '§R°£¦h¾lªººô­¶¤º®e
  16.             .[a1].Select
  17.         End With
  18.        .Quit
  19.     End With
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE

½Ð°ÝGBKEE¤j¤j
http://tcfhcsec.moneydj.com/z/ze/zef/zef.djhtm
³oºô­¶¥ÎExcel ¥~³¡ºô­¶¶×¤J·|¤£§¹¾ã
¥Îvba
Dim ie
Sheets("sheet2").Select
    Const url As String = "http://tcfhcsec.moneydj.com/z/ze/zef/zef.djhtm"     ' ¥¿½Tªº
    Cells.Delete 'Clear
    Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
    With ie
        .Visible = False 'True¬°¶}±Òie, False¬°¤£¶}±Òie
        .Navigate url
        Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
        DoEvents
        Loop
        .ExecWB 17, 2 'Select All
        .ExecWB 12, 2 'Copy selection
         Range("A1").Activate
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    End With
    Rows("1").Delete
    Columns("A:C").Delete    ' ±N¶×¤J®É A¡BB ¨âÄæ²¾°£¡A ­ì¥» C:I ªºÄæ¦ì¥þ³¡¥ª¾a¡A ¦¨¬° A:I
    ie.Quit
End Sub
«h°±¦b    Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
¥X²{
"°õ¦æ¶¥¬q¿ù»~80010108 automation¿ù»~¥Î¤áºÝ¤¤Â_¤F¤w±Ò°Êª«¥óªº³s½u"
ªº¿ù»~
¸Ó¦p¦ó­×§ïµ{¦¡
ÁÂÁÂ

TOP

¦^´_ 7# f3202
IE11,2010¤U,¤£·|°±¹y¦b
  1. Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
  2.         DoEvents
  3.         Loop
½Æ»s¥N½X
1:¥i¯à¬OWindow¤Wªº¼È¦s°O·NÅéÃe¤j,©ìºCIE¤U¸ü³t«×.(²MªÅ§AWindow¤Wªº¼È¦s°O·NÅé)
2: IE¦³°ÝÃD( IE­«³])
3:¦P®É°õ¦æ¦hªºÀ³¥Îµ{¦¡,©ìºCIEªº°õ¦æ(Ãö²¦¨ä¥¦À³¥Îµ{¦¡)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE
excel 2007
¤w²MªÅWindow¤Wªº¼È¦s°O·NÅé
­«³] ie11
­«·s¶}¾÷«á§Y°õ¦æÀÉ®×
µ²ªG¬Û¦P
¸I¨ì³oºô¯¸°õ¦æ®É
.Visible = True©ÎFalse ¬Ò¶}±Òie
µM«á´N¥X²{¿ù»~
"°õ¦æ¶¥¬q¿ù»~80010108 automation¿ù»~¥Î¤áºÝ¤¤Â_¤F¤w±Ò°Êª«¥óªº³s½u"

TOP

¥»©«³Ì«á¥Ñ ¦Ñ®L ©ó 2017-8-6 06:10 ½s¿è

§â1.iqy·h¤J°O¨Æ¥»
§âa.htm·h¤J°O¨Æ¥»
ÂùÀ»1.iqy
ÂùÀ»a.htm

¥´¶}web.xls>>ÁY¤pµøµ¡>>·h¤Ja.htm©óWebBrowser1±±¨î¶µ¤º>>§¹¤u
123.gif
2017-8-6 05:58


web.rar (57.38 KB)

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD