vba 可以截屏吗 用什么代码

可以啊。代码蠢败如下带悔颤：

Private Declare Sub keybd_event Lib "user32" _

(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub My_Screen_1() '整个屏幕

Call keybd_event(vbKeySnapshot, 0, 0, 0)

DoEvents

End Sub

Sub My_Screen_2() '活动窗口

Call keybd_event(vbKeySnapshot, 1, 1, 1)

DoEvents

End Sub

功前宏能：运行 My_Screen_1 就是截取整个屏幕，运行 My_Screen_2 就是仅截取当前活动窗口。

原理: 调用API函数模拟键盘上的PrtSc键（印屏幕）

这个问题很复杂，我觉得可以用这个思路：先下载安装一个图形文字识笑衡别软件，如“尚书七号”等软件都不错，再就可以用VBA可以完成相关工作了，用VBA截图并保存，再用碰谨做VBA控制“尚书七号”软件，识别图形文字，导出，再用VBA控制复制相关晌闭文字，粘贴至excel工作表。

不过我建议你还是别用这个了，图形识别软件普遍不是很好用，你要想别的办法。

---