时间戳

首页 > 解决方案 > 通过 VBA Excel 更改站点中的数据

html - 通过 VBA Excel 更改站点中的数据

问题描述

我正在尝试通过以下代码更改网站中的值，但是如何Submit通过代码单击按钮？

另外，如果我的.Navigate值应该继续从 A1-->A2--> 等等而不是静态值移动怎么办？（如何使用For循环代替.Navigate）？

Sub FillForm()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate "https://www.morovia.com/bulk-check-digit-calculation/index.php"
    IE.Visible = True
    While IE.busy
        DoEvents
    Wend
    IE.Document.All("").Value = ThisWorkbook.Sheets("Sheet1").Range("b1")
End Sub

任何帮助，将不胜感激。谢谢！

标签： htmlexcelvbaweb-scraping

解决方案

Sub FillForm()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.morovia.com/bulk-check-digit-calculation/index.php"
IE.Visible = True
While IE.busy
DoEvents
Wend

Value = ThisWorkbook.Sheets("Sheet1").Range("b1")
IE.Document.getelementbyid("sourceNumbers").Value = Value
IE.Document.getelementbyid("submit").Click
End Sub

推荐阅读