如何从.TXT文件中获取所有内容保持前导“ 0”？

您遇到的问题是，一旦excel掌握了数据，就会产生问题。

因此，将其读取为文本文件并分割每一行，然后将其直接输出到您的目标范围-为此，它将停止excel将任何字符串解析为值-之后，您可以执行任何操作

option explicit
Sub read_text()

  Dim FileToOpen As Variant
  FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
  
  Dim max_cols As Long
  max_cols = 0
  
  Dim r_out As Range
  Set r_out = ThisWorkbook.Worksheets("BOM").Range("C1")
  Dim row_offset As Long
  
  
  offset = 0
  If FileToOpen <> False Then
    Dim fso As Object
    Dim file As Object
  
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile(FileToOpen, 1)
    
    While Not file.AtEndOfStream
      Dim line As String
      line = file.ReadLine
      
      Dim line_arr As Variant
      line_arr = Split(line, vbTab)
      ThisWorkbook.Worksheets("BOM").Range("C1").offset(row_offset, 0) _
             .Resize(1, UBound(line_arr) - LBound(line_arr) + 1).Value = line_arr
      row_offset = row_offset + 1
    Wend
  
    file.Close
  End If

End Sub

输出