На главную страницу
Русский English
 


Поддержка
Форум
Техподдержка
Закрытый разделПерсональная

Авторизация

Запомнить меня на этом компьютере
  Забыли свой пароль?
  Регистрация



Поиск по сайту


Подписка

Изменение параметров

Hits 66985845
4432
Hosts 3541117
701
Visitors 53213236
3065

15


Главная / Поддержка / Форумы / Макро

Форум «Макро»

Версия для печати Версия для печати

Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация


Тема: «Экспорт и импорт в формате csv , ошибка на методе WriteCSV » в форуме: Макро   Просмотров: 4373
 
Михаил Реутов
Постоянный посетитель
 
Всего сообщений: 224
Дата регистрации: 21.11.2007
Создано: 08.06.2011 15:07:50
 
 
Приветствую.
Фрагмент кода:
Код

table_name = CStr(table_name)
Set tabl_1 = Rastr(from_table).Tables(­table_name)
Set tabl_2 = Rastr(to_table).Tables(ta­ble_name)
str = ""
For i = 0 To tabl_1.Cols.count - 1
   str = str & "," & CStr(tabl_1.Cols.Item(i).­Name)
Next
str = CStr(Replace(str, ",", "",1,1))
file = pathFolder & "\" & xcol & ".csv"

'ошибка далее
tabl_1.WriteCSV 1, Cstr(file), Cstr(str), ";"
tabl_2.ReadCSV 0, Cstr(file), Cstr(str), ";", ""

где file - путь и сам файл в формате csv, str - перечень наименований столбцов через запятую.

Указанный фрагмент кода перестал работать. Ранее работал, сейчас нет. Код исполняется в WSH, падает Wscript.exe с ошибкой Runtime Error! Сами методы WriteCSV и ReadCSV исполняются в WSC. Хотя сам файл csv создается и в него записывается только одна строка.

Прошу подсказать где, что может быть не так в коде? Ошибка, конечно может быть и по моей вине, но мне не понятно, почему эти методы не работают?

Версия RastrWin 2.53.0.83
 
Профиль
Наверх



Читают тему
гостей: 1, пользователей: 0, из них скрытых: 0


Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация







Программный комплекс «RasrWin»
Программный комплекс «RastrWin»
© «RastrWin», 1988-2019