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

ºô­¶¬d¸ß°ÝÃD

ºô­¶¬d¸ß°ÝÃD

ºô­¶¬d¸ß¸I¨ì­n¿é¤JÃöÁä¦r,¦b¬d¸ß,µ²ªG¥i§_¥Î¿ï¾Üªº¤è¦¡,¿ï¾Ü¥¿½T¦b©ñ¤JEXCELªí®æ¤º©O?

¦a¬q.zip (255.18 KB)

Option Explicit
Dim IE As Object, Combo_Ar(), xMsg As Boolean, xButton As Boolean, xRng As Range

Private Sub Label6_Click()

End Sub

Private Sub UserForm_Initialize()
    'ComboBox ±±¨î¶µ -> ¿¤¥«'¨Æ°È©Ò¦WºÙ '¶mÂí¥«°Ï'¬q'¤p¬q
    Combo_Ar = Array(ComboBox0, ComboBox1, ComboBox2)
    Set IE = CreateObject("InternetExplorer.Application")
    Set xRng = [B36    ]
   ' Label1 = ""
    xRng.Resize(, ¢µ) = ""
    With IE
        '.Visible = True '¥i¤£Åã¥ÜIE
        .Navigate "http://lisp.land.moi.gov.tw/MMS/MMSpage.aspx#gobox03"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        ComboBox_list 0
    End With
End Sub
Private Sub ComboBox_list(ByVal Op As Integer)
    '¿¤¥«'¨Æ°È©Ò¦WºÙ '¶mÂí¥«°Ï'¬q'¤p¬q ªº¿ï¶µ¤º®e¾É¤JComboBoxªºlist
    Dim xSelect As Object, i As Integer, x As Integer
    xMsg = True
    'xButton = True
    For i = Op To UBound(Combo_Ar)
        With Combo_Ar(i)
            If i = Op And .ListCount = 0 Then
                Do
                    Set xSelect = IE.Document.all.tags("SELECT")(i)
                Loop Until xSelect.Length > 0
              ' MsgBox .List(1)
                For x = 0 To xSelect.Length - 1
                    .AddItem
                    .List(.ListCount - 1, 0) = xSelect(x).innertext
                Next
                .ListIndex = 0
            ElseIf i = Op And .ListIndex > 0 Then
                Do
                    Set xSelect = IE.Document.all.tags("SELECT")(i)
                Loop Until xSelect.Length > 0
                xSelect.selectedIndex = .ListIndex
                If Op <> UBound(Combo_Ar) Then
                    xSelect.fireEvent ("onchange")
                    Do While IE.Busy Or IE.readyState <> 4: DoEvents: Loop
                    Do
                        Set xSelect = IE.Document.all.tags("SELECT")(i + 1)
                    Loop Until xSelect.Length > 0
                    With Combo_Ar(i + 1)
                        .Clear
                        For x = 0 To xSelect.Length - 1
                            .AddItem
                            .List(.ListCount - 1, 0) = xSelect(x).innertext
                        Next
                        .ListIndex = 0
                    End With
                End If
            ElseIf i > 0 Then
                If Combo_Ar(i - 1).ListIndex = 0 Or Combo_Ar(i - 1).ListCount = 0 Then
                    .Clear
                End If
            End If
            If .ListCount = 0 Or .ListIndex = 0 Then xButton = False
            If UBound(Combo_Ar) = i And .ListCount > 0 Then
                If .ListCount = 2 And .List(1) = "" Then xButton = True
                If .ListCount = 2 And .List(1) <> "" And .ListIndex > 0 Then xButton = True
                If .ListCount > 2 And .ListIndex > 0 Then xButton = True
            End If
        End With
    Next
    If xButton Then
        button_Click
    Else
        xRng.Cells(1, 6) = ""
        'Label1 = ""
    End If
    xMsg = False
End Sub
Private Sub ComboBox0_Change()      '¿¤¥«
     If xMsg = False Then ComboBox_list 0
     xRng.Cells(1, 2) = ComboBox0.Value
End Sub
Private Sub ComboBox1_Change()      '¨Æ°È©Ò¦WºÙ
    If xMsg = False Then ComboBox_list 1
    xRng.Cells(1, 3) = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()      '¶mÂí¥«°Ï
    If xMsg = False Then ComboBox_list 2
    xRng.Cells(1, 4) = ComboBox2.Value
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    IE.Quit
End Sub
Private Sub button_Click() '¬d¸ß
    Dim xIObject As Object, E
    With IE
        Do
            Set xIObject = .Document.all.tags("INPUT")
        Loop Until Not xIObject Is Nothing
        For Each E In xIObject
            If E.Value = "¬d¸ß" And E.Type = "button" Then
                E.Click
                Exit For
            End If
        Next
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        Do
            Set xIObject = .Document.all.tags("STRONG")(0)
        Loop Until Not xIObject Is Nothing
    End With
    E = xIObject.innertext
    'Label1 = Split(xIObject.innertext, "¡G")(1)
    xRng.Cells(1, 1) = "'" & Split(xIObject.innertext, "¡G")(1)
    Label8 = Split(xIObject.innertext, "¡G")(1)
End Sub
¥Ø«e¥u¯à§ì¨ì²Ä¤@­Ó­È,¦ý²Ä¤G¡B¤T­Ó­È§ì¤£¨ì¡A¤£ª¾¨º¦ì¤j¤j¯àÀ°¦£¡A·P®¦

TOP

¦^´_ 3# n7822123
·PÁÂn7822123¦Ñ®vªº¦^ÂÐ..
¦ý¤p§Ì¹ï javaScript ¼g"¨Æ¥óªº¸}¥»¤£¤ÓÀ´
¤p§Ì¦bºCºC¬ã¨s.....

TOP

·PÁ¦Ѯvªº¨ó§U¡A¤p§Ì¦b¸Õ¤@¸Õ¡A¦b¦¹·PÁÂ

TOP

n7822123¦Ñ®v
¤U¸üÀÉ®×µLªk¥´¶},¯à§_¦b­«¶Ç©O¡H¡H

TOP

¤å¥ó¤x¤U¸ü(¥i¯à¦b¾Þ§@¤W¦³¾Þ§@¿ù»~),¦b¦¹»¡¤@Án©êºp
¤å¥ó¾Þ§@¤W¨S¤°»ò°ÝÃD,·PÁ¦Ѯv¤j¤OªºÀ°¦£,¥Ø«eÁÙ¦³¤@¤p°ÝÃD
´N¬O¡yÃöÁä¦r¡z¿é¤J¬d¸ß°ÝÃD,¥i§_«ü¤Þ¤@­Ó¤è¦V

ÃöÁä¦r-1090706.rar (119.71 KB)

TOP

­Y¬O±Ä¥Î¡y¬q¥N½X¡z,±Ä¥Î¡y°ß¤@¡z¤è¦¡,·j¥X¨Ó¥u¦³1µ§,¨º°µªk¤W¬O§_¤ñ¸û²³æ,¦Ó¤£·|¨º»ò³Â·Ð,¦b¼gµ{¦¡¸û®e©ö§PÂ_

TOP

¦^´_ 14# n7822123


    ·PÁÂn7822123¦Ñ®vªº¨ó§U,¨¯­W¤F

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD