Excel中批量将数字设置为文本格式

Sub 批量将数字设置为文本格式()
    文件名 = Dir("C:\Users\Administrator\Desktop\拆分\")
    
    Do While 文件名 <> ""
        Set wb = Workbooks.Open(Filename:="C:\Users\Administrator\Desktop\拆分\" & 文件名)
        Set 待处理单元格1 = wb.Sheets(1).Range("D2")
        Set 待处理单元格2 = wb.Sheets(1).Range("D4")
        
        If 待处理单元格1.Value <> "" Then
            待处理单元格1.UnMerge
            待处理单元格1.NumberFormat = "@"       ' 关键步骤：将区域格式设置为文本
            待处理单元格1.TextToColumns _
            Destination:=待处理单元格1.Cells(1, 1), _
            DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, xlTextFormat)   ' 目标位置为当前列的第一个单元格；固定宽度模式（不拆分列）；第1列（索引0）强制转为文本
        End If
        
        If 待处理单元格2.Value <> "" Then
            待处理单元格2.UnMerge
            待处理单元格2.NumberFormat = "@"
            待处理单元格2.TextToColumns _
            Destination:=待处理单元格2.Cells(1, 1), _
            DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, xlTextFormat)
        End If

        wb.Close SaveChanges:=True
        文件名 = Dir()
    Loop
    
End Sub