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

北极—寒

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

北极—寒

自己顶上去

北极—寒

自己回复了~~~已经搞定！
程序如下
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