需要帮助，根据VBS中的范围将excel文件的复制范围正确保存到单独的文件

Question

我正在研究一个VB脚本，它将使用Excel电子表格并将其根据我指定的范围分成四个单独的文件。

我可以使用它，但是我很难保存复制的单元格...我正在获取复制的单元格和整个种群。

Set oExcelWorkbook = oExcelObject.Workbooks.Open("C:\TEST\sample.xlsx")

oExcelWorkbook.Worksheets("Sheet1").Range(sRange1).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file1.xlsx", 51

oExcelWorkbook.Worksheets("Sheet1").Range(sRange2).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file2.xlsx", 51

oExcelWorkbook.Worksheets("Sheet1").Range(sRange3).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file3.xlsx", 51

oExcelWorkbook.Worksheets("Sheet1").Range(sRange4).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file4.xlsx", 51

每个文件在SHEET1中包含整个填充，在SHEET2中包含请求的范围填充。

我只希望这四个文件包含复制到SHEET2的结果

任何帮助将不胜感激。

谢谢。