每5秒检测一下剪贴板，将剪贴板上的文字自动复制到excel的A列，每复制一次换一次行

wwdfefgg

每5秒检测一下剪贴板，将剪贴板上的文字自动复制到exce中l的A列，每复制一次换一次行

下面是文心一言写的代码，不好用，原因是：
1、粘贴完后换不了行；
2、要求是复制到excel，可程序好像识别不了excel，我当前打开的是word时，它会复制到word，打开网页时，它会复制到网页

1. Option Explicit
   
2. 
   
3. ' 声明一个全局变量来存储下一次运行的时间
   
4. Dim NextRunTime As Double
   
5. 
   
6. ' 声明一个常量来表示检查剪贴板的间隔时间（以秒为单位）
   
7. Const CheckInterval As Double = 5 ' 每5秒检查一次
   
8. 
   
9. ' 声明Windows API函数（需要添加适当的声明，但这里为了简化而省略）
   
10. ' ...（实际上，由于VBA的限制，我们无法直接调用Windows API来获取剪贴板文本）
    
11. 
    
12. ' 检查剪贴板并尝试粘贴到A1单元格的子程序
    
13. Sub CheckAndPasteFromClipboard()
    
14.     ' 这里我们不会真正检查剪贴板内容是否为文本，因为VBA不直接支持这一点
    
15.     ' 而是假设如果剪贴板上有内容，我们可以通过SendKeys来粘贴它
    
16.    
    
17.     ' 确保A1单元格是活动的（这通常不是必要的，因为SendKeys会发送到活动窗口）
    
18.     ' 但为了清晰起见，我们还是将其选中
    
19.     Range("A1").Select
    
20.    
    
21.     ' 使用SendKeys模拟Ctrl+V来粘贴剪贴板内容
    
22.     ' 注意：这种方法非常不可靠，因为它依赖于焦点和键盘布局
    
23.     Application.SendKeys "^v", True
    
24.    
    
25.     ' 重新设置下一次运行的时间
    
26.     NextRunTime = Now + TimeValue("00:00:" & CheckInterval)
    
27.    
    
28.     ' 使用OnTime方法安排下一次运行
    
29.     Application.OnTime NextRunTime, "CheckAndPasteFromClipboard"
    
30. End Sub
    
31. 
    
32. ' 启动检查剪贴板的子程序（你可以通过按钮点击或其他方式触发这个子程序）
    
33. Sub StartCheckingClipboard()
    
34.     ' 调用CheckAndPasteFromClipboard子程序来开始检查
    
35.     ' 并设置第一次运行的时间
    
36.     CheckAndPasteFromClipboard
    
37. End Sub
    
38. 
    
39. ' 停止检查剪贴板的子程序（你可以通过另一个按钮点击来触发这个子程序）
    
40. Sub StopCheckingClipboard()
    
41.     ' 使用OnTime方法的Cancel参数来取消下一次运行
    
42.     On Error Resume Next ' 忽略错误（如果NextRunTime没有被设置）
    
43.     Application.OnTime NextRunTime, "CheckAndPasteFromClipboard", , False
    
44.     On Error GoTo 0 ' 恢复正常错误处理
    
45. End Sub

复制代码

xjl565135022

1. Sub test()
   
2. Application.OnTime Now + TimeValue("00:00:05"), "test"
   
3. Dim dataObj As MSForms.DataObject
   
4. Set dataObj = New MSForms.DataObject
   
5. 
   
6. ' 获取剪切板数据
   
7. dataObj.GetFromClipboard
   
8. 
   
9. ' 将剪切板数据粘贴到某个单元格
   
10. Range("A" & [A65536].End(3).Row + 1).PasteSpecial
    
11. 
    
12. End Sub

复制代码

wwdfefgg

xjl565135022 发表于 2024-11-12 10:24

提示出错啊

ynzsvt

wwdfefgg 发表于 2024-11-12 14:00
提示出错啊

插入窗体就不会有这个错误了。你也可以在插入窗体前后看看引用的变化，以后直接勾选引用。窗体不用可以马上删除的。

xjl565135022

wwdfefgg 发表于 2024-11-12 14:00
提示出错啊

在 VBA 编辑器中，点击 "工具" -> "引用" ->添加"Microsoft Forms 2.0 Object Library"

wwdfefgg

xjl565135022 发表于 2024-11-12 14:26
在 VBA 编辑器中，点击 "工具" -> "引用" ->添加"Microsoft Forms 2.0 Object Library"

粘贴到excel后，我没有剪贴新的内容，怎么还每隔5秒，重复粘贴上次的内容？？

粘贴到excel，应该把剪贴板清空，如果剪贴板有新的内容了，再复制，没有新的，不用复制

xjl565135022

1. Sub test()
   
2. Application.OnTime Now + TimeValue("00:00:05"), "test"
   
3. Dim dataObj As MSForms.DataObject
   
4. Set dataObj = New MSForms.DataObject
   
5. 
   
6. ' 获取剪切板数据
   
7. dataObj.GetFromClipboard
   
8. Data = dataObj.GetText
   
9. If Data <> Range("A" & [A65536].End(3).Row) Then
   
10. ' 将剪切板数据粘贴到某个单元格
    
11.     Range("A" & [A65536].End(3).Row + 1).PasteSpecial
    
12. End If
    
13. End Sub

复制代码

加个if判断一下就好了

木槿花西月锦绣

xjl565135022 发表于 2024-11-12 14:26
在 VBA 编辑器中，点击 "工具" -> "引用" ->添加"Microsoft Forms 2.0 Object Library"

没有这个文件，是不是下载一个文件放在这个目录下面，然后按照引用的方法就可以使用了

wwdfefgg

xjl565135022 发表于 2024-11-12 16:01
加个if判断一下就好了

这个还是有点问题，，如果相同的内容，我重复剪贴一次，就不能自动粘贴到excel里了

wwdfefgg

有时候为了工作需要，可能有的内容需要重复剪贴两三次