ªð¦^¦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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-7-4 21:55 ½s¿è

¦^´_ 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§ì¿ù!


§Q¥ÎÀˬd½T»{ID.png
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§ì¨ìªí³æ~~~~~~


¦¹¿ï³æ¦³³]'¨Æ¥óµ{§Ç'.png
2020-7-4 21:52


¦¹¤¸¥ó¦³¼gIJµoµ{§Ç'change'.png
2020-7-4 21:52
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

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

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-7-6 00:00 ½s¿è

¦^´_ 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)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 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
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-7-6 22:15 ½s¿è

¦^´_ 9# sillykin


¨ä¹ê§Ú¤ñ¸û±ÀÂË "¬q¥N½X" ¦]¬°¬O"°ß¤@"ªº¡A·j¥X¨Ó¥u·|¦³1µ§

¥ÎÃöÁä¦r¥i¯à·j¥X¨Ó¦³«Ü¦hµ§~¦p§Aªº¦Ë³ò´N¦³5µ§¡A¦pªG§A­n¥þ³¡¦C¥X¨Ó

¥i¯à­n¥ý§PÂ_·j¥X¨Ó¦³´X­¶¡A¦]³o­Óºô¯¸¶W¹L10µ§·|¶i¤U¤@­¶

§A»Ý­n¼gµ{¦¡±±¨îIE¡A¥hÂI¿ï­¶¼Æ¡AÅý¥¦Ä²µo§ó·s¡A¦A¤U¸ü10µ§¡A¦A±±¨îIEÂI²Ä2­¶¡A¦b¤U¸ü¤U10µ§.......

·Q·Q´Nı±o«Ü³Â·Ð~~~§Ú§¹¥þ¤£·|·Q³o¼Ë¼g
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD