[已解决]优化合并指定工作簿VBA代码，代码只能指定xls文件，无法指定2007文件。

yang2739

Sub 合并指定工作簿()
    Dim FilesToOpen
    Dim x As Integer
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False
    FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls),*.xlsx", MultiSelect:=True, Title:="要合并的文件")
   
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "没有选中文件"
        GoTo ExitHandler
    End If
    x = 1
    While x <= UBound(FilesToOpen)
        Workbooks.Open Filename:=FilesToOpen(x)
        Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        x = x + 1
    Wend
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

最佳答案

月排行榜 / 总排行榜

suye1010

2014-1-15 13:15

    FilesToOpen = Application.GetOpenFilename(FileFilter:="Excel 2003文件,*.xls,Excel 2007文件,*.xlsx,Excel 2007宏文件,*.xlsm", MultiSelect:=True, Title:="要合并的文件")

跳转到最佳答案楼层

suye1010

FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件,*.xls*", MultiSelect:=True, Title:="要合并的文件")

suye1010

    FilesToOpen = Application.GetOpenFilename(FileFilter:="Excel 2003文件,*.xls,Excel 2007文件,*.xlsx,Excel 2007宏文件,*.xlsm", MultiSelect:=True, Title:="要合并的文件")