'打开单个文件并关闭Sub test()Dim str As StringDim wb As Workbookstr = Application.GetOpenFilename("Excel文件,*.xls*", , "请选择")If str <> "False" Then Set wb = Workbooks.Open(str)'#######################'这里针对打开的WB进行操作'####################### wb.CloseEnd IfEnd Sub'打开多选的文件Sub test1()Dim arr()Dim wb As WorkbookOn Error Resume Next '这一句上课的时候没加arr = Application.GetOpenFilename("Excel文件,*.xls*", , "请选择", , True)If arr(1) <> "False" Then For i = LBound(arr) To UBound(arr) Set wb = Workbooks.Open(arr(i))'#######################'这里针对打开的WB进行操作'####################### wb.Close NextEnd IfEnd Sub