Общие вопросы > Разработка приложений
СОХРАНЕНИЕ в excel. И НЕ ТОЛЬКО! БЛИН, ЗУМУЧИЛ ОН МЯ!!!
Sergey_st85:
Как программно сохранить док-т в эксель?
Прошу точно для моего кода; я никак логику не пойму.
Dim xl As Variant, xlWorksheet As Variant,xlworkbook As Variant
Set xl= CreateObject("Excel.Application")
Set wb=xl.Workbooks.add(filepath)
xl.visible =True
Set xlWorkbook = xl.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(1)
wb.save выкидывает окно "Фaйл 'Oтчeт пo coглacoвaнию, пo cиcтeмным нacтpoйкaм, Дoгoвop (04.09.2009).xls' yжe cyщecтвyeт в дaннoм мecтe. Зaмeнить?".
А как же ему не существовать, если я его сохдал... никакие параметры не помогают, другие пути сохранения тоже. Хелп!
Sergey_st85:
А если файл персохранить - он пустой так и остается, несмотря на то, что я ВИЖУ, как он заполняется.
Sergey_st85:
ЕЩЁ КРУЧЕ. умудрился пересохранить так: создавал и записывал все в .XLS1, а записывал при помощи saveas в .XLS. Так у меня форматирование пропало!
Sergey_st85:
Часть задачи решил.
Ни в коем случае нельзя открывать файл методом Set wb=xl.Workbooks.ADD(filepath)
тогда он становится только для чтения.
Вот как получилось.
Open filePath For Output As #FH
Close #fh
Dim xl As Variant, xlWorksheet As Variant,xlworkbook As Variant
Set xl= CreateObject("Excel.Application")
Set wb=xl.Workbooks.open(filepath)
Сохраняется - методом xl.Workbooks(1).save
Но лажа в том, что сохраняется не в формат EXCEL, а в какую-то Ж, ее прилагаю. ЧТо это может быть? Как видите, здесь табы или пробелы вместо каракуль, какие обычно бывают после сохранения именно XLS. Копирнул прям из блокнота.
№ документа Тип его Наименование Подразделение-Исполнитель Кем просрочено Дата поступления на согласование Дата окончания согласования № версии согласования Последняя версия?
02-09/0003д Договор Договор оказания консультационных услуг Служба безопасности Шишкин Дмитрий Александрович 06.02.2009 12:15:18 09.02.2009 11:57:50 1 Да
03/53-09/0063ф Договор Договор с ООО «Офис-Фаворит» на поставку мебели для СРМ Псков "Филиал ""Архангельский"" (г.Архангельск)" Красина Галина Валентиновна 03.04.2009 17:38:22 06.04.2009 11:05:47 1 Да
03-09/0067а Договор "ХОУМБЕРГ Письмо о расторжении договора № б/н от ""15"" июня 2007 г." Дирекция по работе с институциональными агентами Быстрова Ольга Васильевна 14.04.2009 14:14:37 16.04.2009 15:54:12 1 Да
05/15-09/0070ф Договор ДОГОВОР № 15/2009 (ВОЗМЕЗДНОГО ОКАЗАНИЯ УСЛУГ ПО УПРАВЛЕНИЮ АВТОМОБИЛЕМ) СРМ-Камышин Филиал г.Волгоград Колонтаев Артур Петрович 06.03.2009 10:31:52 11.03.2009 11:43:27 1 Да
03/103-09/0016ф Договор Приложение №2 к Договору №2 возмездного оказания услуг (печать бланков договоров ОПС) "Филиал ""Омский"" (г.Омск)" Булыгина Эмилия Вадимовна 09.04.2009 12:51:30 10.04.2009 14:03:48 2
03-09/0105д Договор "Договор на оказание услуг по публикации рекламного модуля и годового отчета НО ""НПФ ""ЛУКОЙЛ-ГАРАТ""" Управление рекламы и PR Азарова Елена Владимировна 05.05.2009 10:14:00 06.05.2009 13:10:48 4
03-09/0105д Догов
Sergey_st85:
Это "Teкcтoвыe фaйлы (c paздeлитeлями тaбyляции) (*.txt)". Почему он сохраняет не в то, что я хочу?.
Навигация
Перейти к полной версии