Сохранение Excel в текстовый файл с разделителями табуляции #415817


#0 by Wehrmacht
Добрый день. Есть код: Попытка    Excel = Новый COMОбъект("Excel.Application");    Workbook = Excel.Workbooks.Open(ИмяФайла); Исключение    ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки);    Workbook = Неопределено;    Excel = Неопределено;    Возврат; КонецПопытки; Worksheet = Workbook.Worksheets; ИмяФайлаCSV = ПолучитьИмяВременногоФайла("txt"); Worksheet.SaveAs(ИмяФайлаCSV, 6); Worksheet = Неопределено; Workbook = Неопределено; Excel = Неопределено; Сохраняет таблицу XLS в файл CSV (разделители -- запятые), работает. Заменяю в SaveAs константу 6 на -4158 (=xlText -- "Текстовый файл (с разделителями табуляции)"), пишет "Произошла исключительная ситуация (0x800a03ec)". Кто-нибудь сталкивался с подобным? Как побороть? Спасибо.
#1 by Wehrmacht
Up
#2 by smaharbA
[1C] Excel.DisplayAlerts = 0; Worksheet.SaveAs(ИмяФайлаCSV, 20); Excel.DisplayAlerts = -1; [/1C]
#3 by Wehrmacht
Спасибо. Вроде работает, даже без DisplayAlerts. А можно поинтересоваться, вы константу 20 откуда взяли?
#4 by smaharbA
в справке екселя посмотри SaveAs
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С