21-05-21 06:16 PM
21-05-21 06:56 PM
21-05-21 07:04 PM
ChDir("C:\folder path")
Workbooks.OpenText (Filename:="C:\BSEG.txt", Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True)
ActiveWorkbook.Save
21-05-21 09:05 PM
21-05-21 09:23 PM