Пример работы с MS EXCEL (листы, поиск на листе) Код 1C v 8.х ДокументExcel = ПолучитьCOMОбъект(ИмяФайла); //Листы : СписокЛистов = Новый СписокЗначений; Для каждого Лист Из ДокументExcel.Sheet s Цикл СписокЛистов.Добавить(Лист.Index,Лист.Name); КонецЦикла; ЛистExcel= ДокументExcel.Sheet s(НомерЛистаКниги); ПоследняяСтрока = ЛистExcel.UsedRange.Rows.Count; ЛеваяКолонка = ЛистExcel.UsedRange.Column; ПоследняяКолонка = ЛистExcel.UsedRange.Columns.Count; НомерКолонкиСТекстом=ЛистExcel.UsedRange.Find("text").Column; //Или НомерКолонкиСТекстом=ЛистExcel.Cells.Find("text").Column; //Подчищаем за собой память ДокументExcel.Application.Quit(); Категория:
Работа с Microsoft Office и OpenOffice Как в excel сохраненный из 1С вставить новый лист? Я думаю, все сталкивались с однолистовым excel файлом из 1С, у которого на первый взгляд, нет возможности добавить листы. Все не так страшно - их просто скрыли или, что чаще всего - даже не отображали (обусловлено созданием файла из стороннего приложения, например 1С)
Решение:
Excel 2003 Сервис - Параметры - вкладка Вид - Показывать ярлычки листов Excel 2007 Кнопка Офис - Параметры Excel (Excel Options) - Дополнительно (Advanced) - Показывать ярлычки листов (Show sheet tabs) Excel 2010 Файл (File) - Параметры (Options) - Дополнительно (Advanced) - Показывать ярлычки листов (Show sheet tabs) Вот и все. Но бывает так, что вы и не увидите их сразу. Если после отображения ярлычков, ярлычки так и не отобразились, следует проверить длину полосы прокрутки и если она является максимальной, то навести указатель мыши на левую границу полосы прокрутки(рис.1) ,
нажать левую кнопку мыши и не отпуская её потянуть вправо(рис.2) .
Ярлычки появятся!
Категория:
Работа с Microsoft Office и OpenOffice Добавим документы ODF (OpenOffice/LibreOffice) в стандартную обработку Загрузки Табличного документа Доброго времени суток!
Обработку ЗагрузкаданныхизТабличногоДокументаконечно должен знать каждый 1С-ник. И сколько бы обработок такого плана не появлялось, эта остается классикой. Даже претензии можно предъявлять если вы в ней что-то не понимаете к самой 1С. Хотя какие претензии, исходный код открыть – изучай, не хочу…
Еще чем мне нравится эта обработка – тем что вы читаете данные из внешнего источника, показываете их с помощью объекта табличное поле и только затем выбираете алгоритм загрузки в 1С. При чем загрузка у Вас происходит в среде 1С без привлечения дополнительных компонентов. Без всяких выпадов в неизвестный объект OLE, полей которые не прочитались в обработке загрузки. Если вы видете данные в табличном поле, то они и будут грузиться по вашему алгоритму.
Но что-то в ней не хватает. Конечно стандарта офисных документов ODF (Open Document Format и между прочим ГОСТ Р ИСО/МЭК 26300-2010). Как говаривал мой начальник – есть чем себя занять. Из всех внешних загрузок, которые сейчас есть к сожалению самыми распостраненными являются OLE(Com+) технологии. Возможно что-то еще появиться, но пока примемся за них.
Залезаем в код и видим несколько однотипных функуций
Функция мПрочитатьТабличныйДокументИзExcel(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт
Функция мПрочитатьТабличныйДокументИзТекста(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт
Пора добавить свою:
Код 1C v 8.х Sheet s();
И добавим в форму выбора файла ods по тексту.
Код 1C v 8.х ДиалогВыбораФайла.Фильтр = “Табличный документ (*.mxl)|*.mxl|Лист Calc (*.ods)|*.ods|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|”;
И выбор функции для ods
ИначеЕсли нРег(ФайлНаДиске.Расширение) = “.ods” Тогда
мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент,ДиалогВыбораФайла.ПолноеИмяФайла);
Вот так лучше.
Сайт
sikuda.ru Категория:
Работа с Microsoft Office и OpenOffice Универсальная функция для чтения данных из Excel в 1С Иногда требуется разобрать данные из Excel в 1С.
Я считаю что легче и быстрей поместить все данные в ТаблицуЗначений и уже там ими манипулировать.
Пример 2-х функций которые я использую:
ИзExcelВТаблицу – Читает Excel в ТаблицуЗначений
ЭлементСправочника – Создает или находит элемент справочника.
Теперь сам код:
Код 1C v 8.х // Загрузка данных из Excel файла в ТаблицуЗначений Sheet s(НомерСтраницы);Пример вызова:
Код 1C v 8.х ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
или
Код 1C v 8.х ТЗ = ИзExcelВТаблицу(ФайлExcel); Теперь функция которой я использую когда надо создать элемент справочника из полученных данных.
Код 1C v 8.х // Создаем в справочнике "ИмяСправочника" элемент
Автор:
borismor Категория:
Работа с Microsoft Office и OpenOffice Как выгрузить Таблицу значение в файл Excel? Код 1C v 8.х Процедура СохранитьТаблицуВФайлExcel(Таблица, ПолноеИмяФайла="", ОткрыватьДиалогВыбораФайла=Истина, ВыгружаемыеКолонки="") Экспорт Sheet s(1); Категория:
Работа с Microsoft Office и OpenOffice Активация открытой книги Excel для корректировки Нужно было получить для изменения уже открытую книгу Excel, а если она закрыта, то открыть и изменять.
Ниже код, который данную задачу решает.
Код 1C v 8.х Sheet s(1); Категория:
Работа с Microsoft Office и OpenOffice Загрузка данных из таблицы OpenOffice Calc v.3 Код 1C v 8.х Процедура ЗагрузитьПрайс(Кнопка)Sheet s = Doc.GetSheet s();;Sheet s.GetByIndex(0);Sheet s.GetByName("Лист1"); Категория:
Работа с Microsoft Office и OpenOffice Добавление в список выбора листов excel-файла с возможностью последующего к ним обращения Код 1C v 8.х Sheet s.Count ЦиклSheet s(Н).Index) + ". " + Таблица.Sheet s(Н).Name;Sheet s(Индекс);//получаем лист по порядковому номеру Категория:
Работа с Microsoft Office и OpenOffice Импорт документа Excel через web-клиент Во время реализации задачи по регистрации продаж дистрибьюторов на основании Excel документов столкнулся с интересной задачей. Необходимо реализовать загрузку файла и на стороне сервера обработать его, заполнив табличную часть документа.
Решение состоит из двух функций: клиентской и серверной.
Клиентская часть инициирует выбор файла, передачу выбранного файла на сервер и передача управления серверной процедуре.
Код 1C v 8.2 УП #НаКлиенте
Серверная процедура перебирает полученные на сервер файлы. Получает COM-объекты и импортирует данные.
Код 1C v 8.2 УП #НаСервереSheet s(1).Cells(ДанныеНачинаютсяС, 2).Value;Sheet s(1).Cells(ДанныеНачинаютсяС, 7).Value;Sheet s(1).Cells(ДанныеНачинаютсяС, 3).Value;Sheet s(1).Cells(ДанныеНачинаютсяС, 4).Value;Sheet s(1).Cells(ДанныеНачинаютсяС, 5).Value;Sheet s(1).Cells(ДанныеНачинаютсяС, 6).Value;Sheet s(1).Cells(ДанныеНачинаютсяС, 2).Value;Источник Категория:
Работа с Microsoft Office и OpenOffice Выгрузка табличного документа в Google таблицу Надумал когда-то задачу себе: выгрузить содержимое табличного документа в
Google Document . Одним из вариантов использования данного функционала может быть выгрузка состояния заказов пользователей из базы в 1с в google spread
sheet . Если клиент знает адрес данного документа, то они могут ознакомиться с состоянием дел не звоня менеджеру. Может кто еще придумает варианты использования – пишите в комментарии, буду рад.
Последовательность выгрузки документа такова: сначала получаем список таблиц, которые есть у пользователя в системе Google Document. Затем после определения таблицы выгрузки пользователю предлагаем выбрать лист, в который будет выгружаться содержимое. Во время выбора всех этих параметров так же предоставляется возможность создания новых элементов (таблиц, листов). Уже после определения листа выгрузки обходим все ячейки документа и их содержимое переносим в таблицу на соответствующее место. Вопрос сохранения форматирования табличного документа в данной задаче не рассматривался.
Для написания функционала использовалась информация про
google document API . Для того чтобы получить доступ к данным необходимо чтобы 1с сначала прошла аутентификацию. Про аутентификацию приложений можно почитать в соответствующем документе. Для того чтобы пройти аутентификацию мы должны сначала получить маркер, затем этот маркер прописывать каждый раз при обращении к серверу.
Функция получения маркера следующая:
Код 1C v 8.х Функция ПолучитьМаркер(ВидСервиса,Пользователь = Неопределено) Экспорт
Функция получения маркера в качестве входного параметра получает вид службы, для которой будет проходить аутентификация. Это очень важный момент. Например, полученный маркер для Календаря не даст возможности работать с документами.
Для получения списка таблиц отправляется GET запрос по адресу «https://spread
sheet s.google.com/feeds/spread
sheet s/private/full». В запросе параметр «Authorization» определяется значением полученного маркера аутентификации. В результате выполнения запроса в ResponseText мы получаем xml, который для удобство дальнейшего разбора перегоняется в ДеревоЗначений.Функция получения списка таблиц имеет следующий вид:
Код 1C v 8.х &НаСервереsheet s.google.com/feeds/spreadsheet s/private/full";sheet s/2006#worksheet sfeed" Тогда
Теперь остановимся на самой выгрузке значения в ячейку google таблицы. Для определения значения в ячейке выполняется POST запрос по адресу листа таблицы, который пользователь определил до этого. Успешность выполнения обновления контролируется по значению Status, в случае удачного обновления он должен быть равен 201. Функция обновления значения ячейки на листе Google таблицы имеет следующий вид:
Код 1C v 8.х &НаСервереИсточник Категория:
Табличный документ Быстрая загрузка данных большого размера файла Excel в многомерный Массив Код 1C v 8.х // OldthiefXXXSheet .UsedRange.Rows.Count; Sheet .UsedRange.Columns.Count; Sheet ; Категория:
Работа с Microsoft Office и OpenOffice Преобразование XLS в MXL Конвертация таблиц из Excel в MXL - скачать Converter Excel v MXL:
Для 8.х -
Скачивать файлы может только зарегистрированный пользователь!
Для 7.7 -
Скачивать файлы может только зарегистрированный пользователь!
Код 1C v 8.х // Выбор файла Microsoft ExcelSheet s(ExcelApplication)Sheet = New ValueList;Sheet .Add(0, "Все листы");Sheet = 0;Sheet = 1 To ExcelApplication.Worksheet s.Count Do Sheet = NumberSheet + 1;Sheet .Add(Sheet , ExcelApplication.WorkSheet s(NumberSheet ).NameSheet ; Sheet s()Sheet = 0;Sheet = GetSheet s(ExcelApplication).ChooseItem("Выберите лист", S_electSheet ); Sheet = Undefined ThenSheet 1 = S_electSheet .Value; Sheet 2 = S_electNumberSheet 1;Sheet 1 = 0 ThenSheet 1 = 1;Sheet 2 = ExcelApplication.Worksheet s.Count Sheet 2;Sheet = S_electNumberSheet 1 To S_electNumberSheet 2 Dosheet Document;Sheet = ExcelApplication.Sheet s(NumberSheet ).UsedRange;Sheet .Rows.Count; // Всего строкSheet .Columns.Count; // Всего колонокSheet + " из " +Sheet 2;Sheet .Cells(sheet DocumentTextPlacementType.Auto,sheet DocumentTextPlacementType.WrapSheet ,""); Категория:
Работа с Microsoft Office и OpenOffice Экспорт и Импорт данных 1С - Microsoft Excel Экспорт
Процедура ОсновныеДействияФормыЭкспорт(Кнопка) - выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel с указанным именем, используя преобразование данных к типу число и типу строка;
Код 1C v 8.х Процедура ОсновныеДействияФормыЭкспорт(Кнопка)Sheet s(1);Импорт
Исходный код процедуры 1С для загрузки XLS файла:
Код 1C v 8.х Процедура ЧтениеXLSФайла(Элемент)Sheet s(1); Категория:
Работа с Microsoft Office и OpenOffice Как таблицу значений выгрузить в Excel Код 1C v 8.х sheet s.Add(); Категория:
Работа с Таблицей Значений Чтение и Вывод данных в Excel Замечание: В Excel разделителем дробной части считается символ ",". Поэтому перед сохранением таблицы 1С в формате Excel замените в ней другой разделитель (например ".") на ",". Иначе в Excel с этими числами не удастся произвести вычисления, или они вообще не будут отображаться как числа. Например, в таблице 1С "15.2" отобразится в Excel как "15.фев".
Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(
Чтение (Получение) данных из Excel
Доступ из 1С к Excel производится посредством OLE. Например, код
Код 1C v 7.x Попытка
позволит получить доступ через переменную "Эксель" к запущенному приложению Excel. А далее уже можно получить доступ к книге (файлу), листу и ячейке с данными.Чтобы открыть книгу (файл)
Код 1C v 7.x Книга = Эксель.WorkBooks.Open(ПутьКФайлу);Sheet s(НомерЛиста);Sheet s(ИмяЛиста);Важно: не забывайте поле выполнения нужных действий добавлять код
Код 1C v 7.x Эксель.Quit();
, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.
Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:
Код 1C v 7.x Попытка
Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:
Код 1C v 7.x Лист = Книга.WorkSheet s(НомерЛиста);Sheet s.Add();
Следующим шагом будет установка значения ячейки:
Код 1C v 7.x Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;
И в конце нужно произвести запись созданной книги:
Код 1C v 7.x ПопыткаВажно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > < Категория:
Работа с Microsoft Office и OpenOffice 
Пример работы с MS EXCEL (листы, поиск на листе) Категория: Работа с Microsoft Office и OpenOffice
