[µo°Ý] VBA±±¨îIE¿é¤J­È

kim223824

½Ð°ÝVBA¯«¤H:
­n¦p¦ó±±¨îIEªº­È¦bVBAª½±µ¿é¤J´N¦n?
¥H¤U¬O§Ú¼Ò¥éªºµ{¦¡¡A¦a°Ï¿é¤J: 104 ¡A
°õ¦æ¨ìSet what = .document.getElementByName("onchage")
´N¥X²{¿ù»~°T®§¡A¥i¬O¤£ª¾¹D«ç»ò§ï¡A½Ð°Ý¦³¤j¤j¥i¥H¨ó§U¶Ü??

Sub Ex_ºô­¶¤¸¯À_3()

Dim E As Object, what As Object

Set objIE = CreateObject("InternetExplorer.application")
URL = "http://amis.afa.gov.tw/v-htm/v102.htm"

myjobtype = InputBox("¿é¤J¦a°Ï¥N¸¹:")

With objIE
    .Visible = True
    .Navigate URL
    Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
    Set what = .document.getElementByName("onchage")
    what.Item(0).Value = myjobtype
   
    .document.getElementByName("B1").Click        '·j´MÁä
   
   
   
                With .document  'ºô­¶ªº¤å¥ó
                  '*** ³o¬qµ{¦¡½X¥i¬d¬Ý³oºô­¶ªº¤¸¯À¤º®e
                    On Error Resume Next
                    For Each E In .all
                        i = i + 1
                        Cells(i, "a") = E.tagname   '±±¨î¶µ¼Ð°Oªº¦WºÙ
                        Cells(i, "b") = E.ID        '±±¨î¶µ¼Ð°OªºID (±©¤@ªº)
                        Cells(i, "c") = E.Name      '±±¨î¶µ¼Ð°Oªº©R¦W
                        Cells(i, "d") = E.Value     '±±¨î¶µ¼Ð°Oªº­È
                        Cells(i, "e") = E.innertext '±±¨î¶µ¼Ð°Oªº¤å¦r
                        Cells(i, "f") = E.Type      '±±¨î¶µ¼Ð°OªºÃþ«¬
                        Cells(i, "g") = E.href      '±±¨î¶µ¼Ð°Oªººô§}
                    Next
                  '****************************************
                End With
                '.QUIT
    End With

End Sub

kim223824

ªþ¤WÀɮפº®e¡A½Ð¤j¤jÀ°¦£¤U!!

GBKEE

¦^´_ 2# kim223824
  'URL = "http://amis.afa.gov.tw/v-htm/v102.htm"
    '********ºô§}¦³§ïÅÜ ******
    URL = "http://amis.afa.gov.tw/v-asp/v102q.asp"

¤U¸ü (99.63 KB)

2015-12-6 16:32

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub µæ»ù2015_12_05_1()
   
3.     Dim xTable As Object, k As Integer, c As Integer, r As Integer
   
4.     'URL = "http://amis.afa.gov.tw/v-htm/v102.htm"
   
5.     '********ºô§}¦³§ïÅÜ ******
   
6.     URL = "http://amis.afa.gov.tw/v-asp/v102q.asp"
   
7.    
   
8.     With CreateObject("InternetExplorer.application")
   
9.         .Visible = True
   
10.         .Navigate URL
    
11.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
12.         With .document
    
13.             .ALL("mkno").Value = 104
    
14.             .ALL("B1").Click
    
15.         End With
    
16.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
17.         Set xTable = .document.getelementsbytagname("TABLE") '(1)
    
18.         With Sheets("¤U¸ü")
    
19.             .UsedRange.Clear
    
20.             k = 1
    
21.             For i = 0 To 1 ' For EACH  E In xTable  '.document.getelementsbytagname("TABLE")
    
22.                 For r = 0 To xTable(i).Rows.Length - 1
    
23.                     For c = 0 To xTable(i).Rows(r).Cells.Length - 1
    
24.                         .Cells(k + r, c + IIf(i = 0, 1 + 1 * c, 1)) = xTable(i).Rows(r).Cells(c).innerText
    
25.                     Next
    
26.                 Next
    
27.                 k = k + xTable(i).Rows.Length
    
28.             Next
    
29.         End With
    
30.         .Quit
    
31.     End With
    
32. End Sub

½Æ»s¥N½X

kim223824

¤Ó·PÁÂGBKEE¤j¤j¤F!! ¥i¥H¨Ï¥Î¡C
¥t¥~½Ð°Ý¥H¤UÅܼƦb­þ¸Ì¦³»¡©ú¸ê®Æ?
xTable(i).Rows.Length - 1
xTable(i).Rows(r).Cells.Length - 1
Cells(k + r, c + IIf(i = 0, 1 + 1 * c, 1)) = xTable(i).Rows(r).Cells(c).innerText

GBKEE

¦^´_ 4# kim223824

1.   Set xTable = .document.getelementsbytagname("TABLE") '(1)
   
2.         Stop  'µ{¦¡¼È°±

½Æ»s¥N½X

¤U¸ü (229.59 KB)

2015-12-7 15:20