VPF::экспорт листов в csv - Форум программистов

z-END

Дата 13.9.2011, 18:31 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

есть файлы excel в котором содержится много листов. все их нужно сохранить в формате csv
вот такой код:

Код


Sub tocsv()
   Dim WbMain As Workbook, Wb As Workbook
   Dim sh As Worksheet

   Application.ScreenUpdating = False
   Set WbMain = ActiveWorkbook
   For Each sh In WbMain.Worksheets
      If sh.Visible = xlSheetVisible Then
         sh.Copy
         Set Wb = ActiveWorkbook
         Wb.SaveAs "T:\" & Wb.Sheets(1).Name & Format(Now, " (hh.mm.ss)") & ".csv", xlCSV
         Wb.Close False
      End If
   Next sh
   MsgBox "Done!"
End Sub

так вот при сохранении разделители почему-то вместо ";" становятся "," . а в самом файле все ячейки в сроке сливаются в одну..

при этом, если сохранить стандартно не через макрос (т.е. через меню сохранить как) разделители - точка с запятой, как положено.

как это можно исправить?

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

z-END

Дата 13.9.2011, 20:04 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: нет
Всего: 102

Насколько я понимаю проблема в том, что офис английский и где-то в настройках VBA задано, что разделитель ячеек - запятая, но для стран, где разделитель дробной части - запятая (т.е. для россии) в качестве разделителя используется точка с запятой (что мне и нужно)
но установка в Application.DecimalSeparator = "," результата не принесла (

Добавлено через 5 минут и 9 секунд
спасибо за поддержку)))

вопрос решился просто:

Код


  Wb.SaveAs Filename:="T:\" & Wb.Sheets(1).Name & Suff & ".csv", FileFormat:=xlCSV, Local:=True

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Shaginov

Дата 15.9.2011, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.9.2011

Репутация: нет
Всего: нет

Цитата(z-END @ 13.9.2011, 20:04)

Насколько я понимаю проблема в том, что офис английский и где-то в настройках VBA задано, что разделитель ячеек - запятая, но для стран, где разделитель дробной части - запятая (т.е. для россии) в качестве разделителя используется точка с запятой (что мне и нужно)
но установка в Application.DecimalSeparator = "," результата не принесла (

Добавлено @ 20:09
спасибо за поддержку)))

вопрос решился просто:

Код


  Wb.SaveAs Filename:="T:\" & Wb.Sheets(1).Name & Suff & ".csv", FileFormat:=xlCSV, Local:=True

О, как раз то, что мне нужно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »