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

©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容