首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

使用VBA将多个CSV文件导入到Excel中的单个工作表中(当前只能执行1项操作)

使用VBA将多个CSV文件导入到Excel中的单个工作表中,可以按照以下步骤进行操作:

  1. 打开Excel,按下Alt + F11进入VBA编辑器界面。
  2. 在VBA编辑器中,点击插入菜单,选择模块,创建一个新的模块。
  3. 在新建的模块中,编写以下VBA代码:
代码语言:txt
复制
Sub ImportCSVFiles()
    Dim MyFolder As String
    Dim MyFile As String
    Dim CurrentWorkbook As Workbook
    Dim TargetWorkbook As Workbook
    Dim TargetWorksheet As Worksheet
    Dim LastRow As Long
    
    ' 设置目标工作簿和工作表
    Set CurrentWorkbook = ThisWorkbook
    Set TargetWorkbook = CurrentWorkbook
    Set TargetWorksheet = TargetWorkbook.Worksheets("Sheet1") ' 修改为目标工作表的名称
    
    ' 选择包含CSV文件的文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择包含CSV文件的文件夹"
        .Show
        If .SelectedItems.Count <> 0 Then
            MyFolder = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    ' 循环处理文件夹中的CSV文件
    MyFile = Dir(MyFolder & "*.csv")
    Do While MyFile <> ""
        ' 打开CSV文件
        Workbooks.Open Filename:=MyFolder & MyFile
        ' 将CSV文件内容复制到目标工作表中
        LastRow = TargetWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("A1").CurrentRegion.Copy Destination:=TargetWorksheet.Cells(LastRow + 1, 1)
        ' 关闭CSV文件
        Workbooks(MyFile).Close SaveChanges:=False
        ' 继续处理下一个CSV文件
        MyFile = Dir
    Loop
    
    ' 清理对象
    Set TargetWorksheet = Nothing
    Set TargetWorkbook = Nothing
    Set CurrentWorkbook = Nothing
    
    MsgBox "CSV文件导入完成!"
End Sub
  1. 修改代码中的目标工作表名称,将"Sheet1"修改为你想要导入CSV文件的目标工作表名称。
  2. 按下F5运行代码,选择包含CSV文件的文件夹。
  3. VBA将会逐个打开CSV文件,并将其内容复制到目标工作表的下方。
  4. 运行完成后,会弹出一个消息框提示CSV文件导入完成。

这样,你就可以使用VBA将多个CSV文件导入到Excel中的单个工作表中了。

注意:以上代码仅适用于当前只能执行一项操作的情况。如果需要同时执行多项操作,可以对代码进行相应的修改。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

1分34秒

手把手教你利用Python轻松拆分Excel为多个CSV文件

5分33秒

JSP 在线学习系统myeclipse开发mysql数据库web结构java编程

领券