Как выгрузить Таблицу значение в файл Excel? Код 1C v 8.х Процедура СохранитьТаблицуВФайлExcel(Таблица, ПолноеИмяФайла="", ОткрыватьДиалогВыбораФайла=Истина, ВыгружаемыеКолонки="") Экспорт WorkSheet s(1); Категория:
Работа с Microsoft Office и OpenOffice Активация открытой книги Excel для корректировки Нужно было получить для изменения уже открытую книгу Excel, а если она закрыта, то открыть и изменять.
Ниже код, который данную задачу решает.
Код 1C v 8.х WorkSheet s(1); Категория:
Работа с Microsoft Office и OpenOffice Выгрузка табличного документа в Google таблицу Надумал когда-то задачу себе: выгрузить содержимое табличного документа в
Google Document . Одним из вариантов использования данного функционала может быть выгрузка состояния заказов пользователей из базы в 1с в google spreadsheet. Если клиент знает адрес данного документа, то они могут ознакомиться с состоянием дел не звоня менеджеру. Может кто еще придумает варианты использования – пишите в комментарии, буду рад.
Последовательность выгрузки документа такова: сначала получаем список таблиц, которые есть у пользователя в системе Google Document. Затем после определения таблицы выгрузки пользователю предлагаем выбрать лист, в который будет выгружаться содержимое. Во время выбора всех этих параметров так же предоставляется возможность создания новых элементов (таблиц, листов). Уже после определения листа выгрузки обходим все ячейки документа и их содержимое переносим в таблицу на соответствующее место. Вопрос сохранения форматирования табличного документа в данной задаче не рассматривался.
Для написания функционала использовалась информация про
google document API . Для того чтобы получить доступ к данным необходимо чтобы 1с сначала прошла аутентификацию. Про аутентификацию приложений можно почитать в соответствующем документе. Для того чтобы пройти аутентификацию мы должны сначала получить маркер, затем этот маркер прописывать каждый раз при обращении к серверу.
Функция получения маркера следующая:
Код 1C v 8.х Функция ПолучитьМаркер(ВидСервиса,Пользователь = Неопределено) Экспорт
Функция получения маркера в качестве входного параметра получает вид службы, для которой будет проходить аутентификация. Это очень важный момент. Например, полученный маркер для Календаря не даст возможности работать с документами.
Для получения списка таблиц отправляется GET запрос по адресу «https://spreadsheets.google.com/feeds/spreadsheets/private/full». В запросе параметр «Authorization» определяется значением полученного маркера аутентификации. В результате выполнения запроса в ResponseText мы получаем xml, который для удобство дальнейшего разбора перегоняется в ДеревоЗначений.Функция получения списка таблиц имеет следующий вид:
Код 1C v 8.х &НаСервереworksheet sfeed" Тогда
Теперь остановимся на самой выгрузке значения в ячейку google таблицы. Для определения значения в ячейке выполняется POST запрос по адресу листа таблицы, который пользователь определил до этого. Успешность выполнения обновления контролируется по значению Status, в случае удачного обновления он должен быть равен 201. Функция обновления значения ячейки на листе Google таблицы имеет следующий вид:
Код 1C v 8.х &НаСервереИсточник Категория:
Табличный документ Преобразование XLS в MXL Конвертация таблиц из Excel в MXL - скачать Converter Excel v MXL:
Для 8.х -
Скачивать файлы может только зарегистрированный пользователь!
Для 7.7 -
Скачивать файлы может только зарегистрированный пользователь!
Код 1C v 8.х // Выбор файла Microsoft ExcelWorksheet s.Count Do WorkSheet s(NumberSheet).NameWorksheet s.Count WorkSheet = ExcelApplication.Sheets(NumberSheet).UsedRange;WorkSheet .Rows.Count; // Всего строкWorkSheet .Columns.Count; // Всего колонокWorkSheet .Cells( Категория:
Работа с Microsoft Office и OpenOffice Экспорт и Импорт данных 1С - Microsoft Excel Экспорт
Процедура ОсновныеДействияФормыЭкспорт(Кнопка) - выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel с указанным именем, используя преобразование данных к типу число и типу строка;
Код 1C v 8.х Процедура ОсновныеДействияФормыЭкспорт(Кнопка)WorkSheet s(1);Импорт
Исходный код процедуры 1С для загрузки XLS файла:
Код 1C v 8.х Процедура ЧтениеXLSФайла(Элемент) Категория:
Работа с Microsoft Office и OpenOffice Как таблицу значений выгрузить в Excel Код 1C v 8.х Worksheet 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(ПутьКФайлу);WorkSheet s(НомерЛиста);WorkSheet s(ИмяЛиста);Важно: не забывайте поле выполнения нужных действий добавлять код
Код 1C v 7.x Эксель.Quit();
, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.
Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:
Код 1C v 7.x Попытка
Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:
Код 1C v 7.x Лист = Книга.WorkSheet s(НомерЛиста);
Следующим шагом будет установка значения ячейки:
Код 1C v 7.x Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;
И в конце нужно произвести запись созданной книги:
Код 1C v 7.x ПопыткаВажно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > < Категория:
Работа с Microsoft Office и OpenOffice Выгрузка данных в Excel с установкой разных параметров Код 1C v 8.х // Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft ExcelWorkSheet s(1);Код 1C v 7.x //Простейший пример вывода из 1С:Предприятия 7.7 в MS Excel. Обеспечение наличия у рабочей книги единственного листа,Worksheet s.Count=0 ТогдаWorksheet s.Add();Worksheet s.Count>1 ЦиклWorksheet s(1).Delete();Worksheet =WorkBook.Worksheet s(1);Worksheet .Name="Пример вывода";Worksheet .Range("A1").Value="Пример вывода из 1С:Предприятия в MS Excel";Worksheet .Range("A2").Value="сегодня "+ТекущаяДата();Worksheet .Range("A1:A2").Font.Size=14;//размер шрифтаWorksheet .Range("A1:A2").Font.Bold=-1;//жирный шрифтWorksheet .Columns(1).ColumnWidth=60;Worksheet .Columns(2).ColumnWidth=15;Worksheet .Columns(3).ColumnWidth=15;Worksheet .Range("A4").Value="Первая колонка";Worksheet .Range("A4").Borders(ы).LineStyle=1;Worksheet .Range("A4").Borders(ы).Weight=-4138;//xlMediumWorksheet .Range("A4").Interior.ColorIndex=15;//заливка серымWorksheet .Range("A4").HorizontalAlignment=-4108;//выравнивание текста по центруWorksheet .Range("B4").Value="Вторая";Worksheet .Range("B4").Borders(ы).LineStyle=1;Worksheet .Range("B4").Borders(ы).Weight=-4138;Worksheet .Range("B4").Interior.ColorIndex=15;Worksheet .Range("B4").HorizontalAlignment=-4108;Worksheet .Range("C4").Value="Третья";Worksheet .Range("C4").Borders(ы).LineStyle=1;Worksheet .Range("C4").Borders(ы).Weight=-4138;Worksheet .Range("C4").Interior.ColorIndex=15;Worksheet .Range("C4").HorizontalAlignment=-4108;Worksheet .Outline.SummaryRow=0;//"итоговые" строки отображать сверху (если снизу, то 1)Worksheet .Range("A5").Value="Объект аналитики";Worksheet .Range("A5").Font.ColorIndex=5;//цвет шрифта - синийWorksheet .Range("B5").Value=123.45;Worksheet .Range("B5").Font.ColorIndex=5;Worksheet .Range("C5").Value=678.9;Worksheet .Range("C5").Font.ColorIndex=5;Worksheet .Range("A6").Value="Объект аналитики";Worksheet .Range("A6").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B6").Value=123.45;Worksheet .Range("B6").Font.ColorIndex=3;Worksheet .Range("C6").Value=678.9;Worksheet .Range("C6").Font.ColorIndex=3;Worksheet .Range("A7").Value="Объект аналитики";Worksheet .Range("B7").Value=123.45;Worksheet .Range("C7").Value=678.9;Worksheet .Range("A8").Value="Объект аналитики";Worksheet .Range("B8").Value=123.45;Worksheet .Range("C8").Value=678.9;Worksheet .Range("A9").Value="Объект аналитики";Worksheet .Range("A9").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B9").Value=123.45;Worksheet .Range("B9").Font.ColorIndex=3;Worksheet .Range("C9").Value=678.9;Worksheet .Range("C9").Font.ColorIndex=3;Worksheet .Range("A10").Value="Объект аналитики";Worksheet .Range("B10").Value=123.45;Worksheet .Range("C10").Value=678.9;Worksheet .Range("A11").Value="Объект аналитики";Worksheet .Range("B11").Value=123.45;Worksheet .Range("C11").Value=678.9;Worksheet .Range("A12").Value="Объект аналитики";Worksheet .Range("A12").Font.ColorIndex=5;//цвет шрифта - синийWorksheet .Range("B12").Value=123.45;Worksheet .Range("B12").Font.ColorIndex=5;Worksheet .Range("C12").Value=678.9;Worksheet .Range("C12").Font.ColorIndex=5;Worksheet .Range("A13").Value="Объект аналитики";Worksheet .Range("A13").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B13").Value=123.45;Worksheet .Range("B13").Font.ColorIndex=3;Worksheet .Range("C13").Value=678.9;Worksheet .Range("C13").Font.ColorIndex=3;Worksheet .Range("A14").Value="Объект аналитики";Worksheet .Range("B14").Value=123.45;Worksheet .Range("C14").Value=678.9;Worksheet .Range("A15").Value="Объект аналитики";Worksheet .Range("B15").Value=123.45;Worksheet .Range("C15").Value=678.9;Worksheet .Range("A16").Value="Объект аналитики";Worksheet .Range("A16").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B16").Value=123.45;Worksheet .Range("B16").Font.ColorIndex=3;Worksheet .Range("C16").Value=678.9;Worksheet .Range("C16").Font.ColorIndex=3;Worksheet .Range("A17").Value="Объект аналитики";Worksheet .Range("B17").Value=123.45;Worksheet .Range("C17").Value=678.9;Worksheet .Range("A18").Value="Объект аналитики";Worksheet .Range("B18").Value=123.45;Worksheet .Range("C18").Value=678.9;Worksheet .Range("A"+НомСтр).Borders(ы).LineStyle=1;Worksheet .Range("B"+НомСтр).Borders(ы).LineStyle=1;Worksheet .Range("C"+НомСтр).Borders(ы).LineStyle=1;Worksheet .Range("7:8").Rows.Group();Worksheet .Range("10:11").Rows.Group();Worksheet .Range("14:15").Rows.Group();Worksheet .Range("17:18").Rows.Group();Worksheet .Range("6:11").Rows.Group();Worksheet .Range("13:18").Rows.Group();Worksheet .Outline.ShowLevels(1);Worksheet .Range("B5:C18").NumberFormat="# ##0.00";Worksheet .Range("B5:C18").NumberFormat="# ##0,00";Worksheet .Range("A5").S_elect(); Категория:
Работа с Microsoft Office и OpenOffice Как выборочно Разрешить / Запретить редактирование ячеек листа Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также:
Код 1C v 7.x //Создаем объект EXCELWorksheet s("Список сотрудников"); // Выбор листа Категория:
Работа с Microsoft Office и OpenOffice Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:Worksheet s(1).Unprotect ("1qaz");Worksheet s.Count ЦиклWorksheet s(к).UsedRange;Worksheet s(к).Name+"; "+Найдено.Address);Worksheet s(1).Cells(1, 1).Text); Категория:
Работа с Microsoft Office и OpenOffice Установка полей и масштаба документа при сохранении из 1С MS Excel
Код 1C v 8.х ПопыткаWorkSheet s.Item(1);OpenOffice Calc
Код 1C v 8.х Попытка Категория:
Работа с Microsoft Office и OpenOffice Как выгрузиться в EXCEL со сводными таблицами Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи:
Funny ):
(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)
(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:
Код 1C v 8.х Процедура ВыгрузитьТаблицуВФайл()Worksheet s(1);Worksheet s(1).Name,"наим","Дата","Наим","","К");Worksheet s(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");Worksheet s(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");Worksheet s(1).Name,"В пр","Дата","Каркас,Основа","","К");Worksheet s(1).Name,"Основа","Дата","Основа","","кг основы");Worksheet s(1).Name,"Напыление","","Напылен","","кг напылен");Worksheet s(1).Name,"Клей","","Дата","","кг клея");Код 1C v 7.x РабочаяКнига = СоздатьОбъект("Excel.Application"); Категория:
Работа с Microsoft Office и OpenOffice Группировка строк Excel В ниже указанном коде нужно убрать символ
_
Код 1C v 8.х Worksheet .Range("7:8").Rows.Group();Worksheet .Range("10:11").Rows.Group();Worksheet .Range("14:15").Rows.Group();Worksheet .Range("17:18").Rows.Group(); Worksheet .Range("6:11").Rows.Group();Worksheet .Range("13:18").Rows.Group();Worksheet .Outline.ShowLevels(1);Код 1C v 7.x Worksheet s.Count=0 ТогдаWorksheet s.Add();Worksheet s.Count>1 ЦиклWorksheet s(1).Delete();Worksheet =WorkBook.Worksheet s(1);Worksheet .Name="Пример вывода";Worksheet .Range("A1").Value="Пример вывода из 1С:Предприятия в MS Excel";Worksheet .Range("A2").Value="сегодня "+ТекущаяДата();Worksheet .Range("A1:A2").Font.Size=14;//размер шрифтаWorksheet .Range("A1:A2").Font.Bold=-1;//жирный шрифтWorksheet .Columns(1).ColumnWidth=60;Worksheet .Columns(2).ColumnWidth=15;Worksheet .Columns(3).ColumnWidth=15;Worksheet .Range("A4").Value="Первая колонка";Worksheet .Range("A4").Borders(ы).LineStyle=1;Worksheet .Range("A4").Borders(ы).Weight=-4138;//xlMediumWorksheet .Range("A4").Interior.ColorIndex=15;//заливка серымWorksheet .Range("A4").HorizontalAlignment=-4108;//выравнивание текста по центруWorksheet .Range("B4").Value="Вторая";Worksheet .Range("B4").Borders(ы).LineStyle=1;Worksheet .Range("B4").Borders(ы).Weight=-4138;Worksheet .Range("B4").Interior.ColorIndex=15;Worksheet .Range("B4").HorizontalAlignment=-4108;Worksheet .Range("C4").Value="Третья";Worksheet .Range("C4").Borders(ы).LineStyle=1;Worksheet .Range("C4").Borders(ы).Weight=-4138;Worksheet .Range("C4").Interior.ColorIndex=15;Worksheet .Range("C4").HorizontalAlignment=-4108;Worksheet .Outline.SummaryRow=0;//"итоговые" строки отображать сверху (если снизу, то 1)Worksheet .Range("A5").Value="Объект аналитики";Worksheet .Range("A5").Font.ColorIndex=5;//цвет шрифта - синийWorksheet .Range("B5").Value=123.45;Worksheet .Range("B5").Font.ColorIndex=5;Worksheet .Range("C5").Value=678.9;Worksheet .Range("C5").Font.ColorIndex=5;Worksheet .Range("A6").Value="Объект аналитики";Worksheet .Range("A6").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B6").Value=123.45;Worksheet .Range("B6").Font.ColorIndex=3;Worksheet .Range("C6").Value=678.9;Worksheet .Range("C6").Font.ColorIndex=3;Worksheet .Range("A7").Value="Объект аналитики";Worksheet .Range("B7").Value=123.45;Worksheet .Range("C7").Value=678.9;Worksheet .Range("A8").Value="Объект аналитики";Worksheet .Range("B8").Value=123.45;Worksheet .Range("C8").Value=678.9;Worksheet .Range("A9").Value="Объект аналитики";Worksheet .Range("A9").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B9").Value=123.45;Worksheet .Range("B9").Font.ColorIndex=3;Worksheet .Range("C9").Value=678.9;Worksheet .Range("C9").Font.ColorIndex=3;Worksheet .Range("A10").Value="Объект аналитики";Worksheet .Range("B10").Value=123.45;Worksheet .Range("C10").Value=678.9;Worksheet .Range("A11").Value="Объект аналитики";Worksheet .Range("B11").Value=123.45;Worksheet .Range("C11").Value=678.9;Worksheet .Range("A12").Value="Объект аналитики";Worksheet .Range("A12").Font.ColorIndex=5;//цвет шрифта - синийWorksheet .Range("B12").Value=123.45;Worksheet .Range("B12").Font.ColorIndex=5;Worksheet .Range("C12").Value=678.9;Worksheet .Range("C12").Font.ColorIndex=5;Worksheet .Range("A13").Value="Объект аналитики";Worksheet .Range("A13").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B13").Value=123.45;Worksheet .Range("B13").Font.ColorIndex=3;Worksheet .Range("C13").Value=678.9;Worksheet .Range("C13").Font.ColorIndex=3;Worksheet .Range("A14").Value="Объект аналитики";Worksheet .Range("B14").Value=123.45;Worksheet .Range("C14").Value=678.9;Worksheet .Range("A15").Value="Объект аналитики";Worksheet .Range("B15").Value=123.45;Worksheet .Range("C15").Value=678.9;Worksheet .Range("A16").Value="Объект аналитики";Worksheet .Range("A16").Font.ColorIndex=3;//цвет шрифта - красныйWorksheet .Range("B16").Value=123.45;Worksheet .Range("B16").Font.ColorIndex=3;Worksheet .Range("C16").Value=678.9;Worksheet .Range("C16").Font.ColorIndex=3;Worksheet .Range("A17").Value="Объект аналитики";Worksheet .Range("B17").Value=123.45;Worksheet .Range("C17").Value=678.9;Worksheet .Range("A18").Value="Объект аналитики";Worksheet .Range("B18").Value=123.45;Worksheet .Range("C18").Value=678.9;Worksheet .Range("A"+НомСтр).Borders(ы).LineStyle=1;Worksheet .Range("B"+НомСтр).Borders(ы).LineStyle=1;Worksheet .Range("C"+НомСтр).Borders(ы).LineStyle=1;Worksheet .Range("7:8").Rows.Group();Worksheet .Range("10:11").Rows.Group();Worksheet .Range("14:15").Rows.Group();Worksheet .Range("17:18").Rows.Group();Worksheet .Range("6:11").Rows.Group();Worksheet .Range("13:18").Rows.Group();Worksheet .Outline.ShowLevels(1);Worksheet .Range("B5:C18").NumberFormat="# ##0.00";Worksheet .Range("B5:C18").NumberFormat="# ##0,00";Worksheet .Range("A5").S_elect(); Категория:
Работа с Microsoft Office и OpenOffice Какая последняя строка или колонка в EXCEL Узнать последнюю строку можно следующими примерами:
1.
Код 1C v 8.х Сообщить(appExcel.WorkSheet s(1).UsedRange.Row);
2. метод определяет, когда закончились данные на листе:
SpecialCells(11) - "последняя" ячейка
Например, если нужен номер строки последней ячейки,
Код 1C v 8.х LastRow=ExcelApp.Cells(1,1).SpecialCells(11).Row; Для проверки нажмите в проверяемом файле ctrl+end. Посмотрите на какой строке остановится курсор.
Узнать последнюю колонку можно следующими примерами:
1.
Код 1C v 8.х Сообщить(appExcel.WorkSheet s(1).UsedRange.Columns);
2.
Код 1C v 8.х LastCol=ExcelApp.Cells(1,1).SpecialCells(11).Columns; Категория:
Работа с Microsoft Office и OpenOffice Создание закладок в excel на одном листе Код 1C v 8.х Worksheet s.Add(); Категория:
Работа с Microsoft Office и OpenOffice 
Как выгрузить Таблицу значение в файл Excel? Категория: Работа с Microsoft Office и OpenOffice