如何使用 Excel VBA 打开 URL 列表并在我的辅助监视器上保存每个 URL 的屏幕截图

Question

我有 A1:A60 范围内的 URL 列表。我想打开每一个，截取网站的屏幕截图，关闭网站并将屏幕截图保存为jpg格式。

我正在使用我的辅助显示器截取屏幕截图，因为我已将其设置更改为纵向（而非横向）以捕获冗长的文章。

我试图让它与下面的代码一起工作，但它 returns 一张空白的 jpg 图片。


Option Explicit

'Declare Windows API Functions
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Declare Virtual Key Codes
Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()

    Dim Address As String
    Address = Range("A1").Value
    ActiveWorkbook.FollowHyperlink Address, , True

    AppActivate "Google Chrome"
    keybd_event VK_SNAPSHOT, 1, 0, 0

    ActiveSheet.Paste

    Charts.Add
    Charts(1).AutoScaling = True
    Charts(1).Paste
    Charts(1).Export Filename:="C:\Users\user\Desktop[=12=]coding\Excel (Visual Basic)\ClipBoardToPic.jpg", FilterName:="jpg"
    Charts(1).Delete

End Sub

Answer 1

因此，installing selenium，确保在 selenium 文件夹和 vbe > 工具 > 参考 > 添加对 selenium 类型库的引用是最新的 chromedriver.exe。以下从工作表、屏幕截图循环 url 并保存到指定位置。 vba 实现中没有正式的方向设置，但您可以调整大小设置并在 windows 之间切换。

Option Explicit
Public Sub Screenshots()
    Dim d As WebDriver, urls(), i As Long
    urls = Application.Transpose(ThisWorkbook.Worksheets("Sheet1").Range("A1:A2").Value) '<change this
    Set d = New ChromeDriver

    With d
        .AddArgument "--headless"
        .Start "Chrome"
        .Window.Maximize

        For i = LBound(urls) To UBound(urls)
            If InStr(urls(i), "http") > 0 Then
                .get urls(i)
                .TakeScreenshot.SaveAs ThisWorkbook.Path & "/screenshot" & str(i) & ".jpg"
            End If
        Next
        .Quit
    End With
End Sub

如何使用 Excel VBA 打开 URL 列表并在我的辅助监视器上保存每个 URL 的屏幕截图

How to open a list of URLs and save a screenshot of each on my secondary monitor using Excel VBA

excel

vba

web-scraping

webpage-screenshot