Subsheets2o
e定义对话框变量DimccAsFileDialogSetccApplicatio
FileDialogmsoFileDialogFilePickerDim
ewworkAsWorkbookSet
ewworkWorkbooksAddWithccIfShow1The
DimvrtSelectedItemAsVaria
tDimiAsI
tegeri1ForEachvrtSelectedItemI
SelectedItemsDimtempwbAsWorkbookSettempwbWorkbooksOpe
vrtSelectedItemtempwbWorksheets1CopyBefore
ewworkWorksheetsi
ewworkWorksheetsiNameVBAReplacetempwbName