sub test()
dim arr()
dim wb as workbook
arr = application.getOpenFileName("Excel文件,*.xls*",2,,,true) ‘ *.xls*表示打开的文件格式为xls*，true表示可以多选
if arr (1) <> "False" then
for i = Lbound(arr) to Ubound(arr) 'Lbound和Ubound分表表示数组的上标和下标
set wb = workbooks.open(arr(i))
......
...... '写需要对打开工作簿的操作
wb.close
next
end if
end sub
