Sub 新建() Dim excelApp, excelWB As Object Dim savePath As String Set excelApp = CreateObject("Excel.Application") Set excelWB = excelApp.Workbooks.Add excelApp.DisplayAlerts = False savePath = ActiveWorkbook.Path & "\新建表1.xls" excelWB.SaveAs savePath excelApp.Quit Workbooks.Open savePath End Sub內容複製：Workbooks("計算表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)把“計算表”的Sheet1整個複製到“新建表1”中，為最前面一個Sheet，預設命名將是“Sheet1(2)”，樓主可以再重新命名Sheet就行了。

你意思是

投產單.XLS每次編輯完時，將sheet1中的A1:G20複製到新檔案sheet1中A1:G20中，儲存在d盤中並且以投產單.XLS”裡sheet1中的A2的內容（XX）命名XX.XLS。