如何使用VBA自动点击URL?

Question

我在Excel中有一个包含数千个项目ID的列表。我需要 VBA 代码将项目 ID 插入预设的内部 HTML 链接并"单击"链接(下面列为"example.com"(。单击浏览器中的 HTML 链接将启动文件的自动下载。我已经复制了下面的代码，但继续收到各种错误。感谢您对此的任何想法。

Sub followWebsiteLink()
Dim ie As InternetExplorer
Dim html As HTMLDocument
Dim Link As String
Dim Data As Worksheet
Dim startRow, endRow As Integer
Set Data = Sheets("Sheet1")
startRow = 34
endRow = 3574
Application.ScreenUpdating = False
Set ie = New InternetExplorer
ie.Visible = True
With Data
For i = startRow To endRow
Link = "https://www.example.com/" & .Range("C" & i).Value
Link.Click
startRow = startRow + 1
Next i
End With
End Sub

Answer 1

试试这个...

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal Operation As String, _
ByVal Filename As String, _
Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long = vbMinimizedFocus) As Long
Public Sub OpenUrl()
Dim lngSuccess As Long
lngSuccess = ShellExecute(0, "Open", "https://www.google.com")
End Sub

。相应地调整它以适应您的代码。