强制Excel在数字前保留前导零

Question

我正在尝试使用VBScript中的Excel.Applicatin对象将CSV文件转换为XLSX。

CSV文件有两列：

"Name","SomeNumber"
"Adam","000234234234"

我正在将该CSV转换为XLSX文件，但已经丢失了数字之间的前导零。

你们能告诉我如何在XLSX中的每个数字之前保持前导零吗？

这是代码的一部分：

Option Explicit

Dim pathToInputCSV, pathToExcel, excelObj, workBook, worksheet

pathToInputCSV = "C:\Users\Admin\Desktop\testconversion\input.csv"
pathToExcel = "C:\Users\Admin\Desktop\testconversion\input.xlsx"

Set excelObj = CreateObject("Excel.Application")
Set workBook = excelObj.Workbooks.Open(pathToInputCSV)
Set worksheet = workBook.Worksheets(1)

excelObj.ActiveSheet.Range("B2").NumberFormat = "@"

workBook.SaveAs pathToExcel, 51

workBook.Close

excelObj.Quit()
Set excelObj = Nothing

因此，将CSV保存到XLSX效果很好，不幸的是，我在数字之前丢失了前导零。