Re: Macro to convert Text file into Excel file
Hi,
can you make this Macro more robust?-
)
=============================================
Sub Convert()
'
' Convert Macro
'
'
Workbooks.OpenText Filename:="N:\SDSBUDG", Origin:=437, StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(1, 2), Array(3, 9), _
Array(6, 2), Array(9, 9), Array(12, 2), Array(13, 9), Array(16, 2), Array(19, 9), Array(22, _
2), Array(26, 9), Array(30, 2), Array(33, 9), Array(36, 2), Array(66, 9), Array(68, 1), _
Array(81, 9), Array(82, 1), Array(95, 9), Array(96, 1), Array(109, 9), Array(110, 1), Array _
(123, 9), Array(124, 1), Array(138, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:="N:\SDSBUDG.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Cells.Select
Selection.Copy
Windows("SDSBUDG 2017-18 Download.xlsm").Activate
Cells.Select
ActiveSheet.Paste
Range("G10").Select
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").ColumnWidth = 8.18
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub