VBA截屏并粘贴到EXCEL内

最新推荐文章于 2025-01-06 14:24:35 发布

sayu3368

最新推荐文章于 2025-01-06 14:24:35 发布

阅读量2.5k

点赞数 2

分类专栏：笔记

本文链接：https://blog.youkuaiyun.com/sayu3368/article/details/112510838

版权

笔记专栏收录该内容

16 篇文章

订阅专栏

博客展示了在Excel中使用API函数实现复制粘贴操作的代码。通过keybd_event函数模拟按键，先激活拷贝源文件，选中Sheet，按下截屏键，再激活粘贴处文件，选中单元格后进行粘贴，还包含等待2秒的操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'按键盘的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