vbs将txt转换为excel

以下是将txt文件转换为Excel文件的示例VBScript代码：

Dim objExcel, objWorkbook, objFSO, objTextFile, strText

'创建Excel对象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

'创建工作簿
Set objWorkbook = objExcel.Workbooks.Add()

'获取文本文件对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\example.txt")

'将文本文件内容按行读取并写入Excel单元格
Do Until objTextFile.AtEndOfStream
    strText = objTextFile.ReadLine
    objExcel.ActiveCell.Value = strText
    objExcel.ActiveCell.Offset(1, 0).Select
Loop

'保存Excel文件
objWorkbook.SaveAs("C:\example.xlsx")

'关闭Excel对象
objExcel.Quit

在代码中，我们首先创建Excel对象，并设置其可见性。然后创建一个新的工作簿，并获取要转换为Excel的文本文件对象。接下来，我们按行读取文本文件内容，并将其写入Excel单元格。最后，我们将Excel文件保存到指定的位置，并关闭Excel对象。