vba复制TXT到剪贴板的代码
可以不导入excel再复制吗，且退出去的话会提示清空剪贴板,可以直接用vba打开指定路径的TXT文档，并选中全部内容,复制到剪贴板备用吗？求代码，谢谢！...
可以不导入excel再复制吗，且退出去的话会提示清空剪贴板,
可以直接用vba打开指定路径的TXT文档，并选中全部内容,复制到剪贴板备用吗？求代码，谢谢！ 展开
可以直接用vba打开指定路径的TXT文档，并选中全部内容,复制到剪贴板备用吗？求代码，谢谢！ 展开
3个回答
展开全部
Sub 将txt文件内容复制到剪贴板()
Pn = "d:\wy.txt" 'txt文件名及路径
Shell "notepad.exe " & Pn, 1 '用记事本打开文件
'Application.Wait Now + TimeValue("00:00:01") '暂停1秒等待文件打开完毕（大文件用）
SendKeys "^a", True '全选文本
SendKeys "^c", True '复制到剪贴板
SendKeys "%{F4}", True '关闭txt文件
End Sub
追问
我在之前找到了代码，也测试过你的代码，基本可以满足要求，但会弹一个记事本出来，然后还会跳到其他的窗口，相对来说，我用我找到的更快捷，不过代码是你的简洁，可以把我说的问题解决吗？分我先给了，哈哈!!
来自：求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
可以屏蔽提示的。可以直接调用剪贴板对象，向剪贴板里写入内容即可。excelhome论坛上都有现成的代码。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
百度vb clipboard
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
