n7822123

¦^´_ 5# n7822123


­è­èµo²{ªí³æ¾Þ§@¹L§Ö·|¨ú¤£¨ì¸ê®Æ¡A

½Ð¦Û¦æ·s¼W¤@¦æµ{¦¡


Private Sub ComboBox7_Change()      '¿¤¥«
     'If xMsg = False Then ComboBox_list 0
     xRng.Cells(1, 2) = ComboBox7.Value
     WbKeyin_OP 7          '¿é¤J¸ê®Æ¨ìWB²Ä7­Ó¿ï³æ¡B¨ÃIJµo¨Æ¥ó
     Application.Wait (Now + TimeValue("00:00:01"))   'µ¥«Ý¡A¹L§Ö·|¨ú¤£¨ì¸ê®Æ
     GetCB_OP 8               '¨ú±oWB²Ä8­Ó¿ï³æ¸ê®Æ
End Sub
Private Sub ComboBox8_Change()      '¨Æ°È©Ò¦WºÙ
    'If xMsg = False Then ComboBox_list 1
    xRng.Cells(1, 3) = ComboBox8.Value
    WbKeyin_OP 8          '¿é¤J¸ê®Æ¨ìWB²Ä8­Ó¿ï³æ¡B¨ÃIJµo¨Æ¥ó
    Application.Wait (Now + TimeValue("00:00:01"))   'µ¥«Ý¡A¹L§Ö·|¨ú¤£¨ì¸ê®Æ
    GetCB_OP 9               '¨ú±oWB²Ä9­Ó¿ï³æ¸ê®Æ
End Sub
Private Sub ComboBox9_Change()      '¶mÂí¥«°Ï
    'If xMsg = False Then ComboBox_list 2
    xRng.Cells(1, 4) = ComboBox9.Value
    WbKeyin_OP 9          '¿é¤J¸ê®Æ¨ìWB²Ä9­Ó¿ï³æ¡B¨ÃIJµo¨Æ¥ó    =>³o­Óº|¼g¤F
End Sub

n7822123

¦^´_ 4# sillykin


¼gµ{¦¡Åý¥¦Ä²µo­ì¥»ºô­¶ªº¸}¥»¨Æ¥ó´N¦n¤F.............

¤£¬O­n§A¬ã¨s javascript.......

§A­ì¥»¼gªº ComboBox_list µ{§Ç ¦³ÂI½ÆÂø¡A¬Ý¤£¤ÓÀ´§A­n·F¹À

§Ú¦Û¤v¼g¤F2­Óµ{§ÇGetCB_OP¡BWbKeyin_OP ¨ú¥N¥L¡AComboBox §Ú§ï½s¸¹ ¬°7¡B8¡B9 ¹ïÀ³ºô­¶ªº½s¸¹

³o¼Ë§Ú¼gµ{¦¡¤ñ¸û¶¶¤â¡A§A¦A¸Õ¬Ý¬Ý~~

§ì¦aºô­¶¦a¬q.rar (966.46 KB)

¤U¸ü¦¸¼Æ: 21

2020-7-5 23:50

sillykin

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

n7822123

¦^´_ 2# sillykin


¥Ø«e¥u¯à§ì¨ì²Ä¤@­Ó­È,¦ý²Ä¤G¡B¤T­Ó­È§ì¤£¨ì¡A¤£ª¾¨º¦ì¤j¤j¯àÀ°¦£¡A·P®¦

§A¦n¹³§ì¿ù¿ï³æ§Ç¸¹¤F¡AÀ³¸Ó¬O§ì²Ä7¡B8¡B9 ­Ó¿ï³æ¡A¤~²Å¦X§AExcel¤ºªº¶K¹Ï

§A¥i¥H¥ÎGoogleÂsÄý¾¹ ªº"Àˬd"¡A¨Ó½T»{ID(¤U¹Ï)¡A

¦A¥Î¥H¤Uµ{¦¡½X ½T»{ ²ÄN­Ó¤U©Ô¿ï³æªºID¡AÁקK§ì¿ù!

¤U¸ü (58.23 KB)

2020-7-4 21:46

Sub ½T»{¦U¿ï³æªº§Ç¸¹»PID¹ïÀ³()
With CreateObject("InternetExplorer.Application")
    '.Visible = True '¥i¤£Åã¥ÜIE
    .Navigate "http://lisp.land.moi.gov.tw/MMS/MMSpage.aspx#gobox03"
    Do While .Busy Or .readyState <> 4: DoEvents: Loop
    With .Document.all.tags("SELECT")
        For i = 0 To .Length - 1
            Debug.Print i & ": " & .Item(i).ID
        Next
    End With
    .Quit
End With
End Sub

¦¹¤U©Ô¿ï³æ­ì¥ó¦³¥Î javaScript ¼g"change"¨Æ¥óªº¸}¥»

¦¹¸}¥»¬O¥Î¨Ó¶ë¤U¤@­Ó¤U©Ô¿ï³æªº"¿ï¶µ"

¤]´N¬O»¡¡A§A¥²¶·¥ÎIE¶ñ¼g²Ä¤@­Ó¤¸¥óªº­È¡A¨ÃIJµo²Ä¤@­Ó¤¸¥ó¸}¥»

²Ä¤G­Ó¤¸¥ó¤~·|¦³¤U©Ô¿ï³æªº­Èµ¹§A§ì¨ìªí³æ~~~~~~

¤U¸ü (209.65 KB)

2020-7-4 21:52

¤U¸ü (75.87 KB)

2020-7-4 21:52

sillykin

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®¦