- ©«¤l
- 47
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 82
- ÂI¦W
- 0
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-7-4
- ³Ì«áµn¿ý
- 2021-9-4
|
¦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- Sub Ex()
- Dim i As Integer, s As Integer, k As Integer, A, ii, j
- Dim txtGoodsName As String, isnew As String, season As String
- txtGoodsName = InputBox("½Ð¿é¤J ¤½¥q¥N¸¹")
- ' If Not IsNumeric(Val(txtGoodsName)) Or Len(txtGoodsName) <> 4 Then Exit Sub '¤£¬O¥|¦ì¼Æªº¼Æ¦r
- ' isnew = InputBox("1:³Ì·s¸ê®Æ¡A¢±:¾ú¥v¸ê®Æ" & vbLf & "½Ð¿ï 1 , 2")
- ' If isnew <> "1" And isnew <> "2" Then Exit Sub '¨S¿ï1 ©Î 2
- ' If isnew = "2" Then season = InputBox("¿é¤J¦~«× , ©u§O" & vbLf & "¨Ò 101,01")
- '²Ä¤@©u 01,²Ä¤G©u 02²Ä¤T©u 03,²Ä¥|©u 04.
- With CreateObject("InternetExplorer.Application")
- .Visible = True
- .Navigate "http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPO.html"
- Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
- With .document
- For Each A In .getelementsbytagname("INPUT")
- If A.Name = "txtGoodsName" Then A.Value = txtGoodsName
- Next
- ' For Each A In .getelementsbytagname("SELECT")
- ' If A.Name = "isnew" Then
- ' A.Value = True
- ' If isnew = "2" Then
- ' A.Focus
- ' Application.Wait Now + #12:00:02 AM#
- ' Application.SendKeys "{DOWN}"
- ' Application.Wait Now + #12:00:02 AM#
- ' Application.SendKeys "{ENTER}"
- ' End If
- ' End If
- 'If A.Name = "year" And isnew = "2" Then A.Value = Split(season, ",")(0)
- ' If A.Name = "season" And isnew = "2" Then A.Value = Split(season, ",")(1)
- ' Next
- For Each A In .getelementsbytagname("INPUT")
- 'If Trim(A.Value) = "·j´M" And A.Name <> "rulesubmit" Then A.Click '«ö¤U[·j¯Á]Áä
- If Trim(A.Value) = "¬d¸ß" Then A.Click '«ö¤U[·j¯Á]Áä
- Next
- End With
- Application.Wait Now + #12:00:10 AM# 'µ¥«Ýºô¶¤U¸ü¸ê®Æ
- Set A = .document.getelementsbytagname("table")
- On Error Resume Next '***¦³¨Çtable¨SRows¸ê®Æ·|²£¥Í¿ù»~ ¤£²z·|¥¦,µ{¦¡Ä~Äò¨«
- With ActiveSheet
- .Cells.Clear
- '************************
- ' For ii = 0 To A.Length - 1 '¤£ª¾¹Dtable½d³ò¦b¦ó³B: ±q0¶}©l
- '******************************
- For ii = 11 To A.Length - 1 ''±q11¶}©l ¥Î Debug.Print ii §ä¥X©Òn¸ê®Æªºtable½d³ò
- For i = 0 To A(ii).Rows.Length - 1 '¼g¤J¸ê®Æ
- 'Debug.Print ii ¥i§ä¥X©Òn¸ê®Æªº table ½d³ò
- k = k + 1
- For j = 0 To 5
- Cells(k, j + 1) = A(ii).Rows(i).Cells(j).innerText
- Next
- Next
- Next
- .Range("C5").Cut Range("D5")
- With .Range("B5:C5,D5:E5")
- .HorizontalAlignment = xlCenter
- .VerticalAlignment = xlCenter
- .Merge
- End With
- End With
- '.Quit 'Ãö³¬ºô¶
- End With
- End Sub
½Æ»s¥N½X ·Q½Ð¦U¦ìÀ°¦£¬Ý¬Ý
ÁÂÁÂ~ |
|