如何用VBScript解决Excel中邮政编码前导零丢失问题

这个问题我太熟了！之前帮好几个同行解决过VBScript操作Excel时前导零丢失的情况，给你几个纯VBScript的解决方案，完全不用换工具：

方案1：先设置单元格/列的文本格式，再写入值 #

这是最规范的做法，从根源上让Excel把邮政编码识别为文本类型，避免自动转换。你可以针对单个单元格或者整列设置格式：

代码示例（整列设置）： #

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objSheet = objWorkbook.Sheets(1)

' 假设邮政编码要写入A列，先把A列设置为文本格式
objSheet.Columns("A").NumberFormat = "@"

' 写入带前导零的邮政编码
objSheet.Cells(1, 1).Value = "05125"
objSheet.Cells(2, 1).Value = "00101"

' 保存并退出
objWorkbook.SaveAs "C:\YourPath\ZipCodes.xlsx"
objExcel.Quit

代码示例（单个单元格设置）： #

' 针对特定单元格设置文本格式
objSheet.Cells(1, 1).NumberFormat = "@"
objSheet.Cells(1, 1).Value = "05125"

优点：批量处理效率高，单元格显示正常，没有额外隐藏字符。

方案2：写入时在值前添加半角单引号 #

这是Excel的小技巧，半角单引号会强制Excel将后续内容识别为文本，而且单引号不会在单元格中显示出来，非常适合零散的单元格写入：

代码示例： #

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objSheet = objWorkbook.Sheets(1)

' 写入时拼接半角单引号
objSheet.Cells(1, 1).Value = "'05125"
objSheet.Cells(2, 1).Value = "'00101"

objWorkbook.SaveAs "C:\YourPath\ZipCodes.xlsx"
objExcel.Quit

优点：代码改动最小，不需要额外设置格式；注意：单引号必须是半角的，全角引号会被当成普通字符显示。

方案3：确保读取和写入时保持字符串类型 #

从文本文件读取邮政编码时，一定要保持它的字符串格式，不要做任何数值转换（比如CInt/CLng），否则读取阶段前导零就已经丢失了。配合格式设置更保险：

代码示例： #

' 从文本文件读取时直接保留字符串（示例逻辑）
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\YourPath\Input.txt", 1)
strZipCode = objFile.ReadLine ' 直接读取为字符串，不做转换
objFile.Close

' 写入Excel时配合文本格式
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objSheet = objWorkbook.Sheets(1)

objSheet.Cells(1, 1).NumberFormat = "@"
objSheet.Cells(1, 1).Value = strZipCode

objWorkbook.SaveAs "C:\YourPath\ZipCodes.xlsx"
objExcel.Quit

内容的提问来源于stack exchange，提问作者oakanb2