VBA截屏并粘贴到EXCEL内

'按键盘的API函数
Private Declare Sub keybd event Lib “user32” (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub CopyAndPaste()
'Excel活性化
Workbooks(“拷贝源文件.xlsx”).Activate
'选中Sheet
Workbooks(“拷贝源文件.xlsx”).Sheets(1).Select
'等待2秒
Application.Wait (Now + TimeValue(“00:00:02”))
'按下截屏键
Call keybd_event(vbKeySnapshot,1 ,1, 1)
DoEvents
Workbooks(“粘贴处.xlsx”).Activate
'选中单元格
Workbooks(“粘贴处.xlsx”).Sheets(“结果”).Range(“A1”).Select
'粘贴
ActiveSheet.Paste
End Sub