Полезные приемы при работе с Excel из 1С (Версия 3.1)
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Коллеги, подскажите.
Раз есть команда Область.Value.Выгрузить(), то, наверное, есть что-то наподобие загрузить в лист Excel?
Очень часто приходится работать с очень большими файлами Excel, и его обработка путем перебора строк занимает огромное количество времени.
В таких случаех удобно в одно действие загрузить всю таблицу в массив и в потом работать уже непосредственно с массивом.
Лист = Соединение["Листы"][0];
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
Область = Лист.Range(ЛистЭксель.Cells(1,1), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();
Раз есть команда Область.Value.Выгрузить(), то, наверное, есть что-то наподобие загрузить в лист Excel?
Очень часто приходится работать с очень большими файлами Excel, и его обработка путем перебора строк занимает огромное количество времени.
В таких случаех удобно в одно действие загрузить всю таблицу в массив и в потом работать уже непосредственно с массивом.
Лист = Соединение["Листы"][0];
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
Область = Лист.Range(ЛистЭксель.Cells(1,1), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();
Очень хорошая статья, сильно помогла, особенно ссылка на connectionstrings.com. Спасибо большое.
Для ADO, если система 64 бит, а 1Ска - 32, то надо ставить Microsoft Access Database Engine 2010 Redistributable (16/12/2010) 32 и 64 - разрядные версии.
В моем случае помогла 32бит версия (система 64бит (Вин 7, Вин2008Ент), 1Ска - 32 бит).
На Вин7 стоял Офис 2010, но видать какой-то резанный. Все равно пришлось так же ставить Access Database Engine 32 бит.
Для ADO, если система 64 бит, а 1Ска - 32, то надо ставить Microsoft Access Database Engine 2010 Redistributable (16/12/2010) 32 и 64 - разрядные версии.
В моем случае помогла 32бит версия (система 64бит (Вин 7, Вин2008Ент), 1Ска - 32 бит).
На Вин7 стоял Офис 2010, но видать какой-то резанный. Все равно пришлось так же ставить Access Database Engine 32 бит.
Для редактирования и отладки запросов к ADO можно использовать консоль запросов из подсистемы на обычных формах 8.2.13+. Нужно выбрать тип запроса ADO, для которого будет доступен конструктор запросов (непохожий на штатный), дерево запроса, контекстная подсказка и 1с-ная подсветка синтаксиса.
Автор:
Вот это что за шняга:
Вы когда что-то пишите, пытайтесь думать не как 80-ти летний профессор и член-корр АН.
Вот это что за шняга:
//Сразу отбираем только не пустые номенклатуры
ТекстЗапроса = "SELECT * FROM [Лист1$] WHERE `Номенклатура`<>""""";
ТекстЗапроса = "SELECT * FROM [Лист1$] WHERE `Номенклатура`<>""""";
Вы когда что-то пишите, пытайтесь думать не как 80-ти летний профессор и член-корр АН.
Спасибо, отличная статья!
Еще по группировкам данных на листе, если требуется заполнить подготовленный шаблон листа:
1. Развернуть все группы (строки и колонки):
Excel.ActiveSheet.Outline.ShowLevels(3, 3);
2. Сернуть все группы (строки и колонки) до первого уровня:
Excel.ActiveSheet.Outline.ShowLevels(1, 1);
Еще по группировкам данных на листе, если требуется заполнить подготовленный шаблон листа:
1. Развернуть все группы (строки и колонки):
Excel.ActiveSheet.Outline.ShowLevels(3, 3);
2. Сернуть все группы (строки и колонки) до первого уровня:
Excel.ActiveSheet.Outline.ShowLevels(1, 1);
Ширина в Excel задается в символах, что не очень удобно при выводе картинок. Вот функция для перевода ширины в пикселя в ширину в символах.
&НаКлиенте
Функция ПолучитьШиринуКолнкиЭксель(ПараметрШиринаВПикселях)
Если ПараметрШиринаВПикселях > 9 Тогда
ШиринаВСимволах = (ПараметрШиринаВПикселях/0.75-5)/7;
Иначе
ШиринаВСимволах = ПараметрШиринаВПикселях/9;
КонецЕсли;
Возврат ШиринаВСимволах;
КонецФункции
Лист.Columns("A").ColumnWidth = ПолучитьШиринуКолнкиЭксель(РазмерШиринаВПикселях); Показать
Хорошая статья. Но вот пытаюсь на сервере рисовать диаграммы в Excel и при попытке соединения ПодключитьсяКExcelСервер(ИмяВременногоФайла) ругается: ...Open. Произошла исключительная ситуация (MS Excel). К сожалению, нам не удалось найти файл ... . Возможно, он был перемещен, переименован или удален?
Это проблема с отсутствием папки C:\Windows\SysWOW64\config\systemprofile\Desktop?
Это проблема с отсутствием папки C:\Windows\SysWOW64\config\systemprofile\Desktop?
(36) Структура файлов docx, xlsx и пр., соответствует спецификации Microsoft Open Packaging Convention, сокращенно OPC: .
По такому же принципу построены файлы комплектов бюджетной бухгалтерской отчетности 1С, для конфигураций БГУ и Свод отчетов (repx).
По такому же принципу построены файлы комплектов бюджетной бухгалтерской отчетности 1С, для конфигураций БГУ и Свод отчетов (repx).
Код процедуры есть в файле публикации.
Даю фрагмент:
&НаСервере
Процедура Загрузить2НаСервере(пФайл)
лФайл = ПолучитьИмяВременногоФайла("xlsx");
лДвоичДанные = ПолучитьИзВременногоХранилища(пФайл);
лДвоичДанные.Записать(лФайл);
Соединение = ПоключитьсяКExcelСервер(Объект.ИмяФайла);
Если Соединение = Неопределено Тогда
Возврат;
КонецЕсли;
Даю фрагмент:
&НаСервере
Процедура Загрузить2НаСервере(пФайл)
лФайл = ПолучитьИмяВременногоФайла("xlsx");
лДвоичДанные = ПолучитьИзВременногоХранилища(пФайл);
лДвоичДанные.Записать(лФайл);
Соединение = ПоключитьсяКExcelСервер(Объект.ИмяФайла);
Если Соединение = Неопределено Тогда
Возврат;
КонецЕсли;
(39) Сразу скажу - полный бред. Смотрите вы получаете имя временого файла в лФайл, куда и сохраняется сам файл. А потом пытаетесь открыть файл, который задан в реквизите объекта ИмяФайла. Я так полагаю это файл который пользователь выбрал на КЛИЕНТЕ. Соответственно открывать нужно именно лФайл, который сохранен во временном каталоге сервера.
Да и после окончания работы с ним, неплохо бы почистить за собой - удалить временный файл с сервера.
Да и после окончания работы с ним, неплохо бы почистить за собой - удалить временный файл с сервера.
>Подключаемся к OLE и октрываем файл Excel:
Есть более удобный метод получения Com объекта: "ПолучитьCOMОбъект". Из СП: Основное применение функции ПолучитьCOMОбъект - это получение COM-объекта, соответствующего файлу. Доступность: Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Есть более удобный метод получения Com объекта: "ПолучитьCOMОбъект". Из СП: Основное применение функции ПолучитьCOMОбъект - это получение COM-объекта, соответствующего файлу. Доступность: Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Можете еще добавить про установку сквозных строк:
где $1 - номер первой строки, $4 - номер последней строки.
Была задача, чтобы шапка таблицы excel при выводе на печать отображалась на каждой странице. Пробовал использовать шаблон файла excel с настроенными сквозными строками, но после обработки в 1С и сохранения файла эта настройка пропадала. Долго искал как сделать эту настройку на стороне 1С - и вот нашел) Задача решена.
ActiveSheet.PageSetup.PrintTitleRows = "$1:$4"где $1 - номер первой строки, $4 - номер последней строки.
Была задача, чтобы шапка таблицы excel при выводе на печать отображалась на каждой странице. Пробовал использовать шаблон файла excel с настроенными сквозными строками, но после обработки в 1С и сохранения файла эта настройка пропадала. Долго искал как сделать эту настройку на стороне 1С - и вот нашел) Задача решена.
Может пропустил. Непонятно, неужели ни кто не сталкивался с проблемой перезаписи файла Эксель после его изменения. Вместо записи и закрытия файла, выводится системное сообщение о предложении перезаписи файла, вместо того, чтобы записаться и закрыться.
Попытка
Excel = Новый COMОбъект("Excel.Application");
Excel.Application.DisplayAlerts = False;
Excel.WorkBooks.Open(ИмяФайла);
Excel.visible = Истина;
Excel.Sheets("LRU_LET").Select();
НС = 1;
НК = 1;
Excel.Range(Excel.Cells(2, 1), Excel.Cells(100, 3)).Delete();
Для каждого стр Из ТЗ Цикл
НС = НС + 1;
Excel.Cells(НС, НК).Value = стр.ITEM;
Excel.Cells(НС, НК+1).Value = стр.DSCA;
Excel.Cells(НС, НК+2).Value = стр.QHND;
КонецЦикла;
Excel.ActiveWorkBook.Save();
Excel.DisplayAlerts = 0;
Excel.ActiveWorkbook.Close();
Excel.DisplayAlerts = 1;
Excel.Application.Quit();
Excel = Неопределено;
Исключение
Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!");
Сообщить(ОписаниеОшибки());
КонецПопытки;
ПоказатьПосле выполнения, файл доступен только для чтения. В процессе заметил что visible остается Ложь, и процесс екселя остается активным(не удает удалить файл, пока не грохнешь процесс). Что я делаю не так?
Пример удаление листов в файле эксель. по списку из справочника Подарок :)
ДокExcel = ПолучитьCOMОбъект("", "Excel.Application");
ExcelФайл = ДокExcel.WorkBooks.Open(ИмяВременногоФайла);
Для Сч = 1 По ExcelФайл.Sheets.Count Цикл
Если Сч > ExcelФайл.Sheets.Count Тогда
Прервать;
КонецЕсли;
ИмяЛиста = ExcelФайл.Sheets(Сч).Name;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СписокЛистовВФайлеЭксельДляУдаления.Ссылка КАК Ссылка,
| СписокЛистовВФайлеЭксельДляУдаления.Наименование КАК Наименование
|ИЗ
| Справочник.СписокЛистовВФайлеЭксельДляУдаления КАК СписокЛистовВФайлеЭксельДляУдаления
|ГДЕ
| СписокЛистовВФайлеЭксельДляУдаления.Используется = ИСТИНА
| И СписокЛистовВФайлеЭксельДляУдаления.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", ИмяЛиста);
Результат = Запрос.Выполнить();
Если НЕ Результат.Пустой() Тогда
ExcelФайл.Sheets(ИмяЛиста).Select();
ExcelФайл.ActiveSheet.Delete();
Сч = Сч - 1;
КонецЕсли;
КонецЦикла;
// начинаем закрывать файл
ДокExcel.DisplayAlerts = 0;
// сохраняем его в новый временный, для помещения во врем.хранилище на сервер
ИмяВременногоФайлаНовый = ПолучитьИмяВременногоФайла(ТипВыбранногоФайла); //"xlsx"
ExcelФайл.SaveAs(ИмяВременногоФайлаНовый);
ExcelФайл.Close();
ДокExcel.DisplayAlerts = 1;
ДокExcel.Quit();
ДокExcel = Неопределено;
ДокExcel = ПолучитьCOMОбъект("", "Excel.Application");
ExcelФайл = ДокExcel.WorkBooks.Open(ИмяВременногоФайла);
Для Сч = 1 По ExcelФайл.Sheets.Count Цикл
Если Сч > ExcelФайл.Sheets.Count Тогда
Прервать;
КонецЕсли;
ИмяЛиста = ExcelФайл.Sheets(Сч).Name;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СписокЛистовВФайлеЭксельДляУдаления.Ссылка КАК Ссылка,
| СписокЛистовВФайлеЭксельДляУдаления.Наименование КАК Наименование
|ИЗ
| Справочник.СписокЛистовВФайлеЭксельДляУдаления КАК СписокЛистовВФайлеЭксельДляУдаления
|ГДЕ
| СписокЛистовВФайлеЭксельДляУдаления.Используется = ИСТИНА
| И СписокЛистовВФайлеЭксельДляУдаления.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", ИмяЛиста);
Результат = Запрос.Выполнить();
Если НЕ Результат.Пустой() Тогда
ExcelФайл.Sheets(ИмяЛиста).Select();
ExcelФайл.ActiveSheet.Delete();
Сч = Сч - 1;
КонецЕсли;
КонецЦикла;
// начинаем закрывать файл
ДокExcel.DisplayAlerts = 0;
// сохраняем его в новый временный, для помещения во врем.хранилище на сервер
ИмяВременногоФайлаНовый = ПолучитьИмяВременногоФайла(ТипВыбранногоФайла); //"xlsx"
ExcelФайл.SaveAs(ИмяВременногоФайлаНовый);
ExcelФайл.Close();
ДокExcel.DisplayAlerts = 1;
ДокExcel.Quit();
ДокExcel = Неопределено;
Несколько дополнений.
Работа с Excel-файлами через ТабличныйДокумент удобна, довольно быстра и кроссплатформенна, я предпочитаю именно её, но, к сожалению, тут есть ограничение - метод Прочитать() недоступен в тонком клиенте. Это кажется довольно нелогичным, т.к. тонкий клиент без проблем может открывать файлы Excel просто через меню Файл/Открыть, но это так.
Второе - по поводу работы с файлами, содержащими несколько листов, через ТабличныйДокумент. При загрузке листы файла преобразуются в именованные области. К сожалению, при этом 1С делает некоторые изменения имён листов - например, пробел заменяется на символ подчёркивания. Способа получить оригинальное имя листа при загрузке файла только средствами 1С, похоже, нет.
Наконец, последнее - есть малоизвестный объект ПакетОтображаемыхДокументов. Он очень удобен, когда надо сохранить файл Excel с несколькими листами и заданием их имён. Также этот объект хорош для печати, через него можно задать имя задания печати. К сожалению, через него нельзя прочитать файл.
Работа с Excel-файлами через ТабличныйДокумент удобна, довольно быстра и кроссплатформенна, я предпочитаю именно её, но, к сожалению, тут есть ограничение - метод Прочитать() недоступен в тонком клиенте. Это кажется довольно нелогичным, т.к. тонкий клиент без проблем может открывать файлы Excel просто через меню Файл/Открыть, но это так.
Второе - по поводу работы с файлами, содержащими несколько листов, через ТабличныйДокумент. При загрузке листы файла преобразуются в именованные области. К сожалению, при этом 1С делает некоторые изменения имён листов - например, пробел заменяется на символ подчёркивания. Способа получить оригинальное имя листа при загрузке файла только средствами 1С, похоже, нет.
Наконец, последнее - есть малоизвестный объект ПакетОтображаемыхДокументов. Он очень удобен, когда надо сохранить файл Excel с несколькими листами и заданием их имён. Также этот объект хорош для печати, через него можно задать имя задания печати. К сожалению, через него нельзя прочитать файл.
ADODB.Command Для выполнения комманд на языке T-SQL
Как оказалось, это не совсем так. Используется язык Microsoft Access SQL. В нем нет множества полезных функций и методов, которые есть в T-SQL.
Например, я пытался добавить колонку ID (SEL ECT IDENTITY (int, 0, 1) AS ID), которая отсутствует в исходном excel-файле для того, чтобы отобрать нужные мне записи по ID, так как файл имеет достатоно много лишних полей. Как оказалось, напрямую это сделать нельзя.
Был составлен примерно такой запрос:
SEL ECT
IDENTITY (int, 0, 1) AS ID
, *
INTO #EXCEL
FR OM [EXCEL3]...[Page1$] AS EXCEL
SELECT * FR OM #EXCEL
WH ERE ID > 9
ORDER BY ID
DR OP TABLE #EXCEL ПоказатьКоторый отлично отрабатывает в Microsoft SQL Server Management Studio 18, но не в 1С.
Если есть доступ к SQL серверу, можно открыть excel-файл запросом:
SELECT *
FR OM OPENROWSET(
'Microsoft.ACE.OLEDB.12.0',
'Excel 12.0;HDR=NO;Database=T:\temp\Test.xlsx',
'select * fr om [sheet1$]')И произвести дальнейшие манипуляции на стороне SQL сервера используя синатксис T-SQL, а не Microsoft Access SQL. Но теперь стоит вопрос целеобразности всего этого.
Если я не прав, поправьте меня.
Через табдок лучший способ, пожалуй...
Кроме 1С ничего не требуется
Ни экселя, ни ADODB - драйверов, которые тоже капризные
И с комом не возиться, который любит слетать при обновлении платформы
А для облак это вообще находка, там никакие Com не работают принципиально, например во фрешах...
Кроме 1С ничего не требуется
Ни экселя, ни ADODB - драйверов, которые тоже капризные
И с комом не возиться, который любит слетать при обновлении платформы
А для облак это вообще находка, там никакие Com не работают принципиально, например во фрешах...
Метод получения последней строки в эксельной таблице зависит от установленных фильтров:
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
Если в эксельной таблице установлен фильтр, то последней строкой является строка из удовлетворяющих фильтру.
Может кто знает как получить последнюю строку в таблице несмотря на наложенные фильтры?
Или как сбросить фильтр программно?
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
Если в эксельной таблице установлен фильтр, то последней строкой является строка из удовлетворяющих фильтру.
Может кто знает как получить последнюю строку в таблице несмотря на наложенные фильтры?
Или как сбросить фильтр программно?
xlUp - одна из множества констант в Excel. -4162
в переменную попадет последняя заполненная ячейка, т.е. в которой есть хоть какие-то данные, в столбце "A". Столбец можно указывать числом.
a = Sh.Cells(Sh.Rows.Count, "A").End(-4162).Rowв переменную попадет последняя заполненная ячейка, т.е. в которой есть хоть какие-то данные, в столбце "A". Столбец можно указывать числом.
Обход табличного документа, как по мне вообще дело не благодарное.
Используйте построитель запроса.
Используйте построитель запроса.
// Чтение данных из временного файла в табличный документ.
ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.Прочитать(ИмяВременногоФайла);
// Обход данных табличного документа и загрузка их(данных) в таблицу значений.
ПостроительЗапроса = Новый ПостроительЗапроса;
ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область());
ПостроительЗапроса.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;
ПостроительЗапроса.ЗаполнитьНастройки();
ПостроительЗапроса.Выполнить();
// Получение таблицы значений
ТаблицаЗначений = ПостроительЗапроса.Результат.Выгрузить();
Показать
(74) Вот полный и готовый шаблон загрузки и табличного документа, в данном случае из экселя.
&НаКлиенте
Процедура ЗагрузкаДанныхИзТабличногоДокумента(Команда)
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Заголовок = "Выберите табличный документ";
ДиалогВыбораФайла.Фильтр = НСтр("ru='Текстовый документ(*.xls;*.xlsx)|*.xls;*.xlsx'");
ДиалогВыбораФайла.МножественныйВыбор = Ложь;
НачатьПомещениеФайла(Новый ОписаниеОповещения("ЗагрузкаДанныхИзТабличногоДокументаНаСервере", ЭтотОбъект),,
ДиалогВыбораФайла);
КонецПроцедуры
&НаСервере
Процедура ЗагрузкаДанныхИзТабличногоДокументаНаСервере(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
УстановитьПривилегированныйРежим(Истина);
// Проверка результат выбора файла.
Если Не Результат Тогда
// Ошибка помещения файла.
Возврат;
КонецЕсли;
// Проверка типа данных из временного хранилища.
ДвоичныеДанные = ПолучитьИзВременногоХранилища(Адрес);
Если ТипЗнч(ДвоичныеДанные) <> Тип("ДвоичныеДанные") Тогда
// Ошибка данных. Непригодный тип.
Возврат;
КонецЕсли;
// Сохранение двоичных данных на сервере.
РасширениеВременногоФайла = Сред(ВыбранноеИмяФайла, СтрНайти(ВыбранноеИмяФайла, ".", НаправлениеПоиска.СКонца));
ИмяВременногоФайла = ПолучитьИмяВременногоФайла(РасширениеВременногоФайла);
ДвоичныеДанные.Записать(ИмяВременногоФайла);
// Чтение данных из временного файла в табличный документ.
ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.Прочитать(ИмяВременногоФайла);
// Обход данных табличного документа и загрузка их(данных) в таблицу значений.
ПостроительЗапроса = Новый ПостроительЗапроса;
ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область());
ПостроительЗапроса.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;
ПостроительЗапроса.ЗаполнитьНастройки();
ПостроительЗапроса.Выполнить();
// Получение таблицы значений с данными.
ТаблицаЗначений = ПостроительЗапроса.Результат.Выгрузить();
// Обработка таблицы значений.
КонецПроцедуры
Показать
(75) для получения первого листа книги Excel после чтения табличного документа нужно добавить
иначе запрос будет выполнен по всем листам.
Также если на листе есть столбцы с одинаковыми именами, то после запроса их данные будут утеряны, и результаты будут кривые. Чтобы это обойти нужно переименовать заголовки в табличном документе.
Дальше уже в таблице значений можно задать удобные имена колонок.
// полученине первого листа
Попытка
ТабличныйДокумент = ТабличныйДокумент.ПолучитьОбласть(ТабличныйДокумент.Области[0].Имя);
Исключение
Сообщить("Ошибка получения области листа");
Возврат;
КонецПопытки;иначе запрос будет выполнен по всем листам.
Также если на листе есть столбцы с одинаковыми именами, то после запроса их данные будут утеряны, и результаты будут кривые. Чтобы это обойти нужно переименовать заголовки в табличном документе.
ПерваяСтрока = 1; //строка заголовков (последняя перед данными)
ПерваяКолонка = 1;
ПоследняяСтрока = ТабличныйДокумент.ВысотаТаблицы;
ПоследняяКолонка = ТабличныйДокумент.ШиринаТаблицы;
// переименование столбцов
Для НомерКолонки = 1 По ПоследняяКолонка Цикл
ТабличныйДокумент.Область(ПерваяСтрока, НомерКолонки).Текст = ("к" + НомерКолонки);
КонецЦикла; ПоказатьДальше уже в таблице значений можно задать удобные имена колонок.
ТаблицаЗначений.Колонки[0].Имя = "ИмяКолонки";
Хороший труд!
Но может ещё кто расширит? Требуется выгрузить в эксель результат отчета. И пользователи его потом редактируют и он обратно загружается изменяя откорректированные пользователями данные.
Так вот, некоторые поля нужно пользователям выбирать строго из выпадающего списка, что бы вольности и многообразия с опечатками исключить.
Как этот список делается просто в эксель, понятно. Но вот как выгрузить программно результат запроса и при выгрузке проставить там возможность выбирать значения из списка - вопрос?
Но может ещё кто расширит? Требуется выгрузить в эксель результат отчета. И пользователи его потом редактируют и он обратно загружается изменяя откорректированные пользователями данные.
Так вот, некоторые поля нужно пользователям выбирать строго из выпадающего списка, что бы вольности и многообразия с опечатками исключить.
Как этот список делается просто в эксель, понятно. Но вот как выгрузить программно результат запроса и при выгрузке проставить там возможность выбирать значения из списка - вопрос?
(79)
Это решается путем программного открытия файла ecxel и добавления признака Validation в ячейку
Вот пример выпадающего списка, например, материалов, список которых прописан в листе "ЛистДиапазономДанныхВыбираемыхИзСписка" :
более подробно можно посмотреть в онлайн справке Excel
Это решается путем программного открытия файла ecxel и добавления признака Validation в ячейку
Вот пример выпадающего списка, например, материалов, список которых прописан в листе "ЛистДиапазономДанныхВыбираемыхИзСписка" :
xlValidateList = 3;
xlValidAlertInformation = 3;
xlBetween = 1;
Формула = "="+ЛистДиапазономДанныхВыбираемыхИзСписка.Name+"!R2C1:R"+Формат((мКолвоСтрокЛиста_ЛистДиапазономДанныхВыбираемыхИзСписка),"ЧГ=0")+"C1";
Sheet.Cells(НомерСтроки, НомерКолонки).Validation.Add(
xlValidateList,
xlValidAlertInformation,
xlBetween,
Формула);
Sheet.Cells(НомерСтроки, НомерКолонки).Validation.InCellDropdown=1;
Показатьболее подробно можно посмотреть в онлайн справке Excel
Если файл excel открыт пользователем, то открыть его программно в 1С через табличный документ не получится – выскочит:
Ошибка совместного доступа к файлу 'ИмяФайла'. 32(0x00000020): Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.
Для обхода придумал костыль, суть которого заключается в том, чтобы через ком получить открытый файл excel и с помощью метода SaveCopyAs сохранить его копию во временный файл, из которого уже грузить данные в табличный документ. При чем в копию сохраняются изменения, еще не сохраненные в оригинальном файле:&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы <> Неопределено Тогда
ОП = Новый ОписаниеОповещения("ПослеПомещенияФайлаНаСервер", ЭтотОбъект);
ПутьКФайлу = ВыбранныеФайлы[0];
РезультатЧтения.Очистить();
Попытка
НачатьПомещениеФайлаНаСервер(ОП, , , , ПутьКФайлу, УникальныйИдентификатор);
Исключение
КомЭксель = ПолучитьCOMОбъект(ПутьКФайлу, "Excel.Application");
Расширение = Сред(ПутьКФайлу, СтрНайти(ПутьКФайлу, ".", НаправлениеПоиска.СКонца) + 1);
ИмяВременногоФайла = ПолучитьИмяВременногоФайла(Расширение);
КомЭксель.SaveCopyAs(ИмяВременногоФайла);
КомЭксель = Неопределено;
НачатьПомещениеФайлаНаСервер(ОП, , , , ИмяВременногоФайла, УникальныйИдентификатор);
КонецПопытки;
КонецЕсли;
КонецПроцедуры Показать
Привет ,
Метод выгрузки файла в Табдок ограничен, я получаю не все возможности как если при работе через COM (тот который требует установки Ексель)
через com я могу получить путь гиперссылки на какой либо файл используя код Лист.Cells(n,3).Hyperlinks.Item(1).Address
при работе через Табдок часть свойств ячеек ексель не доступна.
при использовании ADODB возможность вынуть гиперссылку из ячейки сохраняется или вся его "модность" в том что не надо ексель ставить и отборы в него кинуть сразу по Т-SQL ?
Метод выгрузки файла в Табдок ограничен, я получаю не все возможности как если при работе через COM (тот который требует установки Ексель)
через com я могу получить путь гиперссылки на какой либо файл используя код Лист.Cells(n,3).Hyperlinks.Item(1).Address
при работе через Табдок часть свойств ячеек ексель не доступна.
при использовании ADODB возможность вынуть гиперссылку из ячейки сохраняется или вся его "модность" в том что не надо ексель ставить и отборы в него кинуть сразу по Т-SQL ?
Всем привет!
Есть такая проблема, с 1С я на вы, а с Excel тем более, но потребовалось создать внешний отчет для 1С с выгрузкой в Excel для руководства.
Условия: создать файл на нескольких листах. В них выгружаются данные из 1С с указанием даты операций в 1С. Основное условие, чтобы при добавлении информации, оставалось видно, только информация по свежим датам.
Может, я плохо умею пользоваться поисковиком, но я не смог найти метод создания автофильтра по условию с типом дата, а тем более когда нужно отфильтровать по нескольким датам.
Прочитал справочник VBA для Office ( написал такой код:
УсловиеФильтраВычерков = Новый Массив;
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока,ВсегоКолонок)).AutoFilter();
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока,ВсегоКолонок)).AutoFilter();
УсловиеФильтраВычерков.Добавить(2);
УсловиеФильтраВычерков.Добавить(Формат(Дата(2022,03,03),"ДФ=М/д/гггг"));
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока-1,ВсегоКолонок)).AutoFilter(1,,7,УсловиеФильтраВычерков);
Не работает. Помогите решить проблему!
P.S. Руководство хочет только распечатать(без манипуляций с фильтрами, т.к. совсем никак с работой на компьютере(странно, но такие еще остались)) и идти к своему руководству.
Есть такая проблема, с 1С я на вы, а с Excel тем более, но потребовалось создать внешний отчет для 1С с выгрузкой в Excel для руководства.
Условия: создать файл на нескольких листах. В них выгружаются данные из 1С с указанием даты операций в 1С. Основное условие, чтобы при добавлении информации, оставалось видно, только информация по свежим датам.
Может, я плохо умею пользоваться поисковиком, но я не смог найти метод создания автофильтра по условию с типом дата, а тем более когда нужно отфильтровать по нескольким датам.
Прочитал справочник VBA для Office ( написал такой код:
УсловиеФильтраВычерков = Новый Массив;
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока,ВсегоКолонок)).AutoFilter();
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока,ВсегоКолонок)).AutoFilter();
УсловиеФильтраВычерков.Добавить(2);
УсловиеФильтраВычерков.Добавить(Формат(Дата(2022,03,03),"ДФ=М/д/гггг"));
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока-1,ВсегоКолонок)).AutoFilter(1,,7,УсловиеФильтраВычерков);
Не работает. Помогите решить проблему!
P.S. Руководство хочет только распечатать(без манипуляций с фильтрами, т.к. совсем никак с работой на компьютере(странно, но такие еще остались)) и идти к своему руководству.
(88) Забыл уточнить. Платформа 8.2.13... Обычные формы.
Текст ошибки:
{Форма.Форма.Форма(226)}: Ошибка при вызове метода контекста (AutoFilter)
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока,ВсегоКолонок)).AutoFilter();
по причине:
Неизвестная ошибка
В Excel запуск Макроса делал. Оттуда формат даты взял такой.
Текст ошибки:
{Форма.Форма.Форма(226)}: Ошибка при вызове метода контекста (AutoFilter)
ТекЛист.Range(ТекЛист.Cells(1,1),ТекЛист.Cells(АктивнаяСтрока,ВсегоКолонок)).AutoFilter();
по причине:
Неизвестная ошибка
В Excel запуск Макроса делал. Оттуда формат даты взял такой.