Всем добрый день. Есть макрос на копирование данных в новую книгу и сохранение в .csv. Но макрос сохраняет в 1 столбец через ;. Как сделать корректное сохранение. А если ручками выделяешь, вставляешь и сохранить как CSV ( разделители - запятые ) и все ок
Код
Sub Сохранение()
Dim sDir, sFile, sName As Variant
Dim wb As Workbook
sDir = ThisWorkbook.Path & Application.PathSeparator & "Save"
sFile = sDir & Application.PathSeparator & Range("O4").Value
sName = Range("O4").Value & ".csv"
Columns("A:D").Select
Selection.Copy
Set wb = Workbooks.Add
wb.ActiveSheet.Paste
wb.SaveAs sFile, xlCSV
wb.Close False
Windows("Index.xlsm").Activate
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("N4").Select
ActiveCell.FormulaR1C1 = "Сохранено"
Range("N5").Select
End Sub