VBS脚本怎么复制物料描述到新的EXCEL

要将VBS脚本中的物料描述复制到新的Excel文件中，可以使用Excel对象来实现。以下是一个示例代码：

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
' 打开Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
' 选择第一个工作表
Set objWorksheet = objWorkbook.Worksheets(1)

' 在Excel文件中的第一行第一列开始写入物料描述
row = 1
col = 1

' 循环读取VBS脚本中的物料描述，并写入Excel文件中
Do While Not objTextFile.AtEndOfStream
    ' 读取一行文本
    line = objTextFile.ReadLine()
    
    ' 提取物料描述
    ' 这里假设物料描述在每行文本的第一个逗号后面
    materialDescription = Split(line, ",")(1)
    
    ' 将物料描述写入Excel文件中的指定单元格
    objWorksheet.Cells(row, col).Value = materialDescription
    
    ' 移动到下一行
    row = row + 1
Loop

' 保存Excel文件
objWorkbook.Save

' 关闭Excel文件
objWorkbook.Close

' 退出Excel应用程序
objExcel.Quit

' 释放对象
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing

请注意，上述代码只是一个示例，并假设VBS脚本中的物料描述是以逗号分隔的。您需要根据实际的VBS脚本和物料描述的格式进行相应的修改。