VBA FieldInfo 和.NumberFormat 的区别 = "@"

Question

我有一个程序在.XLS 格式下提取我的数据，它给了我类似的东西：

然后，我运行一个宏：

Dim file As String
Const r_as400 = "C:\test\"
Const r_colos = "C:\test\save\"
Const file_name= "TCODES_PRODUITS.xls"

Sub test()
'
' test Macro
'

'
    file= r_as400 & file_name

    Workbooks.OpenText Filename:=file, Origin:=xlMSDOS, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
        Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
        FieldInfo:=Array(Array(1, 2), Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 1), _
        Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
        Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), _
        Array(18, 1)), TrailingMinusNumbers:=True

之后我的文件看起来像这样：

如您所见，在第一个屏幕中，只有 1 个数字的行和其他 13 个数字的行

在宏之后，一些行等于 其他人

我尝试了一些东西，从最初的文件中我将列 D 格式更改为文本（NumberFormat（'@'）），但它没有改变任何东西。

有人可以向我解释差异以及 VBA 指令如何知道“1”之前必须存在多少“0”？

Answer 1

请尝试下一个代码。 当然，您使用的常量必须按原样存在：

Sub testCreateNecessaryLeadingZeros()
  Dim wb As Workbook, ws As Worksheet, lastR As Long, rng As Range, arr, i As Long
  
  Set wb = Workbooks.Open(r_as400 & file_name)
   Set ws = wb.Sheets(1)
   lastR = ws.Range("D" & ws.rows.count).End(xlUp).row 'last row on D:D
   Set rng = ws.Range("D2:D" & lastR)
   arr = rng.value 'place it in an array
    For i = 1 To UBound(arr)
        arr(i, 1) = Format(arr(i, 1), "00000000000000")
   Next
   rng.NumberFormat = "@"  'format the range as text
   rng.value = arr         'drop the array content, at once
End Sub