论坛 › 【计算机学堂】 › 怎么将多个Excel工作簿合并成一个新的工作簿(我的是CSV格式的表格)

北极—寒 发表于 2014-6-8 23:10

怎么将多个Excel工作簿合并成一个新的工作簿(我的是CSV格式的表格)

网上找了那些宏程序，粘贴程序都出错了，不知道什么情况！求大神们指教，QQ565461202，加我远程操控更好！毕业了真难，找老师找不到~~谢谢大家了~~

北极—寒 发表于 2014-6-9 08:55

自己顶上去

北极—寒 发表于 2014-6-9 22:06

自己回复了~~~已经搞定！
程序如下
Sub MergeWorkbooks()
    Dim FileSet
    Dim i As Integer
   
    On Error GoTo 0
    Application.ScreenUpdating = False

    FileSet = Application.GetOpenFilename(FileFilter:="Excel 2007(*.csv),*.csv", _
                                          MultiSelect:=True, Title:="选择要合并的文件")
   
    If TypeName(FileSet) = "Boolean" Then
      GoTo ExitSub
    End If
   
    For Each Filename In FileSet
      Workbooks.Open Filename
      Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Next
   
ExitSub:
    Application.ScreenUpdating = True
   
End Sub

查看完整版本: 怎么将多个Excel工作簿合并成一个新的工作簿(我的是CSV格式的表格)