同一文件下有xls xlsx 如何合并，请大神帮忙修改下代码

zyx_216

文件夹下有两种格式的工作簿，永这个代码合并就少了xls方式，求大神给帮忙改下

Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx" , MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub

lsc900707

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx" , MultiSelect:=True, Title:="合并工作薄")
修改成：
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xl*),*.xl*" , MultiSelect:=True, Title:="合并工作薄")

opiona

http://club.excelhome.net/thread-1409141-1-1.html

zyx_216

朱荣兴 发表于 2018-7-19 10:10
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls*),*.xls*", MultiSelect ...

非常感谢

zyx_216

lsc900707 发表于 2018-7-19 10:14
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx" , MultiSelec ...

谢谢帮忙！！！

zyx_216

opiona 发表于 2018-7-19 10:18
http://club.excelhome.net/thread-1409141-1-1.html

谢谢帮忙！！！