Question

＃你好，＃

我已经编写了一个代码，将单元格e6填充到网站类别元素上，然后将一些值复制到单元格d6和c6。

代码效果很好。

但是现在我希望整个格子都被选中。

从e7谷到d7和c7 ... 并继续直到该列具有一个空单元格

希望这是可以理解的，我是荷兰人

这是我的参考代码：

Sub RDWGEGEVENS()

'Declaration
Dim ie As InternetExplorer
Dim ieDoc As HTMLDocument

'Browser initialization
Set ie = New InternetExplorer
ie.Visible = False
ie.navigate ("https://www.finnik.nl/kenteken-check/")

'Wait until page loads
Do Until ie.readyState = READYSTATE_COMPLETE
    DoEvents
Loop

'Document initialization
Set ieDoc = ie.document

'Vul het kentekenveld in

        Application.Wait Now() + #12:00:04 AM#                                                      'wait
        Set kentekenFld = ieDoc.getElementsByClassName("license-search")(1)                         'kentekenveld
        kentekenFld.Value = Blad1.Range("e6").Value
        
        '<div id="kenteken_top_input_licenceplate" class="group-input license-plate" style="">      'websitecode
                               
'klik de knop
        
        
        Application.Wait Now() + #12:00:05 AM#                                                      'wait
        Set gegevensophalenBtn = ieDoc.getElementsByClassName("button button-secondary")(0)         'gegevensophalenknop
        gegevensophalenBtn.Click
        
        '<button id="kenteken_top_button" type="submit" class="button button-secondary" style="">   'websitecode
                                
        
'Data ophalen
        
        Application.Wait Now() + #12:00:15 AM#
                      
        '<div class="right" id="value-apk">31-05-2021</div>                                         'apk datum
        
        Blad1.Range("d6") = ieDoc.getElementById("value-historie-apk-vervaldatum").innerText
        
        'Application.Wait Now() + #12:00:01 AM#
        
        
        
        '<div class="right" id="value-historie-datum-aansprakelijkheid">16 april 2009</div>         'datum laatste tenaamstelling
                
        Blad1.Range("c6") = ieDoc.getElementById("value-historie-datum-aansprakelijkheid").innerText
        
        'Application.Wait Now() + #12:00:01 AM#
        
      

ie.Quit

MsgBox ("Alle beschikbare rijen gecontroleerd")

End Sub

我也尝试过：

如果我把代码放在一起，我最多可以做15行。电脑死机了。

我希望有人能帮忙吗？

问候约翰

将多个单元格抓取到特定网页，

0 个答案: