从VBA变体粘贴时，Excel表格不会保留TEXT格式

Question

所以我正在使用vba中的变体数据粘贴到excel表中。但是 - 我需要的数据与VBA中显示的完全相同 - 因此，例如，A列中的数据需要为“0000”，但每当我将其粘贴到excel重新格式化为常规时。

看起来格式可能会卡在变体中，但我不知道如何将变体设置为精确文本。

以下是我如何粘贴。感谢任何帮助：）

    tConverted.DataBodyRange.NumberFormat = "@"

'*This line adds the data from the variant array into the table
    tConverted.ListColumns(1).DataBodyRange(rowAdd.Index).Resize(UBound(vConverted), tConverted.ListColumns.Count).Value = vConverted

'*This section deletes any blank rows that may have been created by forgetting to select data
    Do While tConverted.DataBodyRange.Cells(1, 1).Value = ""
        If tConverted.DataBodyRange.Cells(1, 1).Value = "" Then
            tConverted.DataBodyRange.Rows(1).Delete
        End If
    Loop

MsgBox "Test", vbOKOnly