Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Не корректно сохраняет .csv
 
Всем добрый день. Есть макрос на копирование данных в новую книгу и сохранение в .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
Изменено: VB777 - 14 Сен 2018 08:16:53 (дополнение)
 
Так как раз через ; - это классически правильный вариант :)
Ну а Вы можете дописать  Local:=true в строку сохранения. Через запятую.
 
Странно, у меня в русском 2007 без указания Local сохраняет с разделителем запятая, с Local:=true сохраняет с ;
 
Hugo, от души. Быстро и по делу. Спасибо огромное. Казанский, У меня 2013, и на второй машине 2010 не робило
Страницы: 1
Читают тему (гостей: 1)
Наверх