VBA 打开CSV文件并复制内容到当前工作表

最新推荐文章于 2024-04-01 20:32:40 发布

XENIA1992

最新推荐文章于 2024-04-01 20:32:40 发布

阅读量3.4k

点赞数

文章标签： excel 经验分享

本文链接：https://blog.csdn.net/XENIA1992/article/details/115181942

版权

这篇博客介绍如何使用VBA打开指定路径的CSV文件，并将其内容复制到当前Excel工作表中。考虑到CSV文件可能导致后台Excel进程未完全关闭，因此采用新建Excel进程的方式来确保操作完成后能正确关闭。

摘要由CSDN通过智能技术生成

Sub main()

    '选择采集文件，获取采集的文件路径
    FilePath = SelectFile
    call CopyAgilent(FilePath)
   
End Sub

'选择ncsCS采集文件
Function SelectFile()


       With Application.FileDialog(msoFileDialogFilePicker)
                .InitialFileName = "E:\2021近期工作\日常代码工作"
                .AllowMultiSelect = False   '单选择
                .Filters.Clear   '清除文件过滤器
                .Filters.Add "Excel Files", "*.xls;*.xlw;*.xlsx;*.csv"
                .Filters.Add "All Files", "*.*"          '设置两个文件过滤器
                If .Show = 0 Then    'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
                    Exit Function
                End If
                
                '获得文件的路径SelectFile
                 SelectFile= .SelectedItems(1)
    
        End With
        
End Function
Function CopyAgilent(p)

            Dim fname