Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub send_msg()
Dim arr() As Variant, x, y As Integer, my_clip As New DataObject
arr = Application.Selection
Application.SendKeys "^%w"
Sleep 400
For x = 1 To UBound(arr, 1)
my_clip.SetText arr(x, 1)
my_clip.PutInClipboard
Sleep 100
Application.SendKeys "^f", True
Sleep 100
Application.SendKeys "^v", True
Sleep 100
Application.SendKeys "~"
Sleep 100
my_clip.SetText arr(x, 2)
my_clip.PutInClipboard
Sleep 100
Application.SendKeys "^v"
Application.SendKeys "~"
Sleep 100
Application.SendKeys "~"
Next x
End Sub
在运行时经常提示错误，有时候又可以，不知道是哪里的错误呢运行时错误‘-2147221040（800401d0）’：dataobject:PutInClipboard OpenClipboard失败
好像延迟时间可以了，不知道延时还有其他方法吗，这个发送按键反应有点慢呢
今天装了2003完整版 运行时 提示找不到工程或库 ，声明中的这一句 my_clip As New DataObject 被选中，不知道是哪里的错误呢，下面这些是选中的
Dim arr() As Variant, x, y As Integer
set my_clip = New DataObject
你看看是否可行？追问
今天装了2003完整版 运行时 提示找不到工程或库 ，声明中的这一句 my_clip As New DataObject 被选中，不知道是哪里的错误呢，下面这些是选中的
你新建个Form窗体看看
