Имеется макрос, в принципе все подгружает, но всегда выскакивает окошко ошибка 400, что это такое?
Sub Макрос1()
'
'
'
ChDir "N:\ORAUSERS\egracheva\OUT"
Workbooks.OpenText Filename:="N:\ORAUSERS\egracheva\OUT\checknd1.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=True, OtherChar:=";", FieldInfo:=Array( _
Array(1, 2), Array(2, 2), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "Ðàñ÷åòíûé ñ÷åò"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Äîõîäíûå ñ÷åòà"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Äàòà"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Ñóììà Äîõîäà"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Ñóììà ÍÄÑ"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Ïðèìå÷àíèå"
Rows("1:1").Select
Selection.Font.Bold = True
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="N:\ORAUSERS\egracheva\OUT\checknd1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub