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

[µo°Ý] ¬d§äºô¯¸¸ê®Æ

¨Ì¾ÚEXCELªí¤¤ªº¦WºÙ,§Q¥ÎIE¶}±Òºô­¶¶i¦æ¬d¸ß

¤j®a¦n
§Ú·Q½Ð°Ý­n¦p¦ó³z¹LVBA
¬d¸ß¥H¤Uºô­¶
http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPO.html
§Ú¦³¤@­ÓEXCELªºªí¡A¸Ì­±¦³¤@Äæ¬O°Ó«~¦WºÙ
·Q½Ð°Ý¦U¦ì ­n¦p¦ó³z¹LVBA±N¸ÓÄ檺¦WºÙ¨Ì§Ç¥´¤Jºô­¶¤¤¬d¸ß
¨Ã±N¬d¸ß«áªºµ²ªG(ºô­¶¥k¤è)¦^¶Ç¦ÜEXCEL
PS, §Ú¥D­n¬O­n¬d¸ß§ÚEXCEL¤¤ªº¦WºÙ¬O§_¦³¥X²{¦b©xºô¤¤

¥H¤W
¦A³Â·Ð¦U¦ìÀ°¦£¤F
ÁÂÁÂ

TOP

¥i¥H¤W¶Ç­Ó¡u°Ó«~¦WºÙÄæ¡v½d¨ÒÀɰѦҬݬݶÜ?
¾Ç²ßVBA

TOP

s90068 ±z¦n
°Ó«~¦WºÙ¨Ò¦p¤U¦C
¤u·~¥Î»Ã¯À
¤u·~¥Î¤û¥¤µo»Ã¾¯
²G´¹
¨¾»G¾¯
¤u·~¥Î°£¯ä¾¯
¤u·~¥Î°®À꾯
¤¤©M¾¯
¤W­z°Ó«~³£¥i¬d¨ì

¦b³Â·Ð±z¤F
ÁÂÁ±z

TOP

[µo°Ý] ¬d§äºô¯¸¸ê®Æ

¦U¦ì¦n
§Ú§Q¥Î½×¾Â¤¤¤§«eª©¤jªº¥N½X¶i¦æ³¡¤À­×§ï«á
http://forum.twbts.com/viewthread.php?tid=9511
¥H¸Õ¹Ï©ó¤U¦Cºô¯¸¤¤ªº¥ªÄæ¿é¤J¯S©w¦r¦ê¨Ò¦p"¨F©Ôªo"
http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPO.html
µM«á¶i¦æ¬d¸ß,¨Ã±N¬d¸ß«á¥kÄ檺ªí®æ¶K¦^excel¤¤
¦ý¬O§Úªº¥N½X«oµLªk¶¶§Q¿é¤J"¨F©Ôªo"
§Úªº¥N½X¦p¤U
  1. Sub Ex()
  2.     Dim i As Integer, s As Integer, k As Integer, A, ii, j
  3.     Dim txtGoodsName As String, isnew As String, season As String
  4.     txtGoodsName = InputBox("½Ð¿é¤J ¤½¥q¥N¸¹")
  5.        ' If Not IsNumeric(Val(txtGoodsName)) Or Len(txtGoodsName) <> 4 Then Exit Sub              '¤£¬O¥|¦ì¼Æªº¼Æ¦r
  6.    ' isnew = InputBox("1:³Ì·s¸ê®Æ¡A¢±:¾ú¥v¸ê®Æ" & vbLf & "½Ð¿ï 1 , 2")
  7.    ' If isnew <> "1" And isnew <> "2" Then Exit Sub                              '¨S¿ï1 ©Î 2
  8.    ' If isnew = "2" Then season = InputBox("¿é¤J¦~«× , ©u§O" & vbLf & "¨Ò 101,01")
  9.                                     '²Ä¤@©u 01,²Ä¤G©u 02²Ä¤T©u 03,²Ä¥|©u 04.
  10.     With CreateObject("InternetExplorer.Application")
  11.         .Visible = True
  12.         .Navigate "http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPO.html"
  13.                 Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  14.         With .document
  15.             For Each A In .getelementsbytagname("INPUT")
  16.                             If A.Name = "txtGoodsName" Then A.Value = txtGoodsName
  17.                        Next
  18.           '  For Each A In .getelementsbytagname("SELECT")
  19.            '     If A.Name = "isnew" Then
  20.           '          A.Value = True
  21.             '        If isnew = "2" Then
  22.              '           A.Focus
  23.               '          Application.Wait Now + #12:00:02 AM#
  24.                '         Application.SendKeys "{DOWN}"
  25.                 '        Application.Wait Now + #12:00:02 AM#
  26.                  '       Application.SendKeys "{ENTER}"
  27.                   '  End If
  28.                ' End If
  29.                 'If A.Name = "year" And isnew = "2" Then A.Value = Split(season, ",")(0)
  30.                ' If A.Name = "season" And isnew = "2" Then A.Value = Split(season, ",")(1)
  31.            ' Next
  32.                     For Each A In .getelementsbytagname("INPUT")
  33.                                'If Trim(A.Value) = "·j´M" And A.Name <> "rulesubmit" Then A.Click        '«ö¤U[·j¯Á]Áä
  34.                        If Trim(A.Value) = "¬d¸ß" Then A.Click         '«ö¤U[·j¯Á]Áä
  35.                     Next
  36.             End With
  37.         Application.Wait Now + #12:00:10 AM#                     'µ¥«Ýºô­¶¤U¸ü¸ê®Æ
  38.         Set A = .document.getelementsbytagname("table")
  39.         On Error Resume Next       '***¦³¨Çtable¨SRows¸ê®Æ·|²£¥Í¿ù»~ ¤£²z·|¥¦,µ{¦¡Ä~Äò¨«
  40.         With ActiveSheet
  41.             .Cells.Clear
  42.            '************************
  43.            ' For ii = 0 To A.Length - 1        '¤£ª¾¹Dtable½d³ò¦b¦ó³B: ±q0¶}©l
  44.            '******************************
  45.             For ii = 11 To A.Length - 1        ''±q11¶}©l ¥Î Debug.Print ii  §ä¥X©Ò­n¸ê®Æªºtable½d³ò
  46.                 For i = 0 To A(ii).Rows.Length - 1      '¼g¤J¸ê®Æ
  47.                 'Debug.Print ii  ¥i§ä¥X©Ò­n¸ê®Æªº table ½d³ò
  48.                 k = k + 1
  49.                 For j = 0 To 5
  50.                     Cells(k, j + 1) = A(ii).Rows(i).Cells(j).innerText
  51.                 Next
  52.             Next
  53.             Next
  54.             .Range("C5").Cut Range("D5")
  55.             With .Range("B5:C5,D5:E5")
  56.                 .HorizontalAlignment = xlCenter
  57.                 .VerticalAlignment = xlCenter
  58.                 .Merge
  59.             End With
  60.         End With
  61.        '.Quit        'Ãö³¬ºô­¶
  62.     End With
  63. End Sub
½Æ»s¥N½X
·Q½Ð¦U¦ìÀ°¦£¬Ý¬Ý
ÁÂÁÂ~

¦U¦ì¦n
§Ú§Q¥Î¤U¦Cµ{¦¡ »ª¦ü¥i±N­Èsend ¨ìºô¯¸¤W,¦ý¬O§Ú¤£ª¾¹D¸Ó¦p¦ó§âºô¯¸ªº¸ê®Æ§ì¦^¨Ó
¤£ª¾¹D¬O§_¦³¤H¯àÀ°§Ú¬Ý¬Ý
  1. Sub jdj()
  2. Dim xmlhttp As Object
  3. Set xmlhttp = CreateObject("msxml2.xmlhttp.3.0")
  4. xmlhttp.Open "post", " http://tmsearch.tipo.gov.tw/TIPO_DR/servlet/InitGoodsIPOResult", False
  5. xmlhttp.send " txtGoodsName=%A8F%A9%D4&txtGoodsID=&hdnGoodsNameLabel=%B0%D3%AB%7E%28%AAA%B0%C8%29%A6W%BA%D9&hdnGoodsIDLabel=%B0%D3%AB%7E%28%AAA%B0%C8%29%B2%D5%B8s%A5N%BDX"
  6. If xmlhttp.readystate = 4 Then
  7. MsgBox "done"
  8. end if
  9. end sub
½Æ»s¥N½X
ÁÂÁÂ

TOP

¦^´_ 5# ciboybj
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D  As Object, e As Object, URL As String
  4.     '¤u·~¥Î»Ã¯À
  5.     '¤u·~¥Î¤û¥¤µo»Ã¾¯
  6.     '²G´¹
  7.     '¨¾»G¾¯
  8.     '¤u·~¥Î°£¯ä¾¯
  9.     '¤u·~¥Î°®À꾯
  10.     '¤¤©M¾¯
  11.     URL = "http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPOContent.jsp"
  12.     With CreateObject("InternetExplorer.Application")
  13.         .Navigate URL
  14.         .Visible = True
  15.          Do While .ReadyState <> 4 Or .Busy
  16.             DoEvents
  17.         Loop
  18.         Set D = .document.all(6).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")
  19.         D("txtGoodsName").Value = "¤¤©M¾¯"
  20.         For Each e In D
  21.             If e.Value = "¬d¸ß" Then e.Click: Exit For
  22.         Next
  23.         Do While .ReadyState <> 4 Or .Busy
  24.             DoEvents
  25.         Loop
  26.         Set D = .document.LastChild.LastChild.all(1).contentWindow.frames.document.getElementsByTagName("table")
  27.         Ep D(0).outerHTML
  28.         .Quit
  29.     End With
  30. End Sub
  31. Private Sub Ep(S As String)
  32.     With CreateObject("InternetExplorer.Application")
  33.         .Navigate "about:Tabs"
  34.         .Visible = True
  35.        .document.body.innerhtml = S
  36.         .ExecWB 17, 2       '  Select All
  37.         .ExecWB 12, 2       '  Copy selection
  38.         With ActiveSheet
  39.             .Cells.Clear
  40.             .Range("A1").Select
  41.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  42.         End With
  43.         .Quit
  44.     End With
  45. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE ±z¦n
§Ú¦bwin 7 excel 2010 ¤U°õ¦æ®É
¥X²{°õ¦æ¶¥¬q¿ù»~438
°»¿ù«ü¦V¤U¦Cµ{¦¡½X
Set D = .document.LastChild.LastChild.all(1).contentWindow.frames.document.getElementsByTagName("table")
·Q½Ð°Ý±z³o­n«ç»ò¸Ñ¨M
ps §Ú¥t¥~¦bwin xp excel2003¤¤´ú¸Õ¦¨¥\

¦A½Ð±zÀ°¦£
ÁÂÁ±z

TOP

¦^´_ 8# ciboybj
ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk (¿ù»~ 438)
¤£¦n·N«ä§Ú¥u¦³2003ª©.µLªk´À§A­×¥¿

½Ð­×§ï6#ªºµ{¦¡½X
   
  1. Dim IE As Object
  2.     Set IE = CreateObject("InternetExplorer.Application")
  3.     With IE
  4.     'With CreateObject("InternetExplorer.Application")
½Æ»s¥N½X

¦³¿ù»~®É ½Ð¨ì¦p¹Ï IEª«¥ó§ä§ä "table" ¦b­þ¸Ì


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

TOP

¥»©«³Ì«á¥Ñ joey0415 ©ó 2014-8-6 21:15 ½s¿è
¦^´_  ciboybj
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-8-5 06:27



¼gªº¯u¦n¡I½Ð°Ý¶Wª©

Set D = .document.all(6).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")

³o¥y¸Üªº·N«ä¬O¦³¤»­ÓINPUT¤¤ªº²Ä¤@­Ó¤lµøµ¡±N¥¦³]¬°ª«¥ó¶Ü¡H

¦pªG¬Oªº¸Ü¡A¨º¤U­±³o¥y
Set D = .document.LastChild.LastChild.all(1).contentWindow.frames.document.getElementsByTagName("table")
±N¥kÃ䪺TABLEªº³]¬°ª«¥ó¶Ü¡H

¥ªÃ䪺¥s.all(6).all(0).contentWindow.frames

¥kÃ䪺¥s.LastChild.LastChild.all(1).contentWindow.frames

¬°¤°»ò¥kÃ䪺¤£¥sSet XXX = .document.all(1).all(0).contentWindow.frames.document.getElementsByTagName("table")

¦Ó¥B»¡¤W­±ªº¤£¬Oª«¥ó©O¡H¬O¨S¦³ÁÙ¬O¼g¿ù©O¡H

½Ðª©¥D¸Ñ»¡¤@¤U¦n¶Ü¡HÁÙ¬O¦³­þ¤@­Óºô­¶¥i¥H°Ñ¦Ò¡IÁÂÁÂ

TOP

¦^´_ 8# ciboybj
§ä¤F¤@¤U2010ª© ¸Õ¸Õ¬Ý¥i§ï¦¨¦p¤U
  1. ' Set D = .document.LastChild.LastChild.all(1).contentWindow.frames.document.getElementsByTagName("table")
  2.         Set D = .document.all(6).all(1).contentWindow.frames.document.getElementsByTagName("table")
½Æ»s¥N½X
¦^´_ 10# joey0415
Set D = .document.all(6).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")
¸ÑÄÀ¦p¤U
.document->HTMLªº[¤å¥óª«¥ó]
.All->documentªºelement [¤¸¯À¶°¦X]
all(6):±Æ¦æ²Ä6¦ì(¤U­­¯Á¤Þ­È±q0 ¶}©l)ªº[¤¸¯À];.all(0)±Æ¦æ²Ä0ªº[¤¸¯À];  
contentWindowÄݩʬO«ü«ü©wªºframe©ÎªÌiframe©Ò¦bªºwindowª«¥ó
getElementsByTagName("INPUT")->¤¸¯À¤¤ªºTagName¬°"INPUT"ªº¶°¦Xª«¥ó
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD