大家好，我是小百，我来为大家解答以上问题。selecteditems属性，selecteditems很多人还不知道，现在让我们一起来看看吧！
1、宏其实很简单的 你按照下面的步骤来试试看吧 试试这个代码 新建一个excel文件 在sheet1上点右键 点查看代码 把下面的代码复制进去（直接ctrl+v） alt+F8 运行宏-打开全部表格 在sheet1上点右键 选定全部工作表 执行页面设置（设置成你想要的打印格式） alt+F8 运行宏-保存全部表格 然后就会在你新建工作簿所在目录生成调整后的单独的文档 祝你成功 Sub 打开全部表格() On Error GoTo ee Set actb = ActiveWorkbook Dim I As Long With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Title = "请选择您要打开的文件." .ButtonName = "确定" .InitialView = msoFileDialogViewThumbnail .Show For I = 1 To .SelectedItems.Count Set aa = Workbooks.Open(.SelectedItems(I)) For Each sh In aa.Sheets If Application.WorksheetFunction.CountA(sh.Cells) > 0 Then sh.Copy Before:=actb.Sheets(1) End If Next aa.Close Next End With Exit Sub ee: aa.Close MsgBox aa.Name & "打开失败" End Sub Sub 保存全部表格() Application.DisplayAlerts = 0 Set actb = ActiveWorkbook For Each sh In Sheets Set newb = Workbooks.Add sh.Copy Before:=newb.Sheets(1) newb.Sheets(4).Delete newb.Sheets(3).Delete newb.Sheets(2).Delete newb.SaveAs Filename:=actb.Path & " 副本" & sh.Name, FileFormat:=actb.FileFormat newb.Close Next Application.DisplayAlerts = 1 End Sub。
本文到此讲解完毕了，希望对大家有帮助。