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

wwdfefgg

最好弄成复制完一次后，，清空剪贴板

xjl565135022

wwdfefgg 发表于 2024-11-12 16:34
最好弄成复制完一次后，，清空剪贴板

清空有点麻烦，可以曲线救国，粘贴完之后，复制一个空的单元格，这样也相当于是清空剪切板了吧

xjl565135022

木槿花西月锦绣 发表于 2024-11-12 16:21
没有这个文件，是不是下载一个文件放在这个目录下面，然后按照引用的方法就可以使用了

注意看我发的截图，里面有路径，路径下就有这个文件。文件名是FM20.DLL

wwdfefgg

xjl565135022 发表于 2024-11-12 17:01
清空有点麻烦，可以曲线救国，粘贴完之后，复制一个空的单元格，这样也相当于是清空剪切板了吧

这样行是行，但工作效率提不上去

xjl565135022

wwdfefgg 发表于 2024-11-12 17:22
这样行是行，但工作效率提不上去

复制空单元格是用代码复制呀，不是叫你手动复制，我懒得写了

ynzsvt

复制粘贴需要多高的效率呀

wwdfefgg

大家还有其他好办法没？？？？

ynzsvt

1. Sub Test2()
   
2. Application.OnTime Now + TimeValue("00:00:01"), "test2", Now + #4:00:00 AM#
   
3. Dim DataObj As MSForms.DataObject, Data1
   
4. Set DataObj = New MSForms.DataObject
   
5. 
   
6. ' 获取剪切板数据
   
7. Data1 = ""
   
8. On Error Resume Next
   
9. DataObj.GetFromClipboard
   
10. Data1 = DataObj.GetText
    
11. On Error GoTo 0
    
12. If Data1 <> "" Then
    
13. 
    
14. ' 将剪切板数据粘贴到某个单元格
    
15. Range("A" & [A65536].End(3).Row + 1).PasteSpecial
    
16. [A1].Copy
    
17. 'Application.CutCopyMode = False
    
18. 'DataObj.Clear
    
19. End If
    
20. End Sub

复制代码

wwdfefgg

ynzsvt 发表于 2024-11-12 19:20

输出结果能否弄成一行2个