将txt文件内容复制到剪贴板粘贴到excel

原创已于 2023-12-05 15:49:43 修改 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vba

于 2021-12-07 08:32:16 首次发布

该篇博客介绍了如何使用VBA编写脚本，通过Sub过程实现从txt文件中读取内容，然后复制到剪贴板并粘贴到Excel的工作表中，包括步骤如打开记事本、暂停等待、全选复制、关闭文件和最终的粘贴操作。

Sub 将txt文件内容复制到剪贴板粘贴到excel()

        Pn = "C:\Users\Administrator\Desktop\TenpayRegInfo\TenpayRegInfo.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文件
        
        Application.Wait Now + TimeValue("00:00:01") '暂停1秒等待文件打开完毕（大文件用）
        
        ThisWorkbook.Activate
        
        Range("A1").Select
        
        ActiveSheet.Paste
End Sub