如何使用VBA截取网页截图？

如何在excel中使用VBA截取网页截图 问题是屏幕截图只能通过按下键盘上的F6键来完成，因为Screenhunter是用于这个目的的。 打印屏幕键被禁用。

我使用了下面的代码，但是意识到sendkey函数不能被使用：

sub test() application.sendkeys "{F6}" end sub 

请帮忙。

Answer 1

最大化屏幕后，我添加了一些延迟，创build了一个Word文档，并粘贴在其​​中的屏幕截图。 其余的代码取自Siddharth提供的链接。

 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private Const VK_SNAPSHOT As Byte = 44 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const SW_SHOWMAXIMIZED = 3 Private Const VK_LCONTROL As Long = &HA2 Private Const VK_V = &H56 Private Const KEYEVENTF_KEYUP = &H2 Sub Sample() Dim IE As Object Dim hwnd As Long, IECaption As String Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "www.Google.com" Sleep 5000 '~~> Get the caption of IE IECaption = "Google - Internet Explorer" '~~> Get handle of IE hwnd = FindWindow(vbNullString, IECaption) If hwnd = 0 Then MsgBox "IE Window Not found!" Exit Sub Else '~~> Maximize IE ShowWindow hwnd, SW_SHOWMAXIMIZED End If Sleep 3000 DoEvents '~~> Take a snapshot Call keybd_event(VK_SNAPSHOT, 0, 0, 0) '~~> Start Word Set wordobj = CreateObject("Word.Application") Set objDoc = wordobj.Documents.Add wordobj.Visible = True Set objSelection = wordobj.Selection 'Paste into Word objSelection.Paste End Sub