vba 打开多个excel文件操作模版

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