需求：编写VBA宏捕获浏览器标签页截图并按Excel指定路径保存为PNG

下面是调整后的代码，实现捕获指定浏览器窗口截图、从Excel单元格读取保存路径和文件名后缀，并将截图保存为PNG文件的功能：

Option Explicit
#If VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
#Else
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If

Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2

Sub CaptureBrowserWindowAndSaveAsPNG()
    Dim targetWindowTitle As String
    Dim savePath As String
    Dim fileNamePrefix As String
    Dim fileName As String
    Dim fullFilePath As String
    Dim tempChart As ChartObject
    Dim ws As Worksheet
    
    ' 配置参数，根据你的实际需求修改
    targetWindowTitle = "目标浏览器窗口标题" ' 替换为浏览器标签页对应的窗口标题（如"百度一下，你就知道 - Google Chrome"）
    savePath = ThisWorkbook.Sheets("Sheet1").Range("A1").Value ' 保存路径从Sheet1的A1单元格读取
    fileNamePrefix = "WebCapture_" ' 自定义固定文件名前缀
    Set ws = ActiveSheet
    
    ' 检查保存路径是否存在，不存在则自动创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 生成完整文件名：前缀 + 活动单元格值 + .png
    fileName = fileNamePrefix & ws.ActiveCell.Value & ".png"
    fullFilePath = savePath & "\" & fileName
    
    ' 激活目标浏览器窗口
    AppActivate targetWindowTitle, Wait:=True
    Application.Wait Now + TimeValue("00:00:01") ' 等待窗口稳定激活，可根据实际调整时长
    
    ' 捕获当前激活窗口的截图（仅捕获窗口，而非全屏）
    keybd_event VK_SNAPSHOT, 0, &H1, 0 ' 按下截图键，指定捕获活动窗口
    keybd_event VK_SNAPSHOT, 0, &H1 Or KEYEVENTF_KEYUP, 0 ' 释放截图键
    
    ' 切回Excel窗口
    AppActivate ThisWorkbook.Name, Wait:=True
    Application.Wait Now + TimeValue("00:00:01") ' 等待剪贴板内容就绪
    
    ' 利用临时图表将剪贴板中的截图导出为PNG
    Set tempChart = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=1, Height:=1)
    tempChart.Activate
    tempChart.Chart.Paste
    tempChart.Chart.Export Filename:=fullFilePath, FilterName:="PNG"
    
    ' 删除临时生成的图表
    tempChart.Delete
    
    MsgBox "截图已保存：" & fullFilePath, vbInformation
End Sub

关键调整说明 #

• 64位Excel兼容：添加条件编译声明，确保宏在32位和64位Excel环境下都能正常运行
• 精准窗口捕获：修改keybd_event参数，仅捕获激活的浏览器窗口（而非全屏）
• 动态路径与文件名：从指定单元格读取保存路径，活动单元格的值作为文件名后缀，配合固定前缀生成唯一文件名
• 自动路径创建：如果指定的保存文件夹不存在，宏会自动创建该文件夹
• 临时图表导出：借助Excel的Chart对象实现将剪贴板中的截图导出为PNG文件，避免直接粘贴到工作表

使用注意事项 #

1. 替换targetWindowTitle为你的浏览器窗口实际标题（可通过任务管理器查看窗口名称）
2. 确保保存路径单元格（示例中为Sheet1的A1）的路径格式正确，末尾无需添加反斜杠
3. 活动单元格的值需为合法文件名，不能包含\/:*?"<>|等特殊字符

内容的提问来源于stack exchange，提问作者ANAND AGRAWAL