Как преобразовать цифры из 1с в эксель

Excel works!

Для меня стало небольшим открытием, что пользователи 1С не знают как быстро выгрузить из 1С в Excel почти любые данные. Недавно я столкнулся с тем, что коллеги делали снимок экрана , а потом через FineReader переводили данные в текст из картинки, потому что не работала кнопка сохранить в 1С (см. картинку). Длинный путь, не правда ли? Но есть и более удобные способы. В выгрузке из 1С нет никакой тайны, возможностей достаточно много.

Давайте разберемся по пунктам как мы можем сохранить данные из 1С в Excel:

1.Как сохранить из 1С в Excel данные ячейки?

Самый простой способ сохранить из 1С в Excel данные — это выбрать в документе или журнале одну ячейку и нажать ctrl+c (копировать), затем в Excel выделить ячейку, куда нужно сохранить данные, и нажать ctrl+v . Таким образом, вы сохраните содержание этой ячейки. Для примера, картинки — это будет 42 289,23

Этот способ действует для любой версии 1С.

2. Как выгрузить из 1С в Excel большое количество данных?

Предыдущий способ хорош, но большой объем данных так не накопируешься. Поэтому лучше пользоваться инструментом Вывести список.

Почти в любом журнале документов, справочнике или документе нажмите правой кнопкой мыши и найдите пункт Вывести список.

Для версий 8.3 и интерфейса «Такси» кнопка вывести список, есть в меню Еще

Появится список этих элементов как текст (возможно, до этого нужно будет выбрать необходимые столбцы). Этот текст уже можно скопировать в любой документ. Но я советую воспользоваться меню Файл — Сохранить как (т.к. большие объемы данных будут обрабатываться долго и не исключена ошибка при копировании в буфер).

Затем выбираем нужный формат файла.

Все, файл сохранен в нужном формате.

Этот способ так же действует для любой версии 1С.

Для версии 1с 8.2 и выше в тонком клиенте или интерфейсе Такси инструмент Файл — Сохранить как, доступен на панели в верхнем правом углу в виде дискеты

3. Как выгрузить из 1С в Excel печатные формы документов?

Печатные формы документов таких как Счет , Счет-фактура , Транспортная накладная и так далее доступны для изменения и сохранения в Excel в большинстве конфигураций.

Когда вы нажали кнопку Печать документа, у вас появится печатная форма в отдельном окне, в меню будет доступны следующие инструменты.

1 — Снимите кнопку Только просмотр, чтобы иметь возможность изменять печатную форму

2 — Сохраните документ в нужный формат, см. пункт 2

А так же содержимое печатной формы вы сможете сохранить как любые текстовые данные, как в Word’e.

Часто печатную форму или форму отчета можно сохранить простым Копировать-Вставить в Excel.

Как загрузить данные из Excel в 1C — это совсем другая история. Но скоро и ее расскажу, ждите 😉

Как данные из 1с скопировать в excel

​Смотрите также​ 1С таблицу, выделяю​ КонецЦикла; КонецЕсли; Если​ 193).Value = Документ.ПНПоказательОснования;​ предупреждение(«Длина назначения платежа​duk337​ = Новый COMОбъект​ пробел, Заменить на​The_Prist, это делал​ [МОДЕРАТОР]​После того, как все​ многоточие. Открывается выпадающий​«Файл»​ перенести прайс-листы или​ не распечатать документ,​ нажать комбинацию клавиш​ массива данных. Запускается​Не секрет, что среди​

​ таблицу, нажимаю горячие​ СтрокаТаб1.ДопКлассификация.Пустая()=Ложь тогда Разм=СтрДлина(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование));​

Выгрузка информации из 1C в Excel

​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 194).Value =​ «»»+сокрлп(СтрокаТаб.СтрокаНазначениеПлатежа)+»»» составляет «+сокрлп(стрдлина(строка(КБК1)+»\»+строка(СтрокаТаб.КОСГУНазначениеПлатежа)+»\»​: терминал?​ («Excel.Application»); Исключение Сообщить(ОписаниеОшибки()+»​ — оставляете пустым.​ и оно перестало​Catboyun​ данные внесены и​ список. В нем​и жмем на​ заказы из онлайн-магазина.​ а конвертировать его​Ctrl+S​ меню. Выбираем в​ офисных работников, в​ клавиши CTRL+C, захожу​ Н1=Найти(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),»/»); Н2=Найти(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),»;»); ДетКЭК=Сред(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),Н1+1,Разм-Н1-1);​ Документ.ПНПоказательПериода; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 195).Value​ +сокрлп(СтрокаТаб.СтрокаНазначениеПлатежа)))+» знаков в​Augusto​ Excel-файл не создан!»);​ Заменить все.​ ругатся на запятую​: приложите вместо картинок​​ настройки выполнены, можно​​ нам следует выбрать​

Способ 1: копирование содержимого ячейки

​ кнопку​ В случае, когда​ в Эксель. Легче​.​ нем пункт​

​ частности тех, которые​ в excel (2003),​ НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,ДетКЭК); Иначе НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,СтрокаТаб1.КОСГУНазначениеПлатежа.Код);​ = Документ.ПНПоказательНомера; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ строке «+СтрокаТаб.НомерСтроки+».»); КонецЕсли;​: ага​​ Возврат; КонецПопытки; Для​​К слову сказать​ но на пробел​ проблемный файл-Excel​ переходить к непосредственной​ пункт​«Сохранить как»​ списки небольшие, то​ всего в версии​​Запускается окно сохранение файла.​​«Вывести список»​

​ 1С​ Переходим в ту​.​​ и финансовой сфере,​​ ничего не происходит,​​ НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,ДетКЭК); КонецЕсли; Если(Найти(СтрокаТаб1.СтрокаНазначениеПлатежа,»книгоизд»))тогда​​ Если(Документ.Контрагент=Справочники.Контрагенты.НайтиПоКоду(«F00000001954»)) тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ по КоличествоСтрок цикл​​: тут я не​​ Цикл КопироватьФайл(«C:\Заявки2012\shablon.xls»,»D:\tsclient\Заявки2013\shablon» +n+​

​ 1С, чем Excel.​Vladimir Chebykin ,​: Это просто пример,​ справочник. Для этого​​.​​Открывается окно сохранения. В​ и вручную, но​

​8.3​ директорию, в которой​

Способ 2: вставка списка в существующую книгу Excel

​Открывается небольшое окошко вывода​ особенно популярны программы​ а через экспорт​ ДетКЭК=»212.2″; НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,ДетКЭК); КонецЕсли;​ 197).Value = «АВ»;​ Книга.Worksheets(1).Rows(25+(к*4)-3).Select(); Эксель.Application.CutCopyMode =​ силён. Проброски портов​ «.xls»); Книга =​Еще можно попробовать​ и спец вставку​ сумма 3 столбцов.​ кликаем по надписи​

​После этого обработчик автоматически​ поле​ что делать, если​это сделать, нажав​​ планируем сохранить книгу,​​ списка. Тут можно​ Excel и 1С.​ это долго​ КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 199).Value​ иначе Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 197).Value​​ 0; Эксель.Selection.Copy(); Книга.Worksheets(1).Rows(25+(к*4)+1).Select();​​ и распределение ресурсов​

​Hugo​​«Загрузить данные»​​ расставляет те поля,​

• ​«Тип файла»​​ они содержат сотни​
• ​ на кнопку​​ если место расположения​

​ произвести некоторые настройки.​ Поэтому довольно часто​Онлайн-уфа www.Online-ufa.Ru​ = НаименованиеКРОсКЭК; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ = Документ.ПНПоказательТипа; КонецЕсли;​ Эксель.ActiveSheet.Paste(); КонецЦикла; Порядок=1;​ при терминальном режиме​

​ Лист = Книга.WorkSheets(1);​​ Ctrl+V, а через​​The_Prist​: — думаю это​.​ которые программа использует​по умолчанию будет​ наименований? Для того,​«Сохранить»​ по умолчанию не​Поле​ приходится производить обмен​: Хм. сейчас попробовал​ 200).Value = Группа;​ // Раздел 5​ Для каждого СтрокаТаб1​

​ — это подождём,​ КонецЦикла;Только чтобы шла​ специальную вставку.​​: Я дал наводку,​​ вопрос к серверу​

​ отметить, что совсем​

Способ 3: создание новой книги Excel со списком

​. Меняем его на​ некоторым дополнительным возможностям.​ используем сочетание горячих​по умолчанию указано​

​Табличный документ​ сожалению, далеко не​ и вставляется.​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 200).Value =​ из НаборЗаписей Цикл​ СуммаНДС1=»0″; Иначе ЗначениеСтавкиНДС​ как-то распределяйте учётки​ копируется, а если​1. Выделить диапазон​ целой и дробной​ и в виде​ номенклатуры и убедиться,​ не обязательно заполнять​«Книга Excel 97-2003»​Для автоматической загрузки подойдут​​ клавиш​​ значение​​;​​ все пользователи знают,​

​А сама таблица,​ Группа; КонецЕсли; к=к+1;​​ Если Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляАвтономных тогда​​ = УчетНДС.ПолучитьСтавкуНДС(Документ.СтавкаНДС); СуммаНДС​ при входе через​ есть, то копируется​ с вставленными данными,​ части и сменили​ чисел, как например​ что все нужные​ все поля.​​и жмем на​​ практически все типы​Ctrl+S​«Табличный документ (*.mxl)»​

​Текстовый документ​ как быстро это​ которую вы копируете,​ КонецЕсли; //Для ВКР​​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 198).Value =​​ = СтрокаТаб1.Сумма*ЗначениеСтавкиНДС/(100+ЗначениеСтавкиНДС); СуммаНДС1=Формат(СуммаНДС,»ЧЦ=15;​

​ представляет?​ НаборЗаписей.Отбор.Учреждение.Установить(Документ.Учреждение); НаборЗаписей.Прочитать(); Для​

Способ 4: копирование диапазона из списка 1С в Excel

​ КонецЕсли; Если Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляБюджетных​ Раздел 1 (когда​ в разделе. ​ это в моем​ поле Что заменить​А «Разделитель групп​ и с нужными​Как поменять столбцы местами​

​ наименование его колонок​.​Список контрагентов;​ в виде перевернутого​​ выпадающего списка выбираем​​ вариант. Для переноса​ из 1С в​Это табличная часть​ каждого Запись из​ тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 198).Value​​ будет 5 строк​​Fenomen​ случае запейсать​​ вставить СКОПИРОВАННЫЙ ИЗ​​ разрядов» кто будет​

Способ 5: Сохранение документов в формате Excel

​ в моем коде?​:​ (там не простой​Скорее всего там​: Раньше все ок​ данных в справочник​ которые содержат соответствующие,​ формате.​Информация о покупках или​ переходим по пунктам​или​ и подходит, так​ Excel​ этого документа сформированная​ НаименованиеКРОСКЭК=»\0702\775\5200900\611\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»; КонецЕсли; КонецЦикла;​ Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляКазенных тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ 1).Value = СтрокаТаб1.Примечание;​Augusto​

​Augusto​ пробел), в поле​ стоит запятая, а​ было, на сервере​ номенклатуры в программе​ то нужно переименовать​Кроме этих универсальных действий​ продажах и т.д.​«Файл»​«Лист Excel 2007 —​ что тут мы​

​Сразу нужно отметить, что​и​ … (*.xlsx)»​​ ничего не меняем.​​ Excel в 1С​ 2)?​ = НаименованиеКРОсКЭК; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ бюджета»; КонецЕсли; КонецЦикла;​ Порядок=Порядок+1; КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ вашем, а в​​ файлы в «D:\tsclient\Заявки2013\»,​​ — оставить пустым.​​Allev​​ а у пользователей​

​ названия полностью совпадали.​ нужно будет ещё​ встроенных инструментов, которые​.​ можно выбрать совсем​«Выводить колонки»​ сложная процедура, автоматизировать​

​ г. Уфа​ Если(Найти(Документ.Учреждение.Наименование,»ЦБ МУ»))или(Найти(Документ.Учреждение.Наименование,»ХЭК»))или(Найти(Документ.Учреждение.Наименование,»Логопеды»))или(Найти(Документ.Учреждение.Наименование,»Аппарат»)) тогда​ позстр1=0 по КБК11.Количество()-1​ 1.2 Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 25).Value​ она предлагает открыть​ временных файлов 1С?​2. Где-то в​ такая же проблема:​ вот такая появилась​ проводиться по тому​ Если в таблице​ привести документ в​ позволяли бы переносить​Открывается окно сохранение документа.​ старые форматы –​можно указать, какие​ которую можно только​Автоматизация предприятий на​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 199).Value =​ Цикл КБК12=КБК11.Получить(позстр1); СводныеРасходы=»»;​ = 643; //​ выгруженный документ. Но​Augusto​ ячейке в сторонке​ 1С на удаленном​и на самом​ же принципу, но​ имеются столбцы, для​ соответствие с требованиями​

​ данные из Эксель.​

Загрузка данных из книги Excel в программу 1С

​ Как и в​«Лист Excel 95»​ колонки из списка​ с помощью сторонних​ базе программ 1С​ НаименованиеКРОсКЭК; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 200).Value​ КЭК=»»; Если сред(сокрлп(КБК12),23,3)=»888″​ 1.3 Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 43).Value​ главное не в​: Я не знаю,​ ввести 1. Скопировать​ рабочем столе, пытаюсь​ сервере все ж​ с некоторыми нюансами,​ которых в справочнике​ конкретного загрузчика, который​ Для этих целей​ предыдущих способах, в​или​ вы хотите перевести​ решений, то обратный​ с 1995 г.​ = Группа; КонецЕсли;​ тогда СводныеРасходы=»888″; КЭК=»КЭК»;​ = 0; Если​ этом, а в​ программист, который это​

​ ячейку. Выделить диапазон​ копировать из сформированного​

Перенос данных из Эксель в 1С

​ работает, может чтото​ с которыми пользователь​ нет аналогов, то​ мы будем использовать,​ нужно подключить внешний​ нем нужно указать​«Лист Excel 97»​ в Excel. Если​ процесс, а именно​[ссылка заблокирована по​ к=к+1; КонецЕсли; КонецЦикла;​ Конецесли; Если сред(сокрлп(КБК12),23,3)=»241″​ Документ.ПризнакАвансовогоПлатежа=Истина тогда Аванс=»да»​ том, что через​ писал, уволился. Мне​ с вставленными данными.​ списка в 1С​ в виндовс я​ сможет разобраться самостоятельно.​ их следует удалить.​ но об этом​ загрузчик, который представляет​ место расположения сохраняемого​. После того, как​

​ вы собираетесь производить​ выгрузка из 1С​ решению администрации проекта]​

• ​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 203).Value =​
• ​ тогда СводныеРасходы=»»; КЭК=»241″;​
• ​ Иначе Аванс=»нет»; КонецЕсли;​
• ​ временный файл при​
• ​ теперь только переделать​ Правой клавишей мыши​

​ в Excel и​ думаю, но незнаю​ Также нужно заметить,​ В нашем случае​ мы поговорим чуть​ собой файл в​ файла. В поле​ настройки сохранения произведены,​ перенос всех данных,​ в Эксель –​​http://vk.com/online_ufa​​ СтрокаТаб1.СуммаВал; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 204).Value​

Подготовка данных

​ Конецесли;; Если сред(сокрлп(КБК12),23,3)=»КЭК»​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 67).Value =​ выгрузке 2 и​

​ надо, чтоб при​ клац — специальная​ цифры копируются с​ что​ что у различных​ такими столбцами являются​ ниже.​ формате​«Тип файла»​ жмем на кнопку​ то эту настройку​ это сравнительно простой​セルゲイチェルノフ​ = 0; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​

​ сначала обработчик загружает​ что порядок расстановки​​ можно, как до​​ таблице Excel.​ поле​​Бывают случаи, когда нужно​​ или нескольких столбцов,​​ причем сделать это​​ выясняйте в каком​ НаборЗаписейРегистра.Прочитать(); НоваяСтрока=НаборЗаписейРегистра.Добавить(); НоваяСтрока.Документ=Документ.Ссылка;​​ РазделПодраздел =сред(сокрлп(КБК12),2,4); //​​ = сокрлп(СтрокаТаб1.СтрокаНазначениеПлатежа);//сокрлп(Документ.ППНазначениеПлатежа); КолДокОсн=Документ.РеквизитыДокументаОснования.Количество();​

​Dethmontt​ («Excel.Application»); Исключение Сообщить(ОписаниеОшибки()+»​Bema​

​ проблем и все​ все будет работать.​ из файла информацию​ столбцов в документе​ подготовки файла Эксель,​Любой список, загружаемый в​«Имя файла»​ перенести не весь​ то снимаем галочку​ можно несколькими способами,​ виде у неё​

Подключение внешнего загрузчика

​ ТекПользователь=СокрЛП(ПользователиИнформационнойБазы.ТекущийПользователь().Имя); НоваяСтрока.Исполнитель=ТекПользователь; НоваяСтрока.Получатель=Документ.Контрагент;​ 0702 ЦелеваяСтатья =сред(сокрлп(КБК12),11,3);​​ // Раздел 2​​duk337​ Excel-файл не создан!»);​: А если не​ копируется корректно. И​dimon93​ в окно, где​ должен строго совпадать​ так и после.​ 1С, должен быть​

​. После выполнения всех​ список, а только​ с соответствующих элементов.​ в зависимости от​ хранятся данные и​ НоваяСтрока.Учреждение=Документ.Учреждение; НоваяСтрока.Сумма=Документ.СуммаДокумента; НоваяСтрока.дата=ТекущаяДата();​ // 421 Программа​​ кол1 = Документ.РасшифровкаПлатежа.Количество();​: долбяк в одну​​ Возврат; КонецПопытки; Для​ копировать, а сохранять​

​ у коллег в​: Я понимаю что​​ производится её редактирование,​​ с тем, который​ Главное, чтобы к​ однородно структурирован. Нельзя​ настроек жмем на​​ отдельные строки или​​После того, как настройки​ того, что именно​ совметим ли этот​ //НаборЗаписейРегистра.Записать(); ОбщаяСумма=ОбщаяСумма+Документ.СуммаДокумента; КонецЕсли;​ =сред(сокрлп(КБК12),14,2); // 99​ кол2 = Документ.РеквизитыДокументаОснования.Количество();​ учётку. а то​ n=0 по 200​ какой-то документ в​ офисе с этой​ у пользователя нужно​ а уже потом​ представлен в обработке.​ началу процесса выполнения​​ выполнять загрузку при​​ кнопку​​ диапазон данных. Этот​​ завершены, жмем на​

Загрузка данных

​ изменить но что?​ она добавляется непосредственно​ Если для некоторых​ загрузки оба этих​ наличии в одном​«Сохранить»​ вариант тоже вполне​ кнопку​ Рассмотрим, как это​ что понимает Excel.​

​ стр1=26; стр=26+КолСтр*4+3*(КолД-1); Пока​ ВидРасходов =сред(сокрлп(КБК12),19,3); //​ стр=СтрокаТаб1.НомерСтроки; Для к​ я наткнулся на​ Новый Файл(«D:\tsclient\Заявки2013\shablon» +n+​​ поможет?​​ копируется корректно! Проблема​Catboyun​​ в базу данных​​ столбцов, которые отображены​ подготовительных момента были​ столбце или ячейке​.​ воплотим с помощью​«OK​ выполнить на конкретных​Вячеслав​ стр<>26+КолСтр*4 Цикл если(СокрЛП(Лист.Cells(стр1,1).Value)<>»»)тогда​​ 611 КБК=ГлаваПоБК+РазделПодраздел+ЦелеваяСтатья+Программа+Подпрограмма+ВидРасходов; Размер=стрдлина(сокрлп(КБК12));​​ = 4*стр-3 по​ регистрацию в базе​ «.xls»); Если Файл.Существует()​OSIP_PRODUCT​ только у меня​: =СУММПРОИЗВ(—ПОДСТАВИТЬ(0&C2:E2;СИМВОЛ(160);))​​ 1С.​​ в загрузчике, у​

​ считать, вот Вы​: Если речь про​ можно оставлять пустыми,​​ 1С, которые созданы​​ номер. В этом​ открывать в данной​ Для этого зажимаем​ виде. Если вы​.​ office 2007.​ стр=стр-3; КонецЕсли; КонецЦикла;​

​ создаётся и удалется.​​: так в любом​ , ctr+c ,​

​ Где еще можно​ но если я​ задайте имя файла​ быстроты редактирования можно​«Загрузка данных из табличного​Не допускается наличия объединенных​ из 1С в​ тем строкам, которые​ все данные курсором​ методом копирования.​ в экселе ctrl+v​ м, копейка, копейки,​ тогда // бюджет​ документов-основания нет, то​ Но вообще-то в​ случае создается 200​ вставил в ексель​ посмотреть?​ копирую опять значения​ и выберите тип​ применять специальную возможность​ документа»​ ячеек даже в​ формат Excel не​ нужно перенести. Жмем​

​ с зажатой левой​

Как с 1с скопировать прайс товаров в формате excel и word?ответьте специалисты в Excel?

​Выделяем ячейку в 1С,​​Rust​ копеек, ж, 2″));​ НаименованиеКРО=лев(сокрлп(КБК12),Размер-10); // без​ добавьте пустую строку,​ разделе кто-то пейсал,​ файлов​ ctr+v.​TheBestOfTheBest​

​ из с1 и​​ — формат Excel​ Эксель для быстрого​

​для версии 1С​​ заголовках. Это может​ составляет никаких сложностей.​ на кнопку​ кнопкой мыши, потом​
​ содержимое которой нужно​: Да, план счетов​
​ Лист.Cells(25+((КолСтр)*4)+1+7, 201).Value =​ Группы и ИФО​

​ |учтите, что порядок​​ как каждый сеанс​Volexovich​Сейчас спасает замены​: Просто у Вашего​ вставляю в таблицу​Энцефалитный кролик​ перемещения колонок местами.​ 8.3.​

Из 1с в excel

​ привести к некорректным​​ Нужно знать только​«Все действия»​ кликните по выделению​ скопировать. Кликаем по​ можно легко сохранить​ Формат(Документ.Дата, «ДФ=»'»»»дд»»»» ММММ​ Конецесли; Если СтрДлина(Группа)=8​ следования документов-основания должен​ загнать в свою​: Конечно создается, так​ пробела через НАЙТИ​ сервере формат чисел​ перестает роботать​: в конфигураторе возьми​После того, как данные​После того, как файл​ результатам при переносе​ алгоритм действий, так​. В появившемся меню​ правой кнопкой мышки​ ней правой кнопкой​ из 1С в​ гггг'»)+» г»; //​ тогда // бюджет​ быть таким же​ учетную запись. Тут​ вы после копирования​ И ЗАМЕНИТЬ.​ другой, нежели чем​
​проблема иммено у​ и сделай экспорт​ действия произведены, жмем​
​ в формате​ данных. Поэтому, если​ как, к сожалению,​ выбираем пункт​ и в открывшемся​
​ мыши. В контекстном​ Excel.​ Шапка Лист.Cells( 6,​ НаименованиеКРО=лев(сокрлп(КБК12),Размер-11); // без​ как порядок расшифровок.»);​ ведь и параметры,​
​ файла и его​Bema​ на домашнем компе.​

​ меня на ПК​​1Ламер​ на значок​

​epf​​ объединенные ячейки имеются,​ не для всех​

​«Вывести список…»​​ меню выберите пункт​ меню выбираем пункт​В типовой конфигурации​ 1).Value ;​ Конецесли; Если СтрДлина(Группа)=2​ КонецПопытки; Если СтрокаТаб2.НомерСтроки=4*стр-3​

​ много всякого. ​​ Прервать;​ предположил. В 1С​ удаленке может менять​: да скорой всего​ нет функции экспорта​

​, который представлен в​​ на жестком диске​Если исходную таблицу сделать​ понятен. С помощью​

​Запускается окошко вывода списка.​​. Можно так же,​

​. Можно воспользоваться также​​ решению администрации проекта]​ Лист.Cells( 6, 81).Value​ тогда // внебюджет​ тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 176).Value​Dethmontt​Dethmontt​ давно не работал​ только админ (АДмин).​ нет,​ в эксель и​ виде пиктограммы, изображающей​
​ компьютера, запускаем программу​ максимально простой и​

​ встроенных инструментов 1С​​ Настройки в нем​ как и в​
​ универсальным способом, который​
​ редакции 3.0 нажмите​ = сокрлп(Документ.Номер); Лист.Cells(​
​ НаименованиеКРО=лев(сокрлп(КБК12),Размер-5); // без​ = СтрокаТаб2.ДокументОснованиеВид; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​:​: Ужасная система. ​

​ и проверить не​​Allev​нажмите F9,​ в ворд?​ дискету в верхнем​ 1С. Если файл​ понятной, без применения​ и Эксель можно​

​ производим так же,​​ предыдущем способе использовать​ действует в большинстве​ пункт меню «Справочники​
​ 7, 61).Value =​ Группы и ИФО​ 177).Value = СтрокаТаб2.ДокументОснованиеНомер;​Augusto​
​1C Попытка Эксель​ на чем.​: Но у моих​если это не​еси нет, скопируй​ левом углу окна.​epf​

​ относительно сложных технологий​​ копировать содержимое ячеек,​ как и в​ сочетание горячих клавиш​ программ, работающих на​ и настройки учета»,​ «от «+Формат(ДатаЗаявки, «ДФ=»'»»»дд»»»»​

​ Конецесли; ИФО=прав(сокрлп(КБК12),1); //​​ Если СтрокаТаб2.ДокументОснованиеДата <>​, если бы вы​ = Новый COMОбъект​Augusto​ коллег за соседними​ поможет,​

​ стр и вставь​​ Затем закрываем файл,​упакован в архив,​ (макросы, формулы, комментарии,​ списков и диапазонов​ предыдущих двух способах.​Ctrl+С​ ОС Windows: просто​ в меню слева​ ММММ гггг'»)+» года»;​ 1,2,3 КРО=сред(сокрлп(КБК12),23,Размер-(23+10-1)); Если(сокрлп(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=СокрЛП(КБК))​ Дата(«00010101») тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ показали код целиком,​

​ («Excel.Application»); Исключение Сообщить(ОписаниеОшибки()+»​​: Есть файл эксель​ столами в офисе​
​то тогда не​Контрал С —​ нажав на стандартную​ то его предварительно​ сноски, лишние элементы​
​ из первого приложения​ Единственный нюанс состоит​.​

​ выделяем содержимое ячейки​​ в разделе «Настройки​ Лист.Cells( 7,161).Value =​ тогда Если (сокрлп(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=СокрЛП(КБК))​ 178).Value = СтрокаТаб2.ДокументОснованиеДата;​ а не отдельно​ Excel-файл не создан!»);​ shablon.xls. С его​​ все хорошо с​ знаю, по вашему​ Контрал V​​ кнопку закрытия.​ нужно извлечь оттуда.​ форматирования и т.д.),​

​ во второе, а​​ в том, что​Открываем лист Microsoft Excel​ и набираем комбинацию​ учета» нажмите «План​ Формат(ДатаЗаявки,»ДЛФ=Д»); Лист.Cells( 9,​ и (прав(Документ.Баланс.Код,1)=ИФО) и​ КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 179).Value​ выдернутый контекст. То​ Возврат; КонецПопытки; n=0;​ помощью обработкой пользователи​ той же удаленкой​ файлу неразрывные пробелы​Рыбак​Возвращаемся в окно обработки​ На верхней горизонтальной​ то это поможет​ также сохранять списки​ нужно установить галочку​ и выделяем верхнюю​ клавиш на клавиатуре​ счетов бухгалтерского учета».​ 26).Value =СокрЛП(УчреждениеПодбора.НаименованиеПолное); ЛС=прав(сокрлп(Документ.ЛицевойСчет.Код),9);​ (сокрлп(СтрокаТаб1.КОСГУНазначениеПлатежа.Код)<>»241″) и (СводныеРасходы=»888″)​ = СтрокаТаб2.ДокументОснованиеПредмет; КонецЕсли;​ решение от​ Пока Истина Цикл​ грузят доки в​ и тем же​ (похоже на 1С)​

​: Лена, но это​​ 1С. Жмем на​ панели приложения жмем​ максимально предотвратить проблемы​ и документы в​ около параметра​ левую ячейку диапазона,​Ctrl+C​

​ В панели инструментов​​ Лист.Cells( 9,161).Value =​ тогда НаименованиеКРОсКЭК=НаименованиеКРО; Если​ Если СтрокаТаб2.НомерСтроки=4*стр-2 тогда​Fenomen​ n=n+1; Файл =​ эксель​ сервером. У них​dimon93​ самое примитивное действие.​ кнопку​ на кнопку, запускающую​

Вставка данных из 1C После обновления Excel

​ на дальнейших шагах​​ отдельные книги. Вариантов​
​«Только выделенные»​ в который будут​.​ открывшегося справа окна​ лев(сокрлп(ЛС),8); Лист.Cells(10,161).Value =​ СтрокаТаб1.ДопКлассификация.Пустая()=Ложь тогда Разм=СтрДлина(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование));​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-2, 176).Value =​можно было бы​ Новый Файл(«D:\tsclient\Заявки2013\shablon» +n+​
​1C КопироватьФайл(«C:\Заявки\shablon.xls»,»D:\tsclient\Заявки\shablon1.xls»); Книга​ никаких проблем с​: F9 ничего не​ Открываете или формируете​«Открыть»​ меню. В версии​ переноса.​ сохранения достаточно много​. После этого жмем​ вставляться данные. Затем​
​Открываем чистый лист Excel​ с планом счетов​ сокрлп(Документ.ЛицевойСчет.Код); СПР=Справочники.Организации.НайтиПоКоду(«903″); Лист.Cells(13,​ Н1=Найти(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),»/»); Н2=Найти(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),»;»); ДетКЭК=Сред(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),Н1+1,Разм-Н1-1);​ СтрокаТаб2.ДокументОснованиеВид; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-2, 177).Value​ подогнать и под​ «.xls»); Если НЕ​ = Эксель.WorkBooks.Open(«D:\tsclient\Заявки2013\shablon1.xls»); Затем​ копированием нет. Глюки​ дало, провел еще​ прайс и сохранить​, которая изображена в​
​ 1С 8.3 она​Обязательно следует привести наименование​ и для того,​ на кнопку​ жмем на кнопку​ или документ, куда​

​ найдите кнопку «Печать»,​​ 26).Value = СокрЛП(СПР.НаименованиеПолное);​

​ НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,ДетКЭК); Иначе НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,СтрокаТаб1.КОСГУНазначениеПлатежа.Код);​​ = СтрокаТаб2.ДокументОснованиеНомер; Если​ вашу задачу избежав​ Файл.Существует() Тогда КопироватьФайл(«C:\Заявки2012\shablon.xls»,»D:\tsclient\Заявки2013\shablon»​ идет работа с​ только у моего​ одну проверку, подключился​ как. Выбираете Ехсель​ виде папки желтого​ представлена в виде​
​ всех величин к​ чтобы пользователь мог​«OK»​
​«Вставить»​ нужно вставить содержимое.​ в выпадающем меню​ Лист.Cells(15, 27).Value =​

​ Если(Найти(СтрокаТаб1.СтрокаНазначениеПлатежа,»до 3лет»))тогда ДетКЭК=»212.3″;​​ СтрокаТаб2.ДокументОснованиеДата <> Дата(«00010101»)​
​ бреда с копированием​ +n+ «.xls»); Книга​ файлом shablon1.​ компа.​ из дома к​ и путь. Иногда,​ цвета.​ вписанного в оранжевую​ единому формату. Не​ найти подходящий именно​.​на ленте во​
​ Кликаем правой кнопкой​ выберете вариант выведения​ «Финансовое управление администрации​ НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,ДетКЭК); КонецЕсли; Если(Найти(СтрокаТаб1.СтрокаНазначениеПлатежа,»книгоизд»))тогда​ тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-2, 178).Value​ кучи файлов. ​ = Эксель.WorkBooks.Open(«D:\tsclient\Заявки2013\shablon» +n+​Но есть загвоздка:​OSIP_PRODUCT​ серверу и скопировал​ если восьмерка надо​Запускается окно открытия файла.​

​ окружность треугольника, перевернутого​​ допускается наличие обозначения,​ для его ситуации,​Как видим, список, состоящий​ вкладке​ мыши и в​

​ «Простой список» или​​ городского округа г.Стерлитамак​ ДетКЭК=»212.2″; НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»КЭК»,ДетКЭК); КонецЕсли;​ = СтрокаТаб2.ДокументОснованиеДата; КонецЕсли;​P.S. вообще шаблоны​ «.xls»); Лист =​ Если один пользователь​: Форумчане ,добрый день.​ из 1с в​ подключить таблицу.​ Переходим в директорию,​
​ углом вниз. В​ например, килограмм, отображаемого​ совсем не нужно​

​ исключительно из выделенных​​«Главная»​ появившемся контекстном меню​ «С подробным описанием».​ Республики Башкортостан»; Лист.Cells(20,​ КонецЕсли; ////Для ВКР​

Копирование файла эксель

​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-2, 179).Value =​​ можно помещать в​ Книга.WorkSheets(1); Прервать; КонецЕсли;​ начал выгрузку, то​Столкнулся с такой​ excel все посчитало.​
​dimon93​ где расположен документ​ появившемся списке последовательно​ разными записями:​
​ прибегать к использованию​ строк, выведен. Дальше​или набираем сочетание​ в параметрах вставки​ Сформируется табличная форма​ 23).Value = «руб»;​ Если(((СокрЛП(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=»77507025200900621″)или(СокрЛП(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=»77507025200900611″))и(СтрокаТаб1.КБКНазначениеПлатежа.ВидКБК=Перечисления.ВидыКБК.Произвольный)) тогда НаборЗаписей=РегистрыСведений.УчетнаяПолитикаУчреждений.СоздатьНаборЗаписей();​ СтрокаТаб2.ДокументОснованиеПредмет; КонецЕсли; Если​ макеты и копировать​ Если n>500 Тогда​ файл, скопированный из​ проблемой : Раньше​TheBestOfTheBest​: Есть сервер под​ Эксель, который нам​ переходим по пунктам​«кг»​ стороннего программного обеспечения​ нам нужно будет​

​ клавиш​​ выбираем пункт​ плана счетов. Теперь​ // Подвал Если​ НаборЗаписей.Отбор.Учреждение.Установить(Документ.Учреждение); НаборЗаписей.Прочитать(); Для​ СтрокаТаб2.НомерСтроки=4*стр-1 тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-1,​ ничего не надо. ​ Прервать; КонецЕсли; КонецЦикла;​ shablon блокируется и​ был старый рабочий​
​: Видимо это действие​
​ управлением windows server​ нужен. Переключатель отображения​«Файл»​,​ или применять сложные​

​ выполнить точно такие​​Ctrl+V​«Сохранить только текст»​

​ эту табличку можно​​ Документ.ПерваяПодписьПечататьДолжность=Истина тогда Лист.Cells(25+((КолСтр)*4)+1+2,​ каждого Запись из​ 176).Value = СтрокаТаб2.ДокументОснованиеВид;​И вообще не​Fenomen​ у другого пользователя​ компьютер на котором​ и вызывает сбой,​
​ 2012 r2 standard​ файлов по умолчанию​и​«килограмм»​ комбинации действий.​ же действия как​.​, который изображен в​ или распечатать на​ 203).Value =ПерваяПодписьДолжность; КонецЕсли;​ НаборЗаписей Цикл Если(Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляАвтономных)​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-1, 177).Value =​ понятно зачем каждому​: Нафига, вся эта​ выскакивает ошибка, эксель​ стояла Excel 2010.​ ячейки становятся строками.​ на нем установлен​ установлен для расширения​

​«Открыть»​​,​​Автор: Максим Тютюшев​​ в​Список вставлен в документ.​ форме пиктограммы в​ принтер или сохранить​

​ Лист.Cells(25+((КолСтр)*4)+1+2, 205).Value =​​ тогда НаименованиеКРОСКЭК=»\0702\775\5200900\621\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»; иначе​ СтрокаТаб2.ДокументОснованиеНомер; Если СтрокаТаб2.ДокументОснованиеДата​ пользователю копировать один​ лабуда.​ повисает в процессах,​ Часто копировал данные​Если из 1С​

​ microsoft office 2010.​​mxl​.​«кг.»​Уже давно самой популярной​Способе 2​Также список из программы​ виде большой буквы​ в Excel. Для​ ПерваяПодпись; Если Документ.ВтораяПодписьПечататьДолжность=Истина​ НаименованиеКРОСКЭК=»\0702\775\5200900\611\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»; КонецЕсли; КонецЦикла;​ <> Дата(«00010101») тогда​ тот же файл?​1C ИмяВременногоФайла =​ приходится снимать процесс​ из 1С в​

​ выгружать не копированием,​​ Если в 1с​. Для того чтобы​Запускается окно открытия файла.​

​. Программа будет их​​ программой среди бухгалтеров,​или в​ 1С можно сразу​«А»​ сохранения в правом​

​ тогда Лист.Cells(25+((КолСтр)*4)+2+2+2, 203).Value​​ КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 199).Value​
​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-1, 178).Value =​Не по теме:​ ПолучитьИмяВременногоФайла(«.xls») КопироватьФайл(«C:\Заявки2012\shablon.xls»,ИмяВременногоФайла); Книга​ через диспетчер. Пользователей​ эксел для обработки​ а сохранять в​ сформировать отчет например:​ показать нужный нам​ Переходим в директорию​ понимать как разные​ планировщиков, экономистов и​Способе 3​ вывести в новый​.​ верхнем углу нажмите​ = ВтораяПодписьДолжность; КонецЕсли;​

​ = НаименованиеКРОсКЭК; Если(Найти(Документ.Учреждение.Наименование,»ЦБ​​ СтрокаТаб2.ДокументОснованиеДата; КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-1,​Много места на жестких​
​ = Эксель.WorkBooks.Open(ИмяВременногоФайла);​ порядка 60, так​ информации.​

​ файл, ошибка остается?​​ остаток на складе​
​ файл, его требуется​ его расположения, выделяем​ величины, поэтому нужно​ управленцев стало приложение​, в зависимости от​ файл Эксель.​Вместо этого действия можно​ кнопку со стрелкой​ Лист.Cells(25+((КолСтр)*4)+2+2+2, 205).Value =ВтораяПодпись;​ МУ»))или(Найти(Документ.Учреждение.Наименование,»ХЭК»))или(Найти(Документ.Учреждение.Наименование,»Логопеды»))или(Найти(Документ.Учреждение.Наименование,»Аппарат»)) тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ 179).Value = СтрокаТаб2.ДокументОснованиеПредмет;​ дисках? Подарите мне​Augusto​ что это ужасно​Сейчас обновили компьютер,​В файле с​ (там будет 3​ переставить в позицию​
​ тот объект и​ выбрать один вариант​ 1C. Оно имеет​ того, собираемся мы​Выполняем все те шаги,​ после выделения ячейки,​ вниз (всплывающая подсказка​
​ НомерДок2=прав(«000″+строка(число(Документ.Номер)-1),3); НомерДокСтр=прав(«00000″+сокрлп(строка(Документ.Номер)),5); ДатаСтр=строка(Формат(Документ.Дата,»ДДММГГГГ»));​ 199).Value =НаименованиеКРОсКЭК; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ КонецЕсли; Если СтрокаТаб2.НомерСтроки=4*стр​
​ лишние!​: Спасибо!​
​ муторно. Как можно​
​ установили Эксель 2013.​ сервера тип ячеек​
​ столбца: приход, списание,​
​«Лист Excel»​ жмем на кнопку​

​ записи, а остальные​​ не только разнообразное​

​ добавлять список к​​ которые были указаны​

​ находясь во вкладке​​ «Главное меню»), в​ ДатаСтр=стрзаменить(ДатаСтр,».»,»»); ДатаС=Лев(ДатаСтр,8); Книга.Save();​ 200).Value = Группа;​ тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-0, 176).Value​Augusto​1C Попытка Эксель​ переделать так, чтобы​ Теперь при копировании​ — числовой, а​ остаток) выделить ее,​. После этого выделяем​«Открыть»​

​ исправить под этот​​ количество конфигураций для​ уже имеющейся книге​

​ в предыдущем способе​​«Главная»​ выпадающем меню выберете​ Книга.Close(); НаборЗаписей=РегистрыСведений.УчетнаяПолитикаУчреждений.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Учреждение.Установить(Документ.Учреждение);​ иначе Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 199).Value​ = СтрокаТаб2.ДокументОснованиеВид; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-0,​: Ну вообще вот​ = Новый COMОбъект​ обработка смотрела, есть​ данных (цифр) в​ в проблемном файле​ скопировать и вставить​ переносимый документ и​.​ шаблон.​ различных видов деятельности,​​ Excel или создавать​

​ до формирования списка​​, щелкнуть по значку​ «Файл» > «Сохранить​ НаборЗаписей.Прочитать(); Для каждого​ = НаименованиеКРОсКЭК; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ 177).Value = СтрокаТаб2.ДокументОснованиеНомер;​ весь код процедуры​ («Excel.Application»); Исключение Сообщить(ОписаниеОшибки()+»​ ли файл shablon1,​ эксель — цифры​ — общий, который​ в таблицу excel​ жмем на кнопку​После этого загрузчик запустится​Обязательно наличие уникальных идентификаторов.​ но и локализации​ новый документ.​ в 1С в​«Вставить»​ как», задаете имя​ Запись из НаборЗаписей​ 200).Value = Группа;​

​ Если СтрокаТаб2.ДокументОснованиеДата <>​​1C Процедура КнопкаВыполнитьНажатие(Кнопка)​​ Excel-файл не создан!»);​​ и если да,​ отражаются с пробелом​ эксель преобразует в​ 2010 (который на​«Открыть»​​ в 1С.​​ В их роли​ под стандарты учета​В Excel иногда нужно​ табличном варианте включительно.​, который расположен на​
​ файлу, выбираете формат​ Цикл Если Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляАвтономных​ КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 200).Value​ Дата(«00010101») тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-0,​
​ Попытка Эксель =​ Возврат; КонецПопытки; n=0;​ то создавался файл​ и соответственно если​

​ сервере) можно без​.​Одной из основных баз​

​ может выступать содержимое​​ в нескольких странах​ сохранять не только​
​ После этого жмем​ ленте в блоке​ сохранения (xls) и​ тогда ИмяФайла= лев(сокрлп(прав(сокрлп(Документ.ЛицевойСчет.Код),9)),7)+»_21_»+СокрЛП(Число(Документ.Номер))+»(30)_»+ДатаС+».xls»;​ = Группа; к=к+1;​ 178).Value = СтрокаТаб2.ДокументОснованиеДата;​ Новый COMОбъект («Excel.Application»);​ Пока Истина Цикл​ shablon2, shablon3 . shablonN?​ копируется столбец, то​dimon93​ проблем работать с​После этого содержимое открывается​ данных, с которыми​ любого столбца, которое​ мира. Все больше​ списки, но и​ на кнопку вызова​«Буфер обмена»​ куда сохранить. Жмите​ КонецЕсли; Если Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляБюджетных​ Конецесли; Если (сокрлп(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=СокрЛп(КБК))и​ КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-0, 179).Value​ Исключение Сообщить(ОписаниеОшибки()+» Excel-файл​ n=n+1; Файл =​Volexovich​ ексель не может​: Если не копировать,​ числовыми значениями (к​ в обработчике. Чтобы​ работает 1C, является​ не повторяется в​ предприятий переходят на​ созданные в 1С​ меню, которая расположена​.​ кнопку «Сохранить» -​ тогда ИмяФайла= лев(сокрлп(прав(сокрлп(Документ.ЛицевойСчет.Код),9)),7)+»_21_»+СокрЛП(Число(Документ.Номер))+»(20)_»+ДатаС+».xls»;​ (прав(Документ.Баланс.Код,1)=ИФО) и (сокрлп(СтрокаТаб1.КОСГУНазначениеПлатежа.Код)=»241″)​ = СтрокаТаб2.ДокументОснованиеПредмет; КонецЕсли;​ не создан!»); Возврат;​ Новый Файл(«D:\tsclient\Заявки2013\shablon» +n+​: 1C n -​ посчитать сумму.​ а сохранять в​ примеру посчитать расход​ проверить корректность заполнения​ список номенклатуры товаров​ других строках: индивидуальный​ ведение учета именно​ документы (счета, накладные​ в верхней части​Также можно воспользоваться универсальным​ всё готово )))​ КонецЕсли; Если Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляКазенных​ и (СводныеРасходы<>»888″) тогда​ КонецЦикла; КонецЕсли; //​ КонецПопытки; n =​ «.xls»); Если НЕ​ номер копии; Файл=​К примеру :​ файл, ошибки нет,​ — приход минус​ данными, жмем на​ и услуг. Поэтому​ налоговый номер, артикул​ в этой программе.​ платежные поручения и​ окна в виде​ способом и набрать​Очень срочно нужно это​ тогда ИмяФайла= лев(сокрлп(прав(сокрлп(Документ.ЛицевойСчет.Код),9)),7)+»_11_»+СокрЛП(Число(Документ.Номер))+»_»+ДатаС+».xls»;​ НаименованиеКРОсКЭК=НаименованиеКРО; ////Для ВКР​ Раздел 3 Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ 0; Пока Истина​ Файл.Существует() Тогда КопироватьФайл(«C:\Заявки2012\shablon.xls»,»D:\tsclient\Заявки2013\shablon»​ Новый Файл(«C:\Заявки\shablon» +​ раньше при копировании​ но пользователям нужно​ остаток), а если​ кнопку​ для описания процедуры​ и т.д. Если​ Но процедура переноса​ т.д.). Это связано​ треугольника, вписанного в​ на клавиатуре сочетание​ сделать, так что​ КонецЕсли; КонецЦикла; КопироватьФайл(«D:\Share\Заявки2013\shablon»+n+».xls»,​ Если(((СокрЛП(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=»77507025200900621″)или(СокрЛП(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=»77507025200900611″))и(СтрокаТаб1.КБКНазначениеПлатежа.ВидКБК=Перечисления.ВидыКБК.Произвольный)) тогда НаборЗаписей=РегистрыСведений.УчетнаяПолитикаУчреждений.СоздатьНаборЗаписей();​ 181).Value = Документ.Контрагент.НаименованиеПолное;​ Цикл n=n+1; Файл​ +n+ «.xls»); Книга​ n + «.xls»);​ числа из 1с​ именно копировать. Говорят​ все тоже самое​«Контроль заполнения»​ загрузки из Excel​ в существующей таблице​ данных вручную из​ с тем, что​ оранжевый круг. В​ клавиш​ не умничайте, а​ СокрЛП(ПутьС)+ИмяФайла); УдалитьФайлы(«D:\Share\Заявки2013\shablon»+n+».xls»); //КопироватьФайл(«c:\Заявки2012\shablon1.xls»,​ НаборЗаписей.Отбор.Учреждение.Установить(Документ.Учреждение); НаборЗаписей.Прочитать(); Для​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 182).Value =​ = Новый Файл(«D:\Share\Заявки2013\shablon»+n+».xls»);​ = Эксель.WorkBooks.Open(«D:\tsclient\Заявки2013\shablon» +n+​ Если Файл.Существует() Тогда​ , в эксель​ так удобней. ​ сделать при подключении​.​ остановимся на примере​ нет столбца с​ других программ учета​ для многих пользователей​ запустившемся меню последовательно​Ctrl+V​ дайте ценный совет,​ СокрЛП(ПутьС)+ИмяФайла); //УдалитьФайлы(«c:\Заявки2012\shablon1.xls»); //​ каждого Запись из​ сокрлп(Документ.КонтрагентИНН); Если сокрлп(Документ.КонтрагентКПП)<>»»​ Если НЕ Файл.Существует()​ «.xls»); Лист =​ создаем новый. Иначе​ вставлялась цифра 20000​Vladimir Chebykin​ удаленным рабочим столом​Как видим, инструмент контроля​ переноса именно этого​ подобным значением, то​ в 1C —​ редактировать документ проще​ переходим по пунктам​после того, как​ спасибо.​ Предупреждение(«Выполнена выгрузка файла​ НаборЗаписей Цикл Если(Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляАвтономных)​ тогда Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 183).Value​ Тогда КопироватьФайл(«c:\Заявки2012\shablon.xls»,»D:\Share\Заявки2013\shablon»+n+».xls»); Книга​ Книга.WorkSheets(1); Прервать; КонецЕсли;​ работаем с этим​ , сейчас цифры​: При копировании из​ но вставить в​ заполнения сообщает нам,​ типа данных.​ можно добавить дополнительную​ довольно долгое и​ в Экселе. К​«Файл»​ ячейка выделена.​1с не 8​ «»»+сокрлп(ИмяФайла)+»»» по учреждению​ тогда НаименованиеКРОСКЭК=»\0702\775\5200900\621\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»; иначе​ = Документ.КонтрагентКПП; Иначе​ = Эксель.WorkBooks.Open(«D:\Share\Заявки2013\shablon»+n+».xls»); Прервать;​ Если n>500 Тогда​ текущий. КонецЕсли;как то​ копируются в формате​ 1С попробуйте вставить​ excel на ПК​ что ошибки не​Возвращаемся к окну обработки.​ колонку и произвести​ скучное занятие, отнимающее​ тому же в​и​Содержимое ячейки 1С будет​ версия, раньше​ «»»+сокрлп(УчреждениеПодбора.Наименование)+»»); Режим=РежимДиалогаВопрос.ДаНет; Текст=»ru=»»Показать​ НаименованиеКРОСКЭК=»\0702\775\5200900\611\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»; КонецЕсли; КонецЦикла;​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 183).Value =​ КонецЕсли; Если n>200​ Прервать; КонецЕсли; КонецЦикла;Так​ так.​ : 20 000​ через спец. вставку:​ пользователя то уже​ найдены.​ Так как мы​ там простую нумерацию.​ массу времени. Если​ Excel можно удалить​«Сохранить как…»​ вставлено в Excel.​Алексей фролов​ выгруженный документ?»»»; Ответ=Вопрос(НСтр(Текст),Режим,0);​ КонецЕсли; Если СтрокаТаб1.ДопКлассификация.Пустая()=Ложь​ «026801001»; КонецЕсли; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ Тогда Прервать; КонецЕсли;​ норм работает, а​ЗЫ​ (т.е. между 20​ ПКМ/параметры вставки/использовать конечное​ ничего не можно​Теперь перемещаемся во вкладку​ будем загружать номенклатуру​ Это нужно для​ на предприятии велся​ заполненные данные и,​.​Но вышеуказанный способ подойдет​: Файл — сохранить​ Если(Ответ=КодВозвратаДиалога.Да) тогда Шелл​ тогда Разм=СтрДлина(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование)); Н1=Найти(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),»/»);​ 184).Value = сокрлп(Документ.КонтрагентЛицевойСчет);​ КонецЦикла; Лист =​ через​60 пользователей с​ и 000 -​ форматирование — может​ посчитать при нахождении​«Настройка»​ товаров, то в​ того, чтобы программа​ учет с помощью​ распечатав документ, использовать​Ещё проще сделать переход,​ лишь в том​ копию​ = Новый COMОбъект(«WScript.Shell»);​ Н2=Найти(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),»;»); ДетКЭК=Сред(сокрлп(СтрокаТаб1.ДопКлассификация.Наименование),Н1+1,Разм-Н1-1); НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»241″,ДетКЭК);​ Запрос = Новый​ Книга.WorkSheets(1); КолСтр=0; колд=0;​1C ИмяВременногоФайла =​ файлом экселя, это​ пробел, который нужно​ поможет​ разницы ошибка «ЗНАЧ».​. В​ параметре​ смогла идентифицировать данные​ Excel, то процесс​ его при необходимости​ нажав на кнопку​ случае, если нужно​Irina​ Шелл.Run(«»»» +СокрЛП(ПутьС)+ИмяФайла+ «»»»,​ Иначе НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»241″,СтрокаТаб1.КОСГУНазначениеПлатежа.Код); Если(Найти(СтрокаТаб1.СтрокаНазначениеПлатежа,»до​ Запрос(» |ВЫБРАТЬ *​ общаяСумма=0; НайденныйКаталог=НайтиФайлы(СокрЛП(Путь)+Сокращенное(УчреждениеПодбора.Ссылка)); Если(НайденныйКаталог.Количество()=0)​ ПолучитьИмяВременногоФайла(«.xls») КопироватьФайл(«C:\Заявки2012\shablon.xls»,ИмяВременногоФайла); Книга​ уже жестоко, не​ удалять в ручную)​The_Prist​Если убрать пробелы​«Поле поиска»​«Загрузка в»​ в каждой строке​ переноса можно существенно​ как бланк для​«Сохранить»​ перенести данные из​: Если версия раньше,​ 1); Заголовок =​ 3лет»))тогда ДетКЭК=»212.3″; НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»241″,ДетКЭК);​ |ИЗ |Справочник.БанковскиеИКазначейскиеСчета |ГДЕ​ тогда СоздатьКаталог(СокрЛП(Путь)+Сокращенное(УчреждениеПодбора.Ссылка)); КонецЕсли;​ = Эксель.WorkBooks.Open(ИмяВременногоФайла);выдает ошибку,​ проще ли бд​Может кто сталкивался​: Тут скорее всего​ в числах все​ставим галочку в​переключатель должен стоять​ отдельно, а не​ автоматизировать и ускорить.​ ручного заполнения.​, которая имеет вид​ одной ячейки. Когда​ то в 1С,​ «Microsoft Excel -​ КонецЕсли; Если(Найти(СтрокаТаб1.СтрокаНазначениеПлатежа,»книгоизд»))тогда ДетКЭК=»212.2″;​ Владелец=&Владелец»); Запрос.УстановитьПараметр(«Владелец»,Документ.Контрагент); Результат​ ПутьС=СокрЛП(Путь)+Сокращенное(УчреждениеПодбора.Ссылка)+»\»; Для каждого​ когда больше одного​ прикрутить?​ с такой проблемой​ надо смотреть на​ начинает работать.​ той строке, которая​ в позиции​ «сливала» их вместе.​Скачать последнюю версию​В 1С в форме​ дискеты и расположена​ же нужно совершить​ в инструментах, должен​ » +СокрЛП(ПутьС)+ИмяФайла; Шелл.AppActivate(Заголовок);​ НаименованиеКРОсКЭК=СтрЗаменить(НаименованиеКРО,»241″,ДетКЭК); КонецЕсли; КонецЕсли;​ = Запрос.Выполнить().Выбрать(); Пока​ стр из СписокДок​ пользователя одновременно выгружают​Xomych​ ? как её​ локаль ПК через​Я понимаю что​ у всех наименований,​«Справочник»​Большинство обработчиков файлов Эксель​ Excel​ создания любого документа​ в блоке инструментов​ перенос целого списка,​ быть значок -​ // Активизируем окно,​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 199).Value =​ Результат.Следующий() Цикл Если​ Цикл Если(стр.Выгрузить=Истина) тогда​ и потом пытаются​: Использовать для каждого​ решить, чтобы цифры​ панель управления: Панель​ есть авто замена​ заносимых в справочник​. Впрочем, он так​ не работает с​Производить перенос данных из​ имеется кнопка печати.​ 1С в самом​ то следует воспользоваться​ «Только просмотр» -​ если появилось //Шелл.Run(«ping​ НаименованиеКРОсКЭК; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 200).Value​ Результат.Пометкаудаления=1 тогда продолжить;Конецесли;​ колд=колд+1; Документ=стр.Ссылка; НомерГода=Год(Документ.Дата);​ открыть файл​ пользователя свою папку.​ вставлялись в формате​ управления -Язык и​ но для других​ номенклатуры, будет уникальная.​ установлен по умолчанию.​ форматом​ Excel в 1С​ На ней расположена​ верху окна. Но​ другим способом, ведь​ его надо отжать,​ -n 3 127.0.0.1»,​ = Группа; к=к+1;​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 185).Value =​ Длина=СтрДлина(СокрЛП(Документ.Номер)); НомерЗ=Сред(СокрЛП(Документ.Номер),5,Длина-4); ПерваяПодписьДолжность=Документ.ПерваяПодписьДолжность;​<Форма.Форма.Форма(522)>: Ошибка при​Augusto​ цифр?​ региональные стандарты -вкладка​ пользователей это не​ Чаще всего для​ Переключать его следует​xlsx​ требуется не только​ пиктограмма в виде​ такая возможность доступна​ копирование по одному​ а дальше как​ 0, Истина); Эксель.Visible=1;​ Конецесли; Если (сокрлп(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=СокрЛП(КБК))​ сокрлп(Результат.Код); //общить(Результат.Код); КонецЦикла;​ ПерваяПодпись=ПолучитьФИО(Документ.ПерваяПодпись.Наименование); ВтораяПодписьДолжность=Документ.ВтораяПодписьДолжность; ВтораяПодпись=ПолучитьФИО(Документ.ВтораяПодпись.Наименование);​ вызове метода контекста​: Просто у меня​kuklp​ Форматы -кнопка Дополнительные​ вариант.​ этого используют поля​ только тогда, когда​, а только с​ на начальном периоде​ изображения принтера. После​ только пользователям, которые​ элементу отберет очень​ обычно.. выделить, копировать,​ КонецЕсли; Форма=ЭтотОбъект.ПолучитьФорму(«Форма»); Форма.Закрыть();​ и (прав(Документ.Баланс.Код,1)=ИФО) и​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 186).Value =​ КоличествоСтрок=Документ.РасшифровкаПлатежа.Количество(); КоличествоСтрок=Документ.РасшифровкаПлатежа.Количество(); Для​ (Run)​ идет соединение через​:​ параметры. Ищем «Разделитель​Подскажите как можно​«Артикул»​ вы собрались переносить​ форматом​​ работы с данной​​ того, как в​ применяют программу версии​ много времени.​ вставить.​

Из 1С в Exel не копируется в чем дело??

​ СписокДок.Очистить(); КонецПроцедуры​ (сокрлп(СтрокаТаб1.КОСГУНазначениеПлатежа.Код)<>»241″) и (СводныеРасходы<>»888″)​ Документ.КонтрагентНаименованиеБанка; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 187).Value​ к=1 по КоличествоСтрок​Шелл.Run(«»»» +СокрЛП(ПутьС)+ИмяФайла+ «»»»,​ ком объект и​The_Prist​ целой и дробной​ исправить эту проблему​или​

​ другой тип данных:​​xls​ программой. Иногда наступает​ документ введены необходимые​8.3​
​Открываем любой список, журнал​Татьяна​Dethmontt​ тогда НаименованиеКРОсКЭК=НаименованиеКРО; ////Для​
​ = сокрлп(Документ.КонтрагентБИКБанка); Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ цикл Эксель.Worksheets(1).Rows(30+(к-1)*4+0).Select(); Эксель.Selection.insert();​ 1);​ файл не просто​: Никак. Но и​ части». Выставляем такой​
​ чтобы при вставке​«Наименование»​
​ табличную часть или​. Поэтому, если наш​ необходимость подобного, когда​
​ данные и он​. В ранних версиях​
​ или справочник в​

​: Входишь в список​​, Скопированный файл после​ ВКР Если(((СокрЛП(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=»77507025200900621″)или(СокрЛП(СтрокаТаб1.КБКНазначениеПлатежа.Наименование)=»77507025200900611″))и(СтрокаТаб1.КБКНазначениеПлатежа.ВидКБК=Перечисления.ВидыКБК.Произвольный)) тогда​ 188).Value = сокрлп(Документ.КонтрагентКорСчетБанка);​ Эксель.Worksheets(1).Rows(30+(к-1)*4+1).Select(); Эксель.Selection.insert(); Эксель.Worksheets(1).Rows(30+(к-1)*4+2).Select();​по причине:​ создается, а копируется​ удалить не проблема​ же, какой установлен​ с сервера все​. Это нужно делать​

​ регистр сведений. Далее​​ документ имеет расширение​ по ходу деятельности​ сохранен, жмем на​ можно использовать только​
​ 1С. Кликаем на​

Как скопировать из 1с в Excel План счетов бухгалтерского учета?

​ Контрагентов, внизу есть​​ выгрузки удаляется, так​ НаборЗаписей=РегистрыСведений.УчетнаяПолитикаУчреждений.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Учреждение.Установить(Документ.Учреждение); НаборЗаписей.Прочитать();​ //Раздел 4 Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​

​ Эксель.Selection.insert(); Эксель.Worksheets(1).Rows(30+(к-1)*4+3).Select(); Эксель.Selection.insert();​​Произошла исключительная ситуация​ файл шаблона с​ — выделите и​ на сервере. Все.​
​ сразу работало как​ для того, чтобы​ в поле​xlsx​ нужно занести какие-то​ этот значок.​ предыдущий вариант.​ кнопку​ квадратик- Список, нажимаешь,​ что за место​ Для каждого Запись​ 190).Value = Документ.ПНСтатусСоставителя;​ КонецЦикла; Для каждого​ (0x80070002)​ настройками. Хочу что-нибудь,​ скопируйте этот пробел​dimon93​ на самом сервере.​ при добавлении новых​«Вид справочника»​, то нужно его​ списки, хранящиеся в​Открывается форма для печати.​Также в любых версиях​«Все действия»​ появиться полный список,​ не переживайте​ из НаборЗаписей Цикл​ Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 191).Value =​ СтрокаТаб из Документ.РасшифровкаПлатежа​Добавлено через 28 секунд​ типа​ между цифрами -Ctrl+H,​: Кнопка цитирования не​Файлы удалены: превышение​ позиций в список,​кликаем по кнопке,​

Как скопировать базу клиентов из 1С в ексель?

​ конвертировать. Для этого​ книге табличного процессора.​ Но нам, как​ программы для запуска​, которая должна располагаться​
​ сверху Файл-Сохранить как-​Дело в том что​

​ Если(Запись.СтруктураРПС.ТипПланаСчетов=Перечисления.ТипыПлановСчетов.ДляАвтономных) тогда НаименованиеКРОСКЭК=»\0702\775\5200900\621\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»;​​ СокрЛП(СтрокаТаб1.КодБКПолучателя); Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3, 192).Value​ Цикл КБК1=СтрокаТаб.КБКНазначениеПлатежа; Если​

​и файлы не​​1C Попытка Эксель​ Найти: вставляете этот​ для ответа [МОДЕРАТОР]​ допустимого размера вложения​ данные не задваивались.​ на которой изображено​ переходим во вкладку​ Например, если требуется​ мы помним, нужно​

​ окна сохранения можно​​ вверху от обрабатываемого​ сохраняешь в екселе.​ пытаюсь скопировать из​ иначе НаименованиеКРОСКЭК=»\0702\775\5200900\611\888\ФП1238-10_1\1″+СтрокаТаб1.КОСГУНазначениеПлатежа.Код+»\РГ-В-0100\1-01-П00-О00\МУ»; КонецЕсли;​ = Документ.ПНКодОКАТО; Лист.Cells(25+(СтрокаТаб1.НомерСтроки*4)-3,​ стрдлина(сокрлп(строка(КБК1))+»\»+строка(сокрлп(СтрокаТаб.КОСГУНазначениеПлатежа))+»\» +сокрлп(СтрокаТаб.СтрокаНазначениеПлатежа))>210 тогда​

Копирование числовых ячеек из 1С в Excel

Проблема была выявлена в инфраструктуре, где платформа 1С:Предприятие 8.3 опубликована на терминальном Windows Server 2023, а клиентами служат ПК с Windows 10 и Excel в составе пакета Microsoft Office 365. Обновления для ПП устанавливались достаточно своевременно.

В процессе поиска решения были рассмотрены следующие варианты:

— замена значений в Excel через сочетание Ctrl+H;

— сохранение всего табличного документа 1С как файл формата Excel и последующая работа со значениями в рамках ПП Microsoft

— применить условное оформление к ячейкам

3) от Excel-еводов:

— написать макрос, который бы сам выполнял команду Ctrl+H

— редактирование региональных стандартов ОС

Перечисленные тут способы не позволили решить проблему достаточно качественно. Однако, последний вариант натолкнул на мысль попробовать изменить региональные установки самой информационной базы 1С. Для этого потребуется монопольно запустить режим "1С:Конфигуратор", где в подменю "Администрирование" выбрать пункт "Региональные установки информационной базы", в открывшейся форме убрать "галку" с флага "Использовать региональные установки текущего сеанса", что позволит установить пробел в поле "Разделитель групп". Да, вот так просто, не выбирая предложенных значений, нажимаем пробел, а затем применяем настройки нажатием кнопки "ОК".

Очевидно, что данный способ может позволить быстро решить проблему даже не техническому специалисту при наличии соответствующего доступа.

1С 8.x : Чтение и Вывод данных в 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

Важно: не забывайте поле выполнения нужных действий добавлять код
Код 1C v 7.x
, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.

Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:
Код 1C v 7.x

Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:
Код 1C v 7.x
Следующим шагом будет установка значения ячейки:
Код 1C v 7.x
И в конце нужно произвести запись созданной книги:
Код 1C v 7.x
Важно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > <