ZIP-архив Создание Для того чтобы записать файлы в ZIP-архив необходимо выполнить несколько простых действий:
* Создать архив с необходимыми параметрами, в который будут помещаться файлы.
* Поместить в архив необходимые файлы.
* Записать архив.
Создание объекта
ЗаписьZIPФайла можно осуществить двумя путями - создать инициализированный объект или создав неинициализированный объект вызвать у него метод Открыть. В обоих случаях состав параметров является одинаковым. В самом простом случае требуется указать только имя файла, куда будет записан архив.
Для создания нового архива требуется указать:
* Имя файла, куда будет записан архив. Этот параметр является обязательным. Если такой файл уже существует на диске, он будет перезаписан!Пароль доступа к архиву. Если этот параметр пропущен или равен пустой строке, то шифрование производится не будет!
* Комментарий к архиву.
* Метод сжатия файлов в архиве. На выбор предоставляется возможность скопировать файлы в архив без сжатия или сжать их. По умолчанию файлы сжимаются.
* Уровень сжатия файлов в архиве. Можно выбирать между минимальным, оптимальным и максимальным сжатием. По умолчанию используется оптимальное сжатие
* Метод шифрования. Можно защитить архив методом шифрования ZIP 2.0, совместимым с большинством программ, или с помощью шифрования на основе новейшего стандарта AES с различной длиной ключа (128, 192 и 256 бит). Однако следует помнить, что данный метод может быть не совместим с некоторыми программами архивирования, например WinRAR.
После создания объекта необходимо добавить в него необходимые файлы, воспользовавшись методом Добавить. Он принимает на вход 3 параметра:
1. Полное имя файла или маску.
2. Режим сохранения путей к файлу. Можно сохранять полные пути, не сохранять пути совсем или сохранять пути относительно каталога. Режим обработки подкаталогов. Можно обрабатывать подкаталоги рекурсивно или не обрабатывать их. Параметр имеет смысл, если в качестве имени указана маска.
После того, как все необходимые файлы добавлены, можно записать архив на диск, воспользовавшись методом Записать().
Важно понимать, что до выполнения этого метода, никаких реальных действий по созданию архива не происходит. После записи архива на диск объект закрывает его и для работы со следующим архивом необходимо выполнить метод Открыть().
Пример:
Код 1C v 8.х Сейчас = ТекущаяДата();Особенности упаковки файлов по маске
Остановимся подробнее на особенностях упаковки файлов по маске.
Предположим, что у нас есть следующий файлы, которые нам необходимо поместить в архив:
c:\ZipTest\11.
xls
c:\ZipTest\12.
xls
c:\ZipTest\13.
xls
c:\ZipTest\MoreFiles\14.
xls
c:\ZipTest\MoreFiles\15.
xls
c:\ZipTest\MoreFiles\16.
xls
Код 1C v 8.х // Добавим необходимые файлы в архивxls ", РежимСохраненияПутейZIP.СохранятьПолныеПути);xls ", РежимСохраненияПутейZIP.СохранятьОтносительныеПути);xls ", РежимСохраненияПутейZIP.НеСохранятьПути);
В результирующий архив будут помещены следующие файлы:
\ZipTest\11.
xls
\12.
xls
\13.
xls
Код 1C v 8.х // Добавим необходимые файлы в архивxls ", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.НеОбрабатывать);
В результирующий архив будут помещены следующие файлы:
\ZipTest\11.
xls
\ZipTest\12.
xls
\ZipTest\13.
xls
Код 1C v 8.х // Добавим необходимые файлы в архивxls ", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
В результирующий архив будут помещены следующие файлы:
\ZipTest\11.
xls
\ZipTest\12.
xls
\ZipTest\13.
xls
\ZipTest\MoreFiles\14.
xls
\ZipTest\MoreFiles\15.
xls
\ZipTest\MoreFiles\16.
xls Категория:
Работа с Файлами и Каталогами Как быстро сохранить огромный отчет в EXCEL? Иногда бывает так, что отчет очень большой (> 65535 строк), а работать с этим всем нужно через EXCEL - 1С такой отчет в xls не сохранит. Да и отчеты с меньшим количеством строк сохраняются в xls -файл очень долго."Документ HTML4" . Файл сохранится быстрее, чем в xls xls или xls x .
Категория:
Работа с Microsoft Office и OpenOffice Выгрузка в PDF из 1С (Средствами OpenOffice) Возникла задача отправлять счета почтой. PDFcreator не подошёл поскольку не удалось вместить счёт на одну страницу по ширине. Решил попробовать OpenOffice. Как сохранять в PDF нашёл быстро, а вот как уместить счёт на одну страницу вширь искал долго.
В версии 1С 8.2.232 появилась возможность сохранять табличный документ в
xls файл на сервера под линуксом. А вот работать с Опеном офисом из-под линукса пока не получается. Собственно комментари ненужны. Вот весь код. Самое интересное это бодание со стилями страниц в Опене Офисе. Жаль что этот фрагмент работает только на клиенте. На сервере вопрос не решается *08
Код 1C v 8.2 УП Процедура КнопкаВыполнитьНажатие(Кнопка)XLS файлXLS =ВременныйФайл + ".xls ";XLS , ТипФайлаТабличногоДокумента.XLS 97);xls файл В PDFXLS _какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлXLS , "\", "/"); // приводим путь к файлу из виндового формата в опен офисныйXLS _какУРЛ, "_blank", 0, НастройкиОткрытия);XLS );
Автор:
Трактор
Функция позволяющая выполнить выгрузку табличного документа в PDF средствами OpenOffice
Код 1C v 8.х // Функция превращает табличный документ в PDF документxls ";XLS = ПутьВыгрузки + ИмяФайлаБезРасширения + РасширениеXSL;XLS XLS , "XLS ");XLS , "XLS ");XLS , "_blank", 0, Массив);XLS , РасширениеXSL, РасширениеPDF);XLS );
Автор:
doom_2001 Категория:
Работа с Microsoft Office и OpenOffice Как запустить макрос, записанный в книге Microsoft Office Excel? Код 1C v 8.х Попыткаxls "); Категория:
Работа с Microsoft Office и OpenOffice Выгрузка данных в Excel с установкой разных параметров Код 1C v 8.х // Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excelxls Код 1C v 7.x //Простейший пример вывода из 1С:Предприятия 7.7 в MS Excel. Обеспечение наличия у рабочей книги единственного листа, Категория:
Работа с Microsoft Office и OpenOffice Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:xls ");xls "; Категория:
Работа с Microsoft Office и OpenOffice Создание документа Excel по имеющемуся шаблону, оформлению. Код 1C v 8.х Попыткаxls "); Категория:
Работа с Microsoft Office и OpenOffice Загрузка данных из MS Excel через объект ADODB Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через COM соединение.
Все что потребуется это создание 2 объектов
* ADODB.Connection
* ADODB. Recordset
Здесь универсальная обработка по загрузке Номенклатуры из Excel:
Код 1C v 8.х // Функция для Платформы 1С 8.0 или 8.1xls xls )}; Категория:
Конвертация данных, Обмен, Перенос Загрузка данных из MS Excel через объект ADODB Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через COM соединение.
Все что потребуется это создание 2 объектов
* ADODB.Connection
* ADODB. Recordset
Код 1C v 8.х // Выполняет загрузку из файла Excelxls xls )}; Категория:
Работа с Microsoft Office и OpenOffice Установка полей и масштаба документа при сохранении из 1С MS Excel
Код 1C v 8.х Попыткаxls ";XLS 97);OpenOffice Calc
Код 1C v 8.х Попыткаxls ";XLS 97);xls "; Категория:
Работа с Microsoft Office и OpenOffice Загрузка данных из таблицы Excel в ТЗ (Таблицу значений) Код для 7 версии, при использовании в 8-ой - заменить E=СоздатьОбъект("Excel.Application");
на
E=Новый COMОбъект("Excel.Application");
Код 1C v 7.x Функция глОткрытьФайл(Маска="") Экспорт xls ");
Подсказал Abadonna.
Категория:
Работа с Microsoft Office и OpenOffice Как выгрузиться в EXCEL со сводными таблицами Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи:
Funny ):
(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)
(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:
Код 1C v 8.х Процедура ВыгрузитьТаблицуВФайл()xls ");Код 1C v 7.x РабочаяКнига = СоздатьОбъект("Excel.Application"); Категория:
Работа с Microsoft Office и OpenOffice Как из 1С написать формулу в Excel Объяснить мне сразу трудно - поэтому давайте "на пальцах"
Свежий простой пример :
вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "
первое на что хочу обратить внимание
те функции которые Вы видите визуально в ячейке MS EXCEL для 1С "слегка не знакомы", ей лучше озвучить имя функции на VBA
откуда Вы знаете как это функция на VBA называется ???
я Вам расскажу, немного терпения:
1. открываем новую книгу MS EXCEL
2. идем в меню Сервис - Макрос - Начать запись - Ок (появится маленькое окошко с квадратной кнопкой - его не кое случае не закрывать)
3. кликаем ячейку "С1" и пишем в ней формулу =СЦЕПИТЬ(E1;C7)
4. после этого нажимаем на квадратную кнопочку (Мы только что с Вами записали макрос на языке VBA)
5.посмотрим что получилось
идем в меню Сервис - Макрос - Макросы - (там будет в новой книге по умолчанию Макрос1) - выбираем его и нажимаем кнопку "Войти"
Поздравляю - мы попали во встроенный редактор VBA (аналог конфигурартора 1С)
и что мы видим
Код Sub Макрос1()
теоритически нам нужно только
Код Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"
это и будет для 1С =
Код 1C v 7.x Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "Проверим, напишем код на любимом 1С:
Код 1C v 7.x Процедура Сформировать()xls ",)=1 Тогда
все работает.
немного подумав, Вы поймете, что
Код 1C v 7.x Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";
можно заменить на
Код 1C v 7.x Ехсел.Cells(1, 3).FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";
и результат не изменится, а возможностей прибавится.
В MS EXCEL только амлет нельзя пожарить - возможности его одурманивают.
Tatitutu Категория:
Работа с Microsoft Office и OpenOffice Выбрать Остатки и Обороты по указанным счетам, отбор по субконто и выгрузка результата в EXCEL Код 1C v 8.х Запрос=Новый Запрос;xls )|*.xls "; XLS 97); Категория:
Запросы Вставить формулу, функцию в ячейку Excel Код 1C v 8.х Ячейка = Лист.Cells(1,8);Код 1C v 7.x Процедура Сформировать()xls ",)=1 Тогда Категория:
Работа с Microsoft Office и OpenOffice 
ZIP-архив Создание Категория: Работа с Файлами и Каталогами