VBA help - texttoColumn..Array

[Mallesh23]

Hi Team,

What is the meaning of below Array lines. I come across while Converting text to date.


':=Array(1, 1), TrailingMinusNumbers:=True
:=Array(1, 3), TrailingMinusNumbers:=True
:=Array(1, 5), TrailingMinusNumbers:=True
:=Array(1, 7), TrailingMinusNumbers:=True

Sub Macro1()
    
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    
    
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
    
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
    
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 7), TrailingMinusNumbers:=True
End Sub

Thanks
mg

 

[Norie]

For all of them the first 1 indicates it's the 1st column, here's what the 2nd number indicates.

:=Array(1, 1) - General format
:=Array(1, 3) - date in MDY format
:=Array(1, 5) - date in YMD format
:=Array(1, 7) - date in DYM format

 

[Mallesh23]

Hi Norie,

Now I Got it , Thanks for the information.

Thanks
mg