На чтение 9 мин Просмотров 26.4к. Опубликовано 09.11.2017
MS Excel давно стал стандартом для работы с электронными таблицами. В статье рассматриваются способы программной выгрузки и загрузки из 1С в файлы Excel.
Существует несколько способов программной работы с файлами Excel из 1С. Каждый из них имеет свои преимущества и недостатки.
Содержание
- Обмен через табличный документ
- Обмен через OLE
- Использование COMSafeArray
- Обмен через ADO
- Выгрузка без программирования
Обмен через табличный документ
Данный способ простой. Его суть заключается в том, что объект ТабличныйДокумент имеет методы:
- Записать(<ИмяФайла>, <ТипФайлаТаблицы>) для выгрузки данных в файл;
- Прочитать(<ИмяФайла>, <СпособЧтенияЗначений>) для загрузки данных из файла.
Внимание!
Метод Записать() доступен как на клиенте, так и на сервере. Метод Прочитать() доступен только на стороне сервера. Необходимо помнить об этом
при планировании клиент-серверного взаимодействия.
Рассмотрим пример сохранения табличного документа в файл. Необходимо любым способом создать и заполнить объект ТабличныйДокумент, а выгрузка в файл осуществляется всего лишь одной строкой:
ТабДок.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX);
Здесь ТабДок — сформированный табличный документ, ПутьКФайлу — имя файла для выгрузки, ТипФайлаТабличногоДокумента.XLSX — формат создаваемого файла. Поддерживаются следующие форматы Excel:
- XLS95 — формат Excel 95;
- XLS97 — формат Excel 97;
- XLSX — формат Excel 2007.
Загрузка из файла осуществляется также достаточно просто:
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(ПутьКФайлу, СпособЧтенияЗначенийТабличногоДокумента.Значение);
Здесь ПутьКФайлу — путь к загружаемому файлу Excel. СпособЧтенияЗначенийТабличногоДокумента.Значение определяет, каким образом нужно интерпретировать данные, считываемые из исходного документа. Доступны варианты:
- Значение;
- Текст.
Обмен через OLE
Обмен через технологию OLE automation, пожалуй, самый распространенный вариант программной работы с файлами Excel. Он позволяет использовать весь функционал, предоставляемый Excel, но отличается медленной скоростью работы по сравнению с другими способами. Для обмена через OLE требуется установка MS Excel:
- На компьютере конечного пользователя, если обмен происходит на стороне клиента;
- На компьютере сервера 1С:Предприятие, если обмен происходит на стороне сервера.
Пример выгрузки:
// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Отключение вывода предупреждений и вопросов
Эксель.DisplayAlerts = Ложь;
// Создание новой книги
Книга = Эксель.WorkBooks.Add();
// Позиционирование на первом листе
Лист = Книга.Worksheets(1);// Запись значения в ячейку
Лист.Cells(НомерСтроки, НомерКолонки).Value = ЗначениеЯчейки;// Сохранение файла
Книга.SaveAs(ИмяФайла);// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;
Примеры чтения:
// —— ВАРИАНТ 1 ——
// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Открытие книги
Книга = Эксель.Workbooks.Open(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;// Закрытие книги
Книга.Close(0);// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;// —— ВАРИАНТ 2 ——
// Открытие книги
Книга = ПолучитьCOMОбъект(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;// Закрытие книги
Книга.Application.Quit();
Для обхода всех заполненных строк листа Excel можно использовать следующие приемы:
// —— ВАРИАНТ 1 ——
КоличествоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;
Для НомерСтроки = 1 По КоличествоСтрок Цикл
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
КонецЦикла;// —— ВАРИАНТ 2 ——
НомерСтроки = 0;
Пока Истина Цикл
НомерСтроки = НомерСтроки + 1;
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
Если НЕ ЗначениеЗаполнено(ЗначениеЯчейки) Тогда
Прервать;
КонецЕсли;
КонецЦикла;
Вместо последовательного обхода всех строк листа можно выгрузить все данные в массив и работать с ним. Такой подход будет быстрее при чтении большого объема данных:
ВсегоКолонок = Лист.Cells(1, 1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;Область = Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок));
Данные = Область.Value.Выгрузить();
В таблице ниже приведены наиболее востребованные свойства и методы для работы с Excel через OLE:
Действие | Код | Комментарий |
Работа с приложением | ||
Установка видимости окна приложения | Эксель.Visible = Ложь; | |
Установка режима вывода предупреждений (выводить/не выводить) | Эксель.DisplayAlerts = Ложь; | |
Закрытие приложения | Эксель.Quit(); | |
Работа с книгой | ||
Создание новой книги | Книга = Эксель.WorkBooks.Add(); | |
Открытие существующей книги | Книга = Эксель.WorkBooks.Open(ИмяФайла); | |
Сохранение книги | Книга.SaveAs(ИмяФайла); | |
Закрытие книги | Книга.Close(0); | |
Работа с листом | ||
Установка текущего листа | Лист = Книга.WorkSheets(НомерЛиста); | |
Установка имени | Лист.Name = Имя; | |
Установка защиты | Лист.Protect(); | |
Снятие защиты | Лист.UnProtect(); | |
Установка ориентации страницы | Лист.PageSetup.Orientation = 2; | 1 — книжная, 2 — альбомная |
Установка левой границы | Лист.PageSetup.LeftMargin = Эксель.CentimetersToPoints(Сантиметры); | |
Установка верхней границы | Лист.PageSetup.TopMargin = Эксель.CentimetersToPoints(Сантиметры); | |
Установка правой границы | Лист.PageSetup.RightMargin = Эксель.CentimetersToPoints(Сантиметры); | |
Установка нижней границы | Лист.PageSetup.BottomMargin = Эксель.CentimetersToPoints(Сантиметры); | |
Работа со строками, колонками, ячейками | ||
Установка ширины колонки | Лист.Columns(НомерКолонки).ColumnWidth = Ширина; | |
Удаление строки | Лист.Rows(НомерСтроки).Delete(); | |
Удаление колонки | Лист.Columns(НомерКолонки).Delete(); | |
Удаление ячейки | Лист.Cells(НомерСтроки, НомерКолонки).Delete(); | |
Установка значения | Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение; | |
Объединение ячеек | Лист.Range(Лист.Cells(НомерСтроки, НомерКолонки), Лист.Cells(НомерСтроки1, НомерКолонки1)).Merge(); | |
Установка шрифта | Лист.Cells(НомерСтроки, НомерКолонки).Font.Name = ИмяШрифта; | |
Установка размера шрифта | Лист.Cells(НомерСтроки, НомерКолонки).Font.Size = РазмерШрифта; | |
Установка жирного шрифта | Лист.Cells(НомерСтроки, НомерКолонки).Font.Bold = 1; | 1 — жирный шрифт, 0 — нормальный |
Установка курсива | Лист.Cells(НомерСтроки, НомерКолонки).Font.Italic = 1; | 1 — курсив, 0 — нормальный |
Установка подчеркнутого шрифта | Лист.Cells(НомерСтроки, НомерКолонки).Font.Underline = 2; | 2 — подчеркнутый, 1 — нет |
Для того, чтобы узнать какое свойство нужно менять или какой метод вызвать можно воспользоваться макросами Excel. Если записать макрос с требуемыми действиями, то после можно посмотреть программный код на VBA записанного макроса.
Использование COMSafeArray
При выгрузке больших объемов данных из 1С в Excel для ускорения можно использовать объект COMSafeArray. Согласно определению из синтакс-помощника, COMSafeArray — объектная оболочка над многомерным массивом SafeArray из COM. Позволяет создавать и использовать SafeArray для обмена данными между COM-объектами. Проще говоря, это массив значений, который можно использовать для обмена между приложениями по технологии OLE.
// Создание COMSafeArray
МассивКом = Новый COMSafeArray(«VT_Variant», ВсегоКолонок, ВсегоСтрок);
// Заполнение COMSafeArray
Для Стр = 0 По ВсегоСтрок — 1 Цикл
Для Кол = 0 По ВсегоКолонок — 1 Цикл
МассивКом.SetValue(Кол, Стр, Значение);
КонецЦикла;
КонецЦикла;
// Присвоение области листа Excel значений из COMSafeArray
Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок)).Value = МассивКом;
Обмен через ADO
Файл Excel при обмене через ADO представляет собой базу данных, к которой можно обращаться при помощи SQL-запросов. Установка MS Excel не требуется, но обязательно наличие драйвера ODBC, при помощи которого будет осуществляться доступ. Используемый драйвер ODBC определяется при указании строки соединения к файлу. Обычно требуемый драйвер уже установлен на компьютере.
Обмен через ADO заметно быстрее обмена через OLE, но при выгрузке нет возможности использовать функционал Excel для оформления ячеек, разметки страниц, задания формул и т.д.
Пример выгрузки:
// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection»);// Установка строки соединения
Соединение.ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ИмяФайла+«;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;»;
Соединение.Open(); // Открытие соединения// Создание COM-объекта для команды
Команда = Новый COMОбъект(«ADODB.Command»);
Команда.ActiveConnection = Соединение;// Присвоение текста команды для создания таблицы
Команда.CommandText = «CREATE TABLE [Лист1] (Колонка1 char(255), Колонка2 date, Колонка3 int, Колонка4 float)»;
Команда.Execute(); // Выполнение команды// Присвоение текста команды для добавления строки таблицы
Команда.CommandText = «INSERT INTO [Лист1] (Колонка1, Колонка2, Колонка3, Колонка4) values (‘абвгдеё’, ‘8/11/2017’, ‘12345’, ‘12345,6789’)»;
Команда.Execute(); // Выполнение команды// Удаление команды и закрытие соединения
Команда = Неопределено;
Соединение.Close();
Соединение = Неопределено;
Для создания нового листа и формирования его структуры можно воспользоваться объектами ADOX.Catalog и ADOX.Table. В этом случае код примет вид:
// Создание COM-объекта для работы с книгой
Книга = Новый COMОбъект(«ADOX.Catalog»);
Книга.ActiveConnection = Соединение;// Создание COM-объекта для работы со структурой данных на листе
Таблица = Новый COMОбъект(«ADOX.Table»);
Таблица.Name = «Лист1»;
Таблица.Columns.Append(«Колонка1», 202);
Таблица.Columns.Append(«Колонка2», 7);
Таблица.Columns.Append(«Колонка3», 5);
Таблица.Columns.Append(«Колонка4», 5);// Создание в книге листа с описанной структурой
Книга.Tables.Append(Таблица);
Таблица = Неопределено;
Книга = Неопределено;
В приведенном примере в методе
Таблица.Columns.Append(«Колонка1», 202);
во втором параметре указывается тип колонки. Параметр необязательный, вот некоторые значения типа колонки:
- 5 — adDouble;
- 6 — adCurrency;
- 7 — adDate;
- 11 — adBoolean;
- 202 — adVarWChar;
- 203 — adLongVarWChar.
Пример чтения:
// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection»);// Установка строки соединения
Соединение.ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ИмяФайла+«;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;»;
Соединение.Open(); // Открытие соединения// Создание COM-объекта для получения выборки
Выборка = Новый COMОбъект(«ADODB.Recordset»);
ТекстЗапроса = «SELECT * FROM [Лист1$]»;// Выполнение запроса
Выборка.Open(ТекстЗапроса, Соединение);// Обход результата выборки
Пока НЕ Выборка.EOF() Цикл
ЗначениеКолонки1 = Выборка.Fields.Item(«Колонка1»).Value; // Обращение по имени колонки
ЗначениеКолонки2 = Выборка.Fields.Item(0).Value; // Обращение по индексу колонки
Выборка.MoveNext();
КонецЦикла;Выборка.Close();
Выборка = Неопределено;
Соединение.Close();
Соединение = Неопределено;
В строке соединения параметр HDR определяет как будет восприниматься первая строка на листе. Возможны варианты:
- YES — первая строка воспринимается как названия колонок. К значениям можно обращаться по имени и по индексу колонки.
- NO — первая строка воспринимается как данные. К значениям можно обращаться только по индексу колонки.
В приведенных примерах рассмотрено лишь несколько объектов ADO. Объектная модель ADO состоит из следующих объектов:
- Connection;
- Command;
- Recordset;
- Record;
- Fields;
- Stream;
- Errors;
- Parameters;
- Properties.
Выгрузка без программирования
Для сохранения данных из 1С в Excel не всегда целесообразно прибегать к программированию. Если в режиме Предприятия пользователь может отобразить требуемые для выгрузки данные, то, их возможно сохранить в Excel без программирования.
Для сохранения табличного документа (например, результата отчета) можно вызвать команду Сохранить или Сохранить как… главного меню.
В открывшемся окне требуется выбрать каталог, имя и формат сохраняемого файла.
Для сохранения данных динамических списков (например, списка номенклатуры) необходимо:
- Вывести данные в табличный документ при помощи команды Еще ⇒ Вывести список…;
- Сохранить табличный документ в требуемый формат.
Для анализа способов записи мы создали обработку, которая записывает файл Excel в двух вариантах. Форма обработки показана ниже:
Обработка выполняет запись 3 строк, в каждой строке 5 значений и одна картинка. Код обработки может выполняться как на клиенте, так и на сервере.
Вы можете скачать обработку и ознакомиться с ее работой по ссылке:
Выгрузка через Табличный документ
Это один из самых простых способов записи в xlsx и xls. В 1С в этом варианте Вы будете работать с объектом ТабличныйДокумент. Ниже показан пример записи в табличный документ, который Вы также можете найти в прилагаемой выше обработке:
&НаКлиенте Процедура ВыполнитьЗаписьЧерезТабличныйДокумент() ТабДок = Новый ТабличныйДокумент; Для СтрокаНомер = 1 По 3 Цикл //Записываем значения строки Для КолонкаНомер = 1 По 5 Цикл Область = ТабДок.Область(СтрокаНомер, КолонкаНомер); Область.Текст = СтрокаНомер * КолонкаНомер; КонецЦикла; //Записываем изображение Область = ТабДок.Область(СтрокаНомер, 6); Область.Картинка = Элементы["Изображение" + СтрокаНомер].Картинка; КонецЦикла; ТипФайла = ТипФайлаТабличногоДокумента.XLSX; //Если запись в формате xls - тип файла ТипФайлаТабличногоДокумента.XLS97 ТабДок.Записать(Каталог + "Тест.xlsx", ТипФайла); КонецПроцедуры
Плюсы данного метода записи:
- Не нужно устанавливать Excel на клиенте/сервере.
- Не нужно реализовывать масштабирование изображений — Вы устанавливаете только ширину/высоту ячейки.
- Высокая скорость записи т.к. не используется прослойка в виде COMОбъекта.
Минусы:
- Нет возможности устанавливать формулы для ячеек.
- Неконтролируемая конвертация табличного документа в документ Excel. Как пример — могут смещаться изображения.
Замер производительности показывает общее время записи 0,28 сек.
Выгрузка через Excel
В этом варианте запись выполняется с помощью COMОбъекта Excel — устанавливаем соединение с Excel, создаем книгу и размещаем данные на ее листах. Обязательно закрываем книгу и соединение!
&НаКлиенте Процедура ВыполнитьЗаписьЧерезExcel() Эксель = Новый COMОбъект("Excel.Application"); Эксель.DisplayAlerts = 0; Эксель.ScreenUpdating = 0; Эксель.EnableEvents = 0; Книга = Эксель.WorkBooks.Add(); Лист = Книга.WorkSheets(1); Для СтрокаНомер = 1 По 3 Цикл //Записываем значения строки Для КолонкаНомер = 1 По 5 Цикл Лист.Cells(СтрокаНомер, КолонкаНомер).Value = СтрокаНомер * КолонкаНомер; КонецЦикла; //Записываем изображение СтрокаКартинка = Элементы["Изображение" + СтрокаНомер].Картинка; ВременныйФайл = ПолучитьИмяВременногоФайла("" + СтрокаКартинка.Формат()); СтрокаКартинка.Записать(ВременныйФайл); ЛистИзображение = Лист.Shapes.AddPicture(ВременныйФайл, Ложь, Истина, Лист.Cells(СтрокаНомер, 6).Left + 1, Лист.Cells(СтрокаНомер, 6).Top + 1, -1, -1); ЛистИзображение.Placement = 1; ЛистИзображение.LockAspectRatio = 0; //Масштабирование изображения ЛистИзображение.Width = 47; ЛистИзображение.Height = 29; Лист.Rows(СтрокаНомер).RowHeight = 33; ЛистИзображение.Height = 29; УдалитьФайлы(ВременныйФайл); КонецЦикла; ТипФайла = 51; //Если запись в формате xls - тип файла -4143 Книга.SaveAs(Каталог + "Тест.xlsx", ТипФайла); Попытка Книга.Close(Ложь); Эксель.DisplayAlerts = 1; Эксель.Quit(); Исключение Информация = ИнформацияОбОшибке(); Сообщить(Информация.Описание); КонецПопытки; КонецПроцедуры
Плюсы данного метода записи:
- Полный контроль над процессом записи.
- Доступ практически ко всем возможностям Excel.
Минусы:
- Нужно устанавливать Excel на клиенте/сервере.
- Нужно реализовывать масштабирование изображений. Алгоритм записи должен позиционировать изображение в ячейке устанавливая ширину и высоту. Также нужно настраивать высоту строки.
- Низкая скорость записи.
Замер производительности показывает общее время записи 0,86 сек. Это в 3 раза медленнее чем запись через Табличный документ. По своему опыту можем отметить — медленнее может быть в 10 и более раз!
Итоги
При выборе варианта выгрузки лучше смотреть на поставленную задачу. Оптимально использовать запись через Табличный документ — многие моменты записи будут упрощены. Можно объединять 2 варианта записи — основу записывать через Табличный документ, а формулы добавлять с использованием Excel. Такая запись будет производительнее чем полная запись через Excel.
Наши разработки:
Почти каждому офисному работнику нужно знать, как выгружать из 1С в Excel. Работа многих из них основывается на взаимосвязи этих приложений, желательно понимать, как переносить информацию из одной в другую и обратно. На платформе предусмотрены механизмы, которые упрощают и облегчают процесс. Достаточно 1 раз запомнить, как это делается, чтобы потом повторять его. Удобство заключается в том, что полученные таблицы и базы можно редактировать, показывать поставщикам и распечатывать в любом количестве. Ниже — подробные инструкции, как правильно перемещать требуемые данные в документы.
Как из 1С выгрузить таблицу или файлы в Эксель (Excel)
Если процесс передачи из табличного пространства в программу — процесс сложный и долгий, требующий стороннего ПО и настройки, то обратная задача выполняется не только быстро, но и разными способами. Все зависит от того, загрузка чего требуется и в каком виде это необходимо представить. И сделать все можно разными способами.
Метод 1: Берем каждую ячейку отдельно
Если требуется только небольшой кусочек от номенклатуры, который содержится в клетке 1C, то ее легко перенести в Эксель. Для этого можно использовать любой привычный режим копирования в документах.
Как это выполнить по шагам:
- выделить требуемую строчку;
- кликнуть на нее ПКМ;
- выбрать пункт «копирование» или набрать «Ctrl+C»;
- открыть лист Excel или документ другого формата, куда необходимо вставить символы;
- кнопки «Ctrl+V» или через правую клавишу найти строку «сохранить как текст» — иногда выглядит как пиктограмма «А».
Также можно вставить информацию на лист другим способом. Направить курсор в клетку начала, а затем открыть вкладку «Главная», нажать на «Вставить» (его можно найти в части «Буфер обмена»). После всех этих действий содержимое окажется в табличном пространстве.
Единственный минус в том, что этот способ подойдет, только если требуется отправить что-то в ячейку. Если планируется транслировать массивы, стоит попробовать действовать иначе.
Метод 2: вставляем список в заранее подготовленный Excel
Когда требуется переместить целый перечень или массив из нескольких параметров, лучше действовать иначе. Ведь если вставлять по 1 слову, то на процесс уйдет слишком много времени.
Как выполняется:
- Открыть справочник или специальный журнал. Найти пункт «все действия», он находится в вверху от комплекса, который нуждается в обработке.
- Запустить меню, найти строку «вывести».
- Появится небольшое окно, в котором производится настройка. Там есть подпункт «выводить в» и два варианта — табличный или текстовый документ. Изначально стоит первый вид, он хорошо подходит для отправки в Эксель.
- В блоке с названием «Выводить колонки» необходимо определиться, что придется послать в строчное пространство. Если в планах — перенести все содержимое, то здесь тоже ничего менять не надо. Если предстоит конвертировать отдельные столбцы, то с лишних снимаем галочку.
- После выполнения всех настроек кликнуть на «Ок».
- На экране отобразится перечень в таблицы. Чтобы отправить его в готовый файл, желательно выделить в нем левой кнопкой мыши нужную область и нажать правую клавишу. В высветившемся меню найти «Копировать». Для упрощения процесса советуем пользоваться стандартным «Ctrl+c».
- Раскрыть лист, в котором выделяется верхняя левая строчка. Начиная оттуда начнется перечень. Затем — пункт «Вставить» на панели во вкладке «Главная».
- Готово. Перенос обязательных данных из неудобного 1С в подходящий для модификаций и анализа Excel завершен.
Метод 3: оформляем отдельный новый документ
Еще один способ — сразу выслать в созданный для этих целей док. Для этого следует выполнить все шаги, что изучали выше, до момента форматирования списка.
Затем кликаем на кнопку для вызова меню. Она выглядит как треугольник, оказавшийся в кружочке.
Ищем по шагам:
- файл — при наведении на него система покажет комментарий с подсказкой;
- сохранить как — после этого придется решать между разными форматами.
Можно пойти другим путем. Кликнуть на «Сохранить» — выглядит как дискета в панели 1С. Она всегда находится в верхнем углу (доступно для ПО после обновления). Запустить окно сохранения легко с помощью «Ctrl+s».
Появляется нужное окошко. Следует перейти в то место, где необходимо сохранить книгу.
Важно выбрать правильный тип документа. Изначально всегда предлагается хранить и загружать базу в формате (*.xls), но это неудобно. В выпадающем перечне стоит другой вариант — «Лист Excel (*.xls)». Есть и совсем старые разновидности, но у них минимальный набор функционала, поэтому мы не рекомендуем их задействовать. Когда все настройки подобраны, можно сохранять изменения и получить номенклатуру в виде перечня в новой книге.
Метод 4: копируем диапазон
Часто встречаются случаи, когда переместить планируется не весь лист или таблицу, а определенный кусок или строки. Это тоже реально произвести с помощью специальных внутренних механизмов.
Как из стандартизированного 1С перенести таблицу в Эксель:
- Выделите нужную область. Следует зажать Shift и кликнуть на те строки, которые необходимо перенести. Нажать на «все действия» и отыскать подпункт «вывести список».
- Запустите окошко. Все настройки возьмем из предыдущих способов. Главное — не забыть поставить галочку напротив параметра «только выделенные». Позже — ищем «ок».
- Программа соберет только выделенные столбцы. Затем действуем по пунктам из 2 или 3 способа.
Метод 5: можно ли из 1С выгрузить документ в привычном уже формате Excel и сохранить
Иногда требуется не просто скопировать список или область, а целые файлы — накладные, фактуры, платежные поручения. Большинству пользователей проще заниматься редактированием прямо в Эксель, к тому же в таблицах не страшно вносить изменения, легче печатать. Можно даже очистить автозаполнение и пользоваться бланком для оформления вручную.
Процесс пошагово:
- В 1 C найти кнопку печати. Выглядит как картинка с принтером, сложно спутать. Когда в документ было введено все запланированное и его сохранили, кликаем на пиктограмму.
- Откроется форма предварительного просмотра. Но нужно его не распечатывать, а конвертировать. Поэтому нажимаем на «сохранить», если версия 8.3. Для более старых модификаций есть сочетание клавиш «ctrl+s».
Еще один вариант — кликнуть на перевернутый треугольник, затем на «файл» и «сохранить». Когда откроется окно сохранения, необходимо выбрать тип и имя. Когда все параметры будут отобраны — нажать на «сохранить».
Форматы переноса данных любого вида и размера из 1С в удобный Эксель
В этой программе 5 частых видов:
- mxl — специально созданный для возможности сохранять сразу в формате таблицы, даже сбрасывать в базы на других компьютерах;
- xls — стандартный тип;
- txt — текстовый, вся информация в блокноте;
- pdf — подойдет, если планируется работать с разновидностями Adobe Reader;
- html — веб-формат, используется для размещения на странице в интернете.
Каждый из перечисленных подтипов со своими особенностями. Например, если брать табличные пространства, то в них сохраняется строй. Среди доступного — открывать, сворачивать и читать различные группы. В остальных случаях это стандартный список.
На огромных объемах табличных строчек они размещаются на разных листах для удобной обработки.
Помните, что максимальное количество строк зависит от версии Екселя:
- до 97 — предел 16 000;
- 97-2003 — до 65 000;
- от 2007 — не больше 1 048 000.
Готовые решения для всех направлений
Сократите издержки в работе склада до 70% : ускорьте складские операции, устраните ошибки человеческого фактора и забудьте про потерю и пересортицу товаров.
Узнать больше
У вас всегда будут актуальные ценники на товарах и витринах, товар перестанет теряться при перемещении между магазинами, а в вашей системе учета — только точные остатки по товарам.
Узнать больше
С маркировкой вы на 100% исключите приемку контрафактного товара на свой склад, а также сможете отслеживать полную цепочку поставок товара от производителя.
Узнать больше
Скорость, точность приёмки и отгрузки товаров на складе — краеугольный камень в E-commerce бизнесе. Начни использовать современные, более эффективные мобильные инструменты.
Узнать больше
Повысьте точность учета имущества организации, уровень контроля сохранности и перемещения каждой единицы. Мобильный учет снизит вероятность краж и естественных потерь.
Узнать больше
Повысьте эффективность деятельности производственного предприятия за счет внедрения мобильной автоматизации для учёта товарно-материальных ценностей.
Узнать больше
Первое в России готовое решение для учёта товара по RFID-меткам на каждом из этапов цепочки поставок.
Узнать больше
Исключи ошибки сопоставления и считывания акцизных марок алкогольной продукции при помощи мобильных инструментов учёта.
Узнать больше
Получение сертифицированного статуса партнёра «Клеверенс» позволит вашей компании выйти на новый уровень решения задач на предприятиях ваших клиентов..
Узнать больше
Используй современные мобильные инструменты для проведения инвентаризации товара. Повысь скорость и точность бизнес-процесса.
Узнать больше
Показать все решения по автоматизации
Как сделать выгрузку клиентов или отчетов из 1С в Excel программным путем
Для продвинутых пользователей есть более сложные варианты произвести быстрое сохранение отдельных областей на компьютер. Сделать это можно 2 основными способами, о которых мы поговорим ниже.
Метод 1: вызываем сохранение таблицы
У каждого табличного документа имеется функция «записать», среди параметров которого есть тип файла. Следует выбрать заполнение табличного пространства, кликнуть на «записать».
Метод 2: задействуем механизм Excel.Aplication
Эту возможность проще всего реализовать в среде операционных систем Windows. Код важно отладить со стороны клиента, иначе придется долго дополнительно отстраивать серверную часть программного обеспечения.
Всю документацию по этому объекту можно найти на официальном сайте Microsoft. Для записи в нужной последовательности и формате пишут простейший код. Из всех инструментов ПО непосредственно к копированию информации относится строчка:
КнигаЭксель = Новый СОМОбъект
Как вывести данные из 1С и перенести их в Excel: способы выгрузки из 1C
Это только кажется, что настройка переселения любых частей и листов — дело хлопотное и требующее привлечения мастеров. Справиться с этой задачей может любой, если действовать по шагам.
Важно, чтобы программное обеспечение было лицензионным. Короткие пиратские версии не всегда поддерживают перенос в полном объеме. Кроме того, важно установить интеграцию с товароучетными программами, чтобы следить за остатками и не допускать пересортицы.
Чтобы подобрать решение для бизнеса, стоит обратиться в «Клеверенс». Наши специалисты помогут выбрать подходящее оборудование и софт, который будет справляться со всем комплексом поставленных задач. Отлаженная техника не создает задержек. Каждый цикл выполняется достаточно быстро, чтобы заказы собирались оперативно, а клиенты были довольны.
Как выгрузить из 1С любые понадобившиеся данные ячейки по товару или по созданному ранее справочнику в 1C в Excel (Эксель)
Мы изучили, как правильно переносить разные строчки и таблицы. А теперь давайте рассмотрим, как можно отправлять в табличное пространство целый регистр. Например, часто требуется создать отдельную книгу по контрагентам, покупателям или поставщикам, собрать заказы.
Чтобы удалось оформить номенклатуру, следует сначала ее развернуть и отыскать правильный файл. Если конфигурация ПО управляемая, то вверху экрана ищем плашку «еще». Выпадет меню, где надо искать связанные со списками строки, чтобы войти в требующийся перечень.
В более старых версиях программы достаточно просто щелкнуть ПКМ и найти там тот же пункт про вывод.
Откроется форма, где предстоит отметить все необходимые поля. Система покажет все подобранное в рамках одной таблицы. Оттуда их легко копировать в документ.
Как сделать выгрузку из 1С 8 в Эксель (Excel) большого количества данных
Перенос крупных баз практически ничем не отличается от копирования небольших списков. Чтобы не допустить ошибок вида «недостаточно памяти на клиенте» и сократить потраченное на процесс время, нужно пользоваться таким способом:
- создать книгу, в которую будут складываться все для будущего анализа;
- начать выгрузку через команды — кликнуть на «записать ТабДок»;
- указать путь к созданному пространству;
- выбрать формат, в котором будет храниться и редактироваться информация.
При необходимости можно отладить автоматический построчный перенос для экономии. Но для этого придется один раз пригласить специалиста — он напишет код.
Как из «1С: Предприятие» выгрузить печатные формы документов или файлов в Excel
Это еще один метод, который подходит в большинстве случаев. Сначала открываем нужную вариацию накладной или акта в формате окна перед печатью.
Затем — ткнуть «ctrl+s». Появится диалоговое окошко, где предстоит придумать имя для будущего табличного пространства и его подвид.
Любой отчет можно отправить на рабочий стол или в определенную папку также просто, всего в пару кликов.
Пользоваться можно всеми основными форматами — word, html, и другими, о которых мы говорили выше. Как сохранить накладную из жесткого 1С в подходящий для редактирования Excel — вызвать меню, подготовить название и пройти по короткому пути извлечения строк из программы.
Как отправить базу целиком (в файл .dt)
Чтобы удалось скачать содержимое, потребуется перейти в режим конфигуратора.
После этого — открыть подпункт «администрирование». Следующий шаг — выбор опции «выгрузка информационной базы».
Останется только ввести имя для базы, а также найти подходящее место для хранения на диске. Чтобы в будущем загрузить все в другую директорию, нужно только кликнуть на «загрузить» и выбрать предварительно сформированный док.
Выгрузка из 1С в Excel отчетности и ее форм для комфортной печати
Сделать это достаточно просто, ведь практически все в программе имеет печатные формы. А сохранение начинается из этого поля.
Чтобы собрать информацию из платежного поручения, действуем по шагам:
- кликнуть на него;
- найти в верхнем поле пиктограмму принтера;
- появится страница предпросмотра, на которой необходимо найти дискету или другой значок, указывающий на хранение;
- нажать на «сохранить»;
- на экран выведется окно, в котором следует указать путь для сохранения будущего файла;
- ниже — выбор формата, в рамках которого будет содержаться информация;
- по надобности — поставить галочки на дополнительную упаковку в архив и транслитерацию имен;
- подтвердить свои действия нажатием на кнопку.
После этого с получившимся документом можно выполнять любые манипуляции — редактировать, удалять или добавлять строчки и столбцы, распечатывать.
Как скопировать и вывести таблицу или данные любого объема в доступный для редактирования Эксель (Excel) – для версии 1С 8.3
Одна из распространенных задач каждого бухгалтера или кадровика — сформировать перечень платежек за прошлый год или подготовить количество трудоустроенных за 2020-й. Могут попросить оформить бумажную версию книги продаж и возвратов, а также просто найти список товаров из определенной накладной за июль. Во всех этих случаях требуется создание табличного пространства в новой книге. Решить это достаточно просто.
Например, для анализа отбираются все поступления от конкретного производителя, которые были выполнены более чем на 1500 рублей.
Сначала нажимаем на значок отбора критериев. Появится окно, в котором устанавливаем необходимые параметры — контрагента и стоимость чека.
На экране вы увидете бумаги к выдаче. Здесь следует запросить контекстное меню правой кнопкой мыши или с помощью функции «действия». В появившемся поле ищем пункт «вывести».
Система покажет, что есть 2 варианта отображения — текстовый формат и табличный. Вам пригодится последний. Через программу информация появится в отдельном окошке, из которого его реально отправлять в нужном виде через сохранение.
Эти действия вполне можно выполнять почти для каждой таблицы. Достаточно раскрыть подходящий файл, поставить галочки и прописать запрос в полях. Через несколько кликов все требуемые строчки будут готовы к транспортировке в новую книгу или на лист.
Мы рассмотрели, как выгрузить любые данные отчета или акта с 1с в более подходящий для анализа Эксель (Excel) из любых папок, что требуется сделать, чтобы получилось сохранить их в виде таблицы или книги. Изучили, как правильно переносить печатные формы, какие комбинации клавиш для этого необходимы и без чего не обойтись. Есть разные способы транслировать цифры и строчки в табличное пространство. Достаточно попробовать сделать один раз и запомнить, чтобы потом свободно повторять те же действия.
Количество показов: 41164
Выгрузка в Эксель, управляемые формы
16.05.2017
Как-то раз меня попросили сделать обработку выгрузки в эксель и тут возникли проблемы то с сохранением файла на сервере, то с заполнением данными на клиенте. В итоге я решил заполнить файл на сервере как обычный табличный документ, а записать его на клиенте.
Сначала создаем обработку с реквизитом ПапкаСохранения, тип строка
Создаем форму отчета и переносим реквизит на форму:
Затем в процедуру НачалоВыбора этого реквизита впишем код:
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Каталог = "";
ДиалогОткрытия.МножественныйВыбор = Ложь;
ДиалогОткрытия.Заголовок = "Выберите каталог";
Если ДиалогОткрытия.Выбрать() Тогда
ПутьККаталогу = ДиалогОткрытия.Каталог;
КонецЕсли;
Если Прав(Элемент.ТекстРедактирования,1) <> "" Тогда
Отчет.ПапкаСохранения = ПутьККаталогу+"";
Иначе
Отчет.ПапкаСохранения = ПутьККаталогу;
КонецЕсли;
Создаем команду для запуска нашей обработки и переносим ее на форму:
Добавляем в модуль формы две процедуры:
&НаКлиенте
Процедура КнопкаСформировать(Команда)
//Для уникальности имени файла добавим к его имени дату и время создания
ДатаВремя = СтрЗаменить(ТекущаяДата(),":",".");
ИмяФайла = "Выгрузка_"+ДатаВремя;
//Добавим выбранный каталог к к именя файла
ПолноеИмяФайла = Отчет.ПапкаСохранения+ИмяФайла+".xls";
//Создадим табличный документ
ТабДок = Новый ТабличныйДокумент;
//Создадим файл эксель: Запишем нашу вновь созданную таблицу в файл
ТабДок.Записать(ПолноеИмяФайла,ТипФайлаТабличногоДокумента.XLS);
//Заполним таблицу на сервере
КнопкаСформироватьНаСервере(ТабДок);
//Запишем заполненную таблицу в этот же файл
ТабДок.Записать(ПолноеИмяФайла,ТипФайлаТабличногоДокумента.XLS);
КонецПроцедуры
&НаСервере
Процедура КнопкаСформироватьНаСервере(ТабДок)
//Прочитаем наш отчет на сервере, чтобы стали доступны процедуры из модуля объект этого отчета
Документ = РеквизитФормыВЗначение("Отчет");
//Вызовем нашу процедуру заполнения
Документ.ЗаполнитьТаблицуНаСервере(ТабДок);
КонецПроцедуры
Далее создаем макет и заполняем его данными в экспортной процедуре из модуля объекта:
Процедура ЗаполнитьТаблицуНаСервере(ТабДок) Экспорт
Макет = ПолучитьМакет("МакетВыгрузки");
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
ТабДок.Вывести(ОбластьЗаголовок);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Наименование,
| Контрагенты.НаименованиеПолное
|ИЗ
| Справочник.Контрагенты КАК Контрагенты";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьСтрока.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьСтрока);
КонецЦикла;
КонецПроцедуры
В итоге у нас получается такая вот обработка:
Сохранение табличной части в ексель программно. |
Я |
01.08.13 — 14:26
Добрый день!
В документе есть табличная часть и есть кнопочка «сохранить».
Подскажите пожалуйста синтаксис для того чтобы при нажатии на эту кнопку программа предложила выбрать директорию на жестком диске и записала туда эту табличную часть в формате ексель.
Заранее спасибо!
1 — 01.08.13 — 14:27
точный синтаксис не подскажу, но каждая инструкция должная завершаться символом «;»
2 — 01.08.13 — 14:28
(1) и правда кэп
3 — 01.08.13 — 14:29
(1) +1
4 — 01.08.13 — 15:06
Ну хоть примерно.
5 — 01.08.13 — 15:33
6 — 01.08.13 — 15:51
Режим = РежимДиалогаВыбораФайла.Сохранение;
Диалог = Новый ДиалогВыбораФайла(Режим);
Диалог.Заголовок = «Выбор файла для сохранения»;
Диалог.Фильтр = «Excel (*.xls)|*.xls»;
Если Не Диалог.Выбрать() Тогда
Возврат ;
Иначе
ИмяФайла= Диалог.ПолноеИмяФайла;
КонецЕсли
Как теперь мне сохранить в этот выбранный файл мою таблицу «ЭтотОбъект.Выгрузка» ?
7 — 01.08.13 — 15:54
Почему то даже пустой файл не создается
8 — 01.08.13 — 15:59
(7) всё правильно, записи в файл нет, значит, файл не создаётся
9 — 01.08.13 — 16:00
(6) предлагаю вывести что-нибудь как-нибудь в ТабДок и записать его
10 — 01.08.13 — 16:56
Вообщем получил я ТабДок, а как мне дальше его записать на диск в файл?
ТабДок = моя таблица «Выгрузка»
11 — 01.08.13 — 16:56
(10) ты не поверишь..
12 — 01.08.13 — 17:00
ТабДок.Записать(<ИмяФайла>, <ТипФайлаТаблицы>)
какие сюда параметры нужны?
13 — 01.08.13 — 17:01
(12) <ИмяФайла>, <ТипФайлаТаблицы>
14 — 01.08.13 — 17:04
А по подробнее нельзя?
15 — 01.08.13 — 17:06
(14) ты ж откуда скопипастил? попобней, чем там, вряд ли выйдет
16 — 01.08.13 — 17:07
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет(«Макет»);
облСтрока = Макет.ПолучитьОбласть(«Строка»);
Для каждого стр Из ЭтотОбъект.Выгрузка Цикл
облСтрока.Параметры.Дата = стр.Дата;
облСтрока.Параметры.Номер = стр.Номер;
облСтрока.Параметры.КомпанияИНН = стр.КомпанияИНН;
облСтрока.Параметры.КомпанияНазвание = стр.КомпанияНазвание;
облСтрока.Параметры.СрокОплаты = стр.СрокОплаты;
облСтрока.Параметры.Сумма = стр.Сумма;
ТабДок.Вывести(облСтрока);
КонецЦикла;
ТабДок.Записать(«D:Клиентские базыScheta_postavschikov.xls»,»xls»);
//ТабДок.Показать();
Сделал так,файл записался как надо, как теперь сделать так чтобы путь зашивался не на програмном уровне? чтобы файлик пользователь мог выбирать?
17 — 01.08.13 — 17:11
(16) из типовой не судьба выбрать? Например, возьми клиент-банк, там файл выбирается.
18 — 01.08.13 — 17:16
скрести первый кусок кода со вторым и будет тебе щастье
19 — 01.08.13 — 17:19
(18) будет только до тех пор, пока он не попытается открыть этот ексельный документ
20 — 01.08.13 — 17:19
(19) а или вру
21 — 01.08.13 — 17:24
22 — 01.08.13 — 17:25
(19) (20) сохраняется красиво но только в жестко заданную папку.
23 — 01.08.13 — 17:31
(22) плавно возвращаемся в (6)
24 — 01.08.13 — 17:44
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет(«Макет»);
облСтрока = Макет.ПолучитьОбласть(«Строка»);
Для каждого стр Из ЭтотОбъект.Выгрузка Цикл
облСтрока.Параметры.Дата = Формат(стр.Дата, «ДЛФ=Д»);
облСтрока.Параметры.Номер = стр.Номер;
облСтрока.Параметры.КомпанияИНН = стр.КомпанияИНН;
облСтрока.Параметры.КомпанияНазвание = стр.КомпанияНазвание;
облСтрока.Параметры.СрокОплаты = Формат(стр.СрокОплаты, «ДЛФ=Д»);
облСтрока.Параметры.Сумма = стр.Сумма;
ТабДок.Вывести(облСтрока);
КонецЦикла;
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильтр = «Файл Эксель(*.xls)|*.xls»;
Если ДиалогОткрытияФайла.Выбрать() Тогда
ПолеВвода1 = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
ИмяФайла = ЭтаФорма.ФайлВыгрузки;
ТабДок.Записать(ИмяФайла,»xls»);
//ТабДок.Показать();
КонецПроцедуры
Процедура КоманднаяПанель1Заполнить(Кнопка)
Если ЗначениеЗаполнено(ЭтотОбъект.ДатаНачала) И ЗначениеЗаполнено(ЭтотОбъект.ДатаОкончания) Тогда
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| СчетНаОплатуПокупателю.Номер,
| СчетНаОплатуПокупателю.Дата,
| СчетНаОплатуПокупателю.Контрагент,
| СчетНаОплатуПокупателю.Контрагент.ИНН КАК ИНН,
| СчетНаОплатуПокупателю.ДоговорКонтрагента.СрокОплаты КАК СрокОплаты,
| СчетНаОплатуПокупателю.СуммаДокумента,
| СчетНаОплатуПокупателю.ДоговорКонтрагента
|ИЗ
| Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
|ГДЕ
| СчетНаОплатуПокупателю.Дата >= &ДатаНачала
| И СчетНаОплатуПокупателю.Дата <= &ДатаОкончания»;
Запрос.УстановитьПараметр(«ДатаНачала», ЭтотОбъект.ДатаНачала);
Запрос.УстановитьПараметр(«ДатаОкончания», ЭтотОбъект.ДатаОкончания);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
ТекстВопроса = «Перед заполнением табличные части будут очищены. Заполнить?»;
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да,);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
ЭтотОбъект.Выгрузка.Очистить();
Пока РезультатЗапроса.Следующий() Цикл
ДобавитьЭлементТаблицы = ЭтотОбъект.Выгрузка.Добавить();
ДобавитьЭлементТаблицы.Дата = РезультатЗапроса.Дата;
ДобавитьЭлементТаблицы.Номер = РезультатЗапроса.Номер;
ДобавитьЭлементТаблицы.КомпанияНазвание = РезультатЗапроса.Контрагент;
ДобавитьЭлементТаблицы.КомпанияИНН = РезультатЗапроса.ИНН;
ДобавитьЭлементТаблицы.Сумма = РезультатЗапроса.СуммаДокумента;
Если РезультатЗапроса.ДоговорКонтрагента.Наименование = «» Тогда
Продолжить
Иначе
ДобавитьЭлементТаблицы.СрокОплаты = РезультатЗапроса.Дата + 60*60*24*РезультатЗапроса.СрокОплаты;
КонецЕсли;
КонецЦикла;
Иначе
ТекстВопроса = «Ошибка! Не заполнены поля: дата начала, дата окончания.»;
Вопрос(ТекстВопроса, РежимДиалогаВопрос.Ок, , КодВозвратаДиалога.Ок,);
КонецЕсли;
КонецПроцедуры
Процедура ФайлВыгрузкиНачалоВыбора(Элемент, СтандартнаяОбработка)
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильтр = «Файл Эксель(*.xls)|*.xls»;
Если ДиалогОткрытияФайла.Выбрать() Тогда
ФайлВыгрузки = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
вообщем все работает как надо но файл приходится два раза выбирать в поле ввода и при нажатии на кнопку не пойму почему ….
25 — 01.08.13 — 17:46
(24) рассказать? ты дважды просишь юзера сохранить файл
26 — 01.08.13 — 17:46
Где это? в каком фрагменте кода?
27 — 01.08.13 — 17:46
+(25) ну и дважды интерактивно пытаешься это сделать
28 — 01.08.13 — 17:47
А, нашел.
29 — 01.08.13 — 17:47
О чудо! Оно работает!
30 — 01.08.13 — 17:48
Если РезультатЗапроса.ДоговорКонтрагента.Наименование = «» Тогда
Продолжить
хлобысь по рукам!
31 — 01.08.13 — 17:48
а ещё предупреждение имеется у платформы
32 — 01.08.13 — 17:49
(30) а как тут лучше сделать?
33 — 01.08.13 — 17:49
Вообщем вот итоговый вариант
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет(«Макет»);
облСтрока = Макет.ПолучитьОбласть(«Строка»);
Для каждого стр Из ЭтотОбъект.Выгрузка Цикл
облСтрока.Параметры.Дата = Формат(стр.Дата, «ДЛФ=Д»);
облСтрока.Параметры.Номер = стр.Номер;
облСтрока.Параметры.КомпанияИНН = стр.КомпанияИНН;
облСтрока.Параметры.КомпанияНазвание = стр.КомпанияНазвание;
облСтрока.Параметры.СрокОплаты = Формат(стр.СрокОплаты, «ДЛФ=Д»);
облСтрока.Параметры.Сумма = стр.Сумма;
ТабДок.Вывести(облСтрока);
КонецЦикла;
ИмяФайла = ЭтаФорма.ФайлВыгрузки;
ТабДок.Записать(ИмяФайла,»xls»);
//ТабДок.Показать();
КонецПроцедуры
Процедура КоманднаяПанель1Заполнить(Кнопка)
Если ЗначениеЗаполнено(ЭтотОбъект.ДатаНачала) И ЗначениеЗаполнено(ЭтотОбъект.ДатаОкончания) Тогда
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| СчетНаОплатуПокупателю.Номер,
| СчетНаОплатуПокупателю.Дата,
| СчетНаОплатуПокупателю.Контрагент,
| СчетНаОплатуПокупателю.Контрагент.ИНН КАК ИНН,
| СчетНаОплатуПокупателю.ДоговорКонтрагента.СрокОплаты КАК СрокОплаты,
| СчетНаОплатуПокупателю.СуммаДокумента,
| СчетНаОплатуПокупателю.ДоговорКонтрагента
|ИЗ
| Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
|ГДЕ
| СчетНаОплатуПокупателю.Дата >= &ДатаНачала
| И СчетНаОплатуПокупателю.Дата <= &ДатаОкончания»;
Запрос.УстановитьПараметр(«ДатаНачала», ЭтотОбъект.ДатаНачала);
Запрос.УстановитьПараметр(«ДатаОкончания», ЭтотОбъект.ДатаОкончания);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
ТекстВопроса = «Перед заполнением табличные части будут очищены. Заполнить?»;
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да,);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
ЭтотОбъект.Выгрузка.Очистить();
Пока РезультатЗапроса.Следующий() Цикл
ДобавитьЭлементТаблицы = ЭтотОбъект.Выгрузка.Добавить();
ДобавитьЭлементТаблицы.Дата = РезультатЗапроса.Дата;
ДобавитьЭлементТаблицы.Номер = РезультатЗапроса.Номер;
ДобавитьЭлементТаблицы.КомпанияНазвание = РезультатЗапроса.Контрагент;
ДобавитьЭлементТаблицы.КомпанияИНН = РезультатЗапроса.ИНН;
ДобавитьЭлементТаблицы.Сумма = РезультатЗапроса.СуммаДокумента;
Если РезультатЗапроса.ДоговорКонтрагента.Наименование = «» Тогда
Продолжить
Иначе
ДобавитьЭлементТаблицы.СрокОплаты = РезультатЗапроса.Дата + 60*60*24*РезультатЗапроса.СрокОплаты;
КонецЕсли;
КонецЦикла;
Иначе
ТекстВопроса = «Ошибка! Не заполнены поля: дата начала, дата окончания.»;
Вопрос(ТекстВопроса, РежимДиалогаВопрос.Ок, , КодВозвратаДиалога.Ок,);
КонецЕсли;
КонецПроцедуры
Процедура ФайлВыгрузкиНачалоВыбора(Элемент, СтандартнаяОбработка)
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильтр = «Файл Эксель(*.xls)|*.xls»;
Если ДиалогОткрытияФайла.Выбрать() Тогда
ФайлВыгрузки = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
34 — 01.08.13 — 17:50
(32) запросом сразу вынуть только нужное
35 — 01.08.13 — 17:50
+(34) не ориентируясь на наименование
36 — 01.08.13 — 17:51
Складывать и умножать внутри запроса?
37 — 01.08.13 — 17:51
да и расчет срока оплаты тоже можно в запрос засунуть
38 — 01.08.13 — 17:51
и пустых контрагентов исключить из выборки, кстати почему они пустые?
39 — 01.08.13 — 17:51
(37) согласен. сейчас он будет даты с числами складывать. посмотрим..
40 — 01.08.13 — 17:52
и вообще вставить в цикл ЗаполнитьЗначенияСвойств()
41 — 01.08.13 — 17:53
пофиг пускай так будет, надоели эти буквы уже О_о
42 — 01.08.13 — 17:53
а при установке даты начала и даты окончания навеное следует применить функции НачалоДня() и КонецДня()
43 — 01.08.13 — 17:54
(41) вы не программист?
44 — 01.08.13 — 17:54
А запросом как то можно вытащить внутренний индефикатор объекта?
45 — 01.08.13 — 17:55
(43) начинающий
46 — 01.08.13 — 17:55
+(44) идентификатор
Капитан О
47 — 01.08.13 — 18:02
(44) на зачем? иногда можно