Задать вопрос
@iminby
excel

Может у кого есть или, что добавить в данный готовый макрос, чтобы сохранять в таком формате CSV?


Имя,"Базовая цена",Категории,Изображения,"Имя атрибута 1","Значение(-я) аттрибута(-ов) 1","Видимость атрибута 1","Глобальный атрибут 1","Имя атрибута 2","Значение(-я) аттрибута(-ов) 2","Видимость атрибута 2","Глобальный атрибут 2","Имя атрибута 3","Значение(-я) аттрибута(-ов) 3","Видимость атрибута 3","Глобальный атрибут 3"


Надо, чтобы текстовые поля где больше одного слова, сохраняло " ".
Есть такой макрос, но он всему задает " ":

Sub SaveAsCSVinQuotes()   
Dim r As Range, c As Range, s As String   
s = Application.GetSaveAsFilename(, "CSV Files (*.csv),*.csv,All Files (*.*),*.*", , "Сохранение в формате CSV в кавычках")   
If s = "False" Then Exit Sub   
Open s For Output As #1   
For Each r In ActiveSheet.UsedRange.Rows   
   s = ""   
   For Each c In r.Cells   
       s = s & ";" & """" & c & """"   
   Next   
   Print #1, Mid$(s, 2)   
Next   
Close #1   
End Sub
  • Вопрос задан
  • 83 просмотра
6 комментариев
Подписаться 1 Простой 6 комментариев
Пригласить эксперта
Ответы на вопрос 1
honor8
@honor8
Принципы быстродействия VBA в описании
У меня возникает чувство, что вы воспользуетесь "единожды с нужным макросом" и забудете нажать кнопку "Отметить решением". А мне потом придётся удалять ответ, чтобы другие не сомневались в его верности.
Sub SaveAsCSVinQuotes()
  Dim r As Range, c As Range, s As String
  '3456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789
  s = Application.GetSaveAsFilename(FileFilter:="CSV файлы (*.csv), *.csv", _
    Title:="Сохранение CSV в кавычках (укажите разделитель в 1 строке SEP=" _
    & Application.International(xlListSeparator) & ")")
  If s = "False" Then Exit Sub
  Open s For Output As #1
  For Each r In ActiveSheet.UsedRange.Rows
    s = ""
    For Each c In r.Cells
      If c.Value2 Like "* *" Then s = s & ";" & """" & c & """" _
      Else s = s & ";" & c
    Next c: Print #1, Mid(s, 2)
  Next r: Close #1
End Sub
И не забудьте экранировать кавычки кавычками, если они будут встречаться в названии колонки.
Ответ написан
2 комментария
2 комментария
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Аналитик 1С
Автомакон
До 21 750 ₽
Специалист в Финансовый Отдел
Rails
от 50 000 до 90 000 ₽
Аналитик данных
Bogoda Digital Pro • Сан-Хосе
от 999 до 999 ₸
Ещё вакансии
Заказы с Хабр Фриланса
Разработка VST-плагина
19 апр. 2024, в 20:43
20000 руб./за проект
Нарисовать баннер для интернет-магазина
19 апр. 2024, в 20:35
500 руб./в час
Разработать несистемный алерт
19 апр. 2024, в 20:11
500 руб./за проект
Ещё заказы