sht.Copy. ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook "將工作簿另存為xlsx格式ActiveWorkbook.
確定! 回上一頁