Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Перенос справочника Контрагенты из файла *.xls в Торговлю и Склад 7.7 - возможно?

Stesha
читатель
офлайн
Дата регистрации: 03.04.2003
Сообщений: 62
Пост №1
 
13.03.2008 13:00

Уважаемые специалисты! Подскажите, перенос справочника "Контрагенты" из файла *.xls в Торговлю и Склад 7.7 - возможно?

Alexandr VA
читатель
офлайн
Дата регистрации: 07.01.2007
Сообщений: 1666
Пост №2
 
13.03.2008 13:42

Возможен.<br>Если Справочник Контрагенты в ТиС не пустой, могут быть ньюансы.<br>Зовите программиста 1с.

Stesha
читатель
офлайн
Дата регистрации: 03.04.2003
Сообщений: 62
Пост №3
 
13.03.2008 13:53

В ТиС справочник пока пустой, а самостоятеьно никак не перенести? из 1с в другую 1С я переносила сама, а вот Эксельный файл меня пугает.

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №4
 
13.03.2008 15:53

""из 1с в другую 1С я переносила" ...<br>значит разберетесь, вот вам подсказка:<br>ЗапущенExcel=0;<br>ВходнойФайлОткрыт = 0;<br><br>Попытка <br> ВходExcel = СоздатьОбъект("Excel.Application");<br> ЗапущенExcel=1;<br>Исключение       <br> Сообщить("Ошибка инициализации Excel Server-а");<br>КонецПопытки;<br><br>Если ЗапущенExcel=1 Тогда<br> Попытка<br> ВходExcel.Application.Workbooks.Open(ПутьКФайлу);<br> ВходExcel.ActiveWorkbook.Saved=1;<br> ВходнойФайлОткрыт = 1;<br> Исключение<br> ВходExcel.Quit();<br> Сообщить("Ошибка открытия файла "+ПутьКФайлу);<br> КонецПопытки;<br>КонецЕсли;<br><br>Если ВходнойФайлОткрыт = 1 Тогда<br> Попытка<br> Range=ВходExcel.ActiveCell.SpecialCells(11).Select;<br> ВсегоСтрок=ВходExcel.ActiveCell.Row;<br> Исключение<br> ВходExcel.Quit();<br> Сообщить("Ошибка определения размера листа книги Excel");<br> КонецПопытки;<br> <br> Контрагенты=СоздатьОбъект("Справочник.Контрагенты");<br> <br> НачатьТранзакцию();<br> Для i=1 По ВсегоСтрок Цикл<br> Контрагенты.Новый();<br> Контрагенты.Код=ВходExcel.ActiveSheet.Cells(i,1).Value;<br> Контрагенты.Наименование=ВходExcel.ActiveSheet.Cells(i,2).Value;<br> Контрагенты.Записать();<br> КонецЦикла;<br> ЗафиксироватьТранзакцию();<br> ВходExcel.Quit();<br>КонецЕсли;<br><br><br>но... все зависит от того, в каком виде у вас данные в Excel, какие страницы есть в рабочей книге, в какой странице данные расположены и как."

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация