能否提供一个windows脚本示例,不依赖外部库，用于将由分号 ‘;’ 分割的CSV文件转换为XLSX格式？

Windows脚本可以使用内置的`FOR /F`命令结合一些基本的文本处理操作来完成这个任务，虽然它不是最直观的方式，但确实不需要外部库。这里是一个简单的VBScript示例：

Option Explicit

Dim fso, file, lines, arrData, i, j
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("input.csv", 1, True) ' 打开CSV文件
arrData = Split(file.ReadAll, vbNewLine) ' 按行读取并分割

For Each line In arrData
    Dim row(0 To UBound(line) - 1)
    For i = 0 To UBound(row)
        row(i) = Split(line, ";")(i) ' 分割每行的逗号为数组
    Next
    
    ' 创建一个新的Excel工作簿
    Set excelApp = CreateObject("Excel.Application")
    Set workbook = excelApp.Workbooks.Add()
    
    ' 写入数据到新的工作表
    Set worksheet = workbook.Worksheets(1)
    For j = 0 To UBound(row)
        worksheet.Cells(j + 1, 1).Value = row(j)
    Next
    
    ' 保存为xlsx文件
    workbook.SaveAs "output.xlsx", 51 ' 51代表Excel XLSX格式
    workbook.Close SaveChanges:=True
    excelApp.Quit
Next

file.Close ' 关闭CSV文件

WScript.Echo "CSV文件已转换为XLSX格式"