将ArrayOne视作变体
ArrayOne = Array（“ trans”，“ COVER-1”，“ COVER-2”，“ COVER-3”）
ThisWorkbook.Sheets（ArrayOne）.Select
ThisWorkbook.Sheets（ArrayOne）.Copy
NewPath =“ C：\ Users \ duqum user \ Desktop \ Transmittal \”＆Range（“ M23”）。Value
MkDir NewPath
ActiveWorkbook.SAVEAS文件名：= NewPath＆“ \”＆Range（“ m23”）。Value