第4个回答 2009-06-27
'运行下面的宏
Public Sub xx()
f = Application _
.GetOpenFilename("Excel文件 (*.xls),", , "选定文件", , True)
x = 1
While x <= UBound(f)
Workbooks.Open f(x)
Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
End Sub