I would like to create a macro,which imports a txt file and saves it as xlsx.
I used the macro-recorder and after that found this code


Workbooks.OpenText Filename:= _
        "X:\file.txt" _
        , Origin:=852, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
        Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
        Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15 _
        , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2), _
        Array(22, 2), Array(23, 2), Array(24, 2), Array(25, 2), Array(26, 2), Array(27, 2), Array( _
        28, 2), Array(29, 2), Array(30, 2), Array(31, 2), Array(32, 2), Array(33, 2), Array(34, 2), _
        Array(35, 2), Array(36, 2), Array(37, 2), Array(38, 2)), TrailingMinusNumbers:=True
The problem is, that the 2nd field, which has 24 digits is imported on an incorrect way, the last digits are converted into zeros.
I guess, the array-parameters should be changed, but I cannot find any source, which describe the correct way of it.
Can someone help in it?

Thanks