wb.Openxml加载15位以上的数字而不是字符串

Question

VBA仍然很安静，没有母语为英语的人，所以希望我不会错过任何东西......

我需要在1个CSV中将一长串XML连接在一起。这是通过将XML逐个打开到单独的工作簿中然后将所需的值写入文本文件来完成的。我知道这不是最优的，但它是从前同事那里继承的：

For i_path = 0 to 9
    myPath(i_path) = "C:\Base databases\NUM08072016\ReadingFolder0" & (i_path) & "\"

    Dim myFile   
    myFile = Dir(myPath(i_path) & "*.xml")

    Do While myFile <> ""
        Set WB = Workbooks.OpenXML(Filename:=myPath(i_path) & myFile)

        ----Write certain columns to textfile-----

        WB.Close False
        myFile = Dir()
    Loop
Next i_path

现在我需要的一个列有一个包含所有数字的预设ID。不幸的是，这个预设ID的长度为16.正如你可能猜到的那样，当它没有从0开始时，它会丢失第16位（并用0代替）。

问题：是否有解决方法（例如强制OpenXML将所有内容放入字符串中？）。从短期来看，答案会很好。

从长远来看，我确实意识到excel的限制推动了例如java中的溶解。