Текстовый файл с разделителями по конвейеру в CSV-файл в VBScript

Question

У меня есть текстовый файл с | разграничены. Я хочу сохранить этот файл в Excel. Вот мой код

' Define constants
Const xlDelimited = 1   
'The TSV file to be converted
strProdTextFile = "C:\Users\laxmi\Documents\Payroll\CompareFiles\SEACRDPRD01SVM_xLearnCom_10292018.txt"

'The Excel file to be created
strProdExcelFile = "C:\Users\laxmi\Documents\Payroll\CompareFiles\SEACRDPRD01SVM_xLearnCom_10292018.xls"

Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = FALSE
objExcel.Visible = FALSE

Set objWorkbook = objExcel.Workbooks.OpenText(strProdTextFile,,,xlDelimited,,,,,,,True,"|")
objExcel.ActiveWorkbook.SaveAs strProdExcelFile, 51

objExcel.ActiveWorkbook.Close False
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit 

Это ошибка, которую я получаю:

Требуется объект: 'objExcel.Workbooks.OpenText (...)'

Строка (14): "Установить objWorkbook = objExcel.Workbooks.OpenText (strProdTextFile ,,, xlDelimited ,,,,,,, True," | ")"

Answer 1

Workbooks.OpenText не возвращает значение, поэтому ваш скрипт не работает на

Set objWorkbook = objExcel.Workbooks.OpenText(...)

потому что Set objWorkbook = требует наличия объекта с правой стороны. Поскольку ваша следующая строка использует ActiveWorkbook, вы можете просто удалить Set objWorkbook = из начала строки.