Что для этого нужно - создать обработку или процедуру?

можно даже функцию

(0) СОМОбъект

А как создать COM Объект? Sub COM()... ???

Эксель = new COMОбъект("Excel.Application");
Эксель.Workbooks.Add(Путь);
Лист = Эксель.Worksheets(1);

А где это писать, в обработке?

И куда тогда вставлять

Sub COM()
   Dim trade As Object
   Dim Элемент As Object

   Set obj = CreateObject("V8.ComConnector")
   Set trade = obj.Connect ("File=""c:\InfoBases\Trade"";Usr=""Director"";")
   
   Rem создаем документ
   Set Документ = trade.Документы.Приходная.СоздатьДокумент()
       
   Rem получаем данные из листа
   Set Контрагент = trade.Справочники.Контрагенты.НайтиПоНаименованию(Application.Cells(1, 2).Value)
   НомерДокумента = Application.Cells(2, 2).Value
   Дата = Application.Cells(3, 2).Value
   
   Rem записываем полученные данные в документ
   Документ.Контрагент = Контрагент
   Документ.Дата = Дата
   Документ.Номер = НомерДокумента
   
   Номер = 6   'Первая строка табличной части
   НомерСтроки = Application.Cells(Номер, 1).Value
   
   Rem в последней строке табличной части будет символ #
   While НомерСтроки <> "#"
   
       Rem получаем данные из листа
       Set Номенклатура = trade.Справочники.Номенклатура.НайтиПоНаименованию(Application.Cells(Номер, 2).Value)
       Количество = Application.Cells(Номер, 5).Value
       Цена = Application.Cells(Номер, 6).Value
       Сумма = Application.Cells(Номер, 7).Value
       
       Rem записываем полученные данные в строку табличной части
       Set Строка = Документ.Товары.Добавить()
       Строка.Номенклатура = Номенклатура
       Строка.Количество = Количество
       Строка.Цена = Цена
       Строка.Сумма = Сумма
       Номер = Номер + 1
       НомерСтроки = Application.Cells(Номер, 1).Value
   Wend
   Документ.Записать
   
End Sub

(4) Неправильно.
Было:
Эксель = new COMОбъект("Excel.Application");
Эксель.Workbooks.Add(Путь);
Лист = Эксель.Worksheets(1);

Надо:
Эксель = new COMОбъект("Excel.Application");
Книга=Эксель.Workbooks.Add(Путь);
Лист = Книга.Worksheets(1);

Так как насчет (5)? Или это вообще не в тему?

Не понял ?

(8) ну чего непонятно.. в (5) вызов и работа с 1С из ёкселя.
тебе наоборот...

(9)Нет это как-раз мне и надо, это пример из книжки, только вот там не написано, куда это вставлять, и как потом обращаться???

В * вставь.
В приложение на VB.

(11)А где я его возьму? Я же в 1С

(10) это макрос.. экселевский.. куда вставлять -в документ ексёль.
(там редактор VB есть)
обращаться.. хм. GetComObject("testfile.xls",) - в СП посморти ПолучитьКомОбъект.
а потом. млин. не помню как макрос запустить. мож кто и подскажет.
а, да, проще(понятнее для меня. имхо) было бы это из 1С сделать.

Ex = New COMObject("Excel.Application");
   Ex.Workbooks.Open(Путь);
   Ex.Visible = 1;    
   ТекЛист=Ex.WorkSheets(1);        
   Для Ячейка = 1 по 400 цикл
       Если НЕ  ТекЛист.Cells(Ячейка,1).Value  = Неопределено тогда
           Сообщить(Строка(ТекЛист.Cells(Ячейка,1).Value));    
           Карта = Справочники.Номенклатура.НайтиПоКоду(ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));    
           Если Карта.Пустая() тогда        
               Сообщить(" Пустой элемент "  + ТекЛист.Cells(Ячейка,1));
           иначе
               Объект = Карта.ПолучитьОбъект();
               Объект.ОсновнойПоставщик = ОсновнойКлиент;
               Объект.Записать();
               конецесли;    
       конецесли;
   конеццикла;    

я думаю что проще так..

(6) В чем же разница, милый?

(12) А где ты взял код из (5)?

(16)Вопрос снят, из книжки...

(16)Это листинг из книги v8: v8: Купил книгу "Профессиональная разработка в системе 1С: предприятие 8"

(13)Не пойму зачем мне макросы? Мне ведь надо это из 1С сделать, так вроде в книжке написано

(14)Это, как я понимаю, на 1С написано? А где это писать, в процедуре модуля (какого)или еще где?

автор опять Питросянить начинаешь..
(19) ну сделай обработку.. в Процедуру КнопкаВыполнитьНажатие() в модуле формы запихни этот код..

это для тебя?
OFF: 2 jq, что там с твоей книжкой поменял?

Сделал как в (20), а там такое...

Sub <<?>>COM()
{Обработка.Обработка1.Форма.Форма(27,55)}: Ожидается символ ';'
   Rem в последней строке табличной части будет символ #<<?>>
{Обработка.Обработка1.Форма.Форма(28,26)}: Ожидается ключевое слово 'Цикл' ('Do')
   While НомерСтроки <> "#"<<?>>

Чего не так?

(22) я говорил про код из (14).. не забудь там путь к файлу указать..

Аааа, а почему мой код не катит?

(24) да патаму что твой код написан на языке VISUAL BASIC!!!!!!!!!!!!! и для его исполнения нужна среда , которая поддерживает этот язык.. у тебя же блокнот команды 1С не исполняет..

Восьмерочники, у вас есть сейф массивы, вам сам бог велел за одну строку данные с листа в 1С передавать (уж если в 7.7 показывал как, то в 8 подавно должно)

(26) Покажи как в 8-ке, плз.

(15) во-1-х: я тебе не "милый" (впрочем,ахтунгам закон не писан)
    во-2-х: экземляр может остаться в памяти и...видел висящие процессы?
            ну про дефрагментацию,про сборку "мусора" памяти,наверное и не стоить говорить, ты по моему далек от мысли.

(27) восьмерку не знаю, но вот как весь лист передать в массив...
arr=WS.UsedRange.Value 'и все
могу в семерке написать...

(29) Напиши на 7-ке, я переведу :).
(28) Надо говорить: "Какой я тебе милый, с*ка?" :)

(30.2) Ок.Понял.

В семерке нет такого массива, но можно исхитриться...
...
Процедура Сформировать2()
   scr=СоздатьОбъект("MSScriptControl.ScriptControl");
   scr.language="javascript";
   scr.timeout=-1;
   oExcel=СоздатьОбъект("Excel.Application");
   WB=oExcel.Workbooks.Open("C:\Клиенты.xls");
   scr.addobject("WS",WB.Worksheets(1));
   arr=scr.eval("new VBArray(WS.UsedRange.Value)");
   WB.Close(0);
   Для л=arr.lbound(1) По arr.ubound(1) Цикл
       Для к=arr.lbound(2) По arr.ubound(2) Цикл
           Сообщить(arr.getItem(к,л));
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры

+31 хотя,накуа говорить? и так же видать

+(32) может и не проканает сейфмасив, но почемубы не попробовать

(32) Отлично:век-живи,век-учись!
Я про вот это:"arr=scr.eval("new VBArray(WS.UsedRange.Value)");"
Помоему остроумно.

(34) должно прокатить,ведь safe массивы именно для COM и разработаны.

(33) Типа "Ахтунга по каментам видно"? (народная поговорка) :)

(32) Ща попробую, отпишусь.

+ а (32) Тянет на книгу знаний, если прокатит :).

(38) Пожалуй.

(37.1) Пожалуй.

Процедура КнопкаВыполнитьНажатие(Кнопка)
   МС = Новый COMОбъект("MSScriptControl.ScriptControl");
   МС.language="javascript";
   МС.timeout=-1;
   ЕА = Новый COMОбъект("Excel.Application");
   Книга = ЕА.Workbooks.Open(Путь);
   МС.addobject("WS",Книга.Worksheets(1));
   Масс = МС.eval("new VBArray(WS.UsedRange.Value)");
   Книга.Close(0);
   Для Инд1 = Масс.lbound(1) По Масс.ubound(1) Цикл
       Для Инд2 = Масс.lbound(2) По Масс.ubound(2) Цикл
           Сообщить(Масс.getItem(Инд2, Инд1));
       КонецЦикла;
   КонецЦикла;

КонецПроцедуры



{Форма.Форма(11)}: Метод объекта не обнаружен (lbound)
   Для Инд1 = Масс.lbound(1) По Масс.ubound(1) Цикл

В чем могут быть грабли?

Зря я наверное на руссий перевел, запутал только

scr = Новый COMОбъект("MSScriptControl.ScriptControl");

(44) Эта строка смущает

ИМХО: lbound,может иметь 2 параметра

(46) Можно подробнее?

Процедура КнопкаВыполнитьНажатие(Кнопка)
   scr = Новый COMОбъект("MSScriptControl.ScriptControl");
   scr.language="javascript";
   scr.timeout=-1;
   oExcel=Новый COMОбъект("Excel.Application");
   WB=oExcel.Workbooks.Open(Путь);
   scr.addobject("WS",WB.Worksheets(1));
   arr=scr.eval("new VBArray(WS.UsedRange.Value)");
   WB.Close(0);
   Для л=arr.lbound(1) По arr.ubound(1) Цикл
       Для к=arr.lbound(2) По arr.ubound(2) Цикл
           Сообщить(arr.getItem(к,л));
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры

В восьмерке не пойдет такой код, там надо попробовать просто сразу в массив передать без МССкриптКонтрол

в восьмерке покакимто причинам Евал возвращает не объект, а в семерке объект

(49) Почему не пойдет? Причина?

(50) Возвращает сом-объект, смотрел

В семерке этот код даже с последующим заполнением ТЗ быстрее чем адо начиная тысяч с 5 строк

(53) Тут дело в чем-то другом.

СОМ он и в Африке СОМ.

Не знаю причину, но и scr.Eval("new Enumerator(GetObject('winmgmts:win32_process').instances_())") возвращает не енумератор (покрайне мере народ так говорит), но тут и ненадо енумерат, а вот с получением данных из екселя нужно передавать в массив
может в 8 проста проканает
Масс=Лист.UsedRange.Value

(56) Ща попробую

oExcel=Новый COMОбъект("Excel.Application");
   WB=oExcel.Workbooks.Open(Путь);
   WS = WB.Worksheets(1);
   arr = WS.UsedRange.Value;
   WB.Close(0);
   Для л=arr.lbound(1) По arr.ubound(1) Цикл
       Для к=arr.lbound(2) По arr.ubound(2) Цикл
           Сообщить(arr.getItem(к,л));
       КонецЦикла;
   КонецЦикла;


Пишет, что arr - COMSafeArray

Но метод lbound не видит

Ну все, тогда тебе и лбоунды не нужны, попробуй работать синтакисом восьмерки

(60) Как с массивом?

Ну да, как с COMSafeArray, там ведь наверно можно опредилить его размерность ?

Йес!!!

Поперло!!!

Ща код нарисую!!!

Тока при малых объемах, это не очч быстро, а при больших может заткнуться, но 40000 строк на 20 столбцов секунды за 3 выдергивает, но потом в массиве надо уж искать, но если к примеру ексель файл "нормирован" то самое оно, чем елозить по строкам и столбцам...
Да там массив выходит типа набок положенный, можно и транспонировать(тоже метод екселя), но никчему - затраты времени...

Кстати - и обратно также можно...
типа
НачальнаяЯчейка="A1";
КонечнаяЯчейка=ШиринаМассива*ВысотаМассива; //:) незнаю как обозвать
Диапазон=Лист.Range(НачальнаяЯчейка+":"+КонечнаяЯчейка);
Диапазон.Value=Ексель.application.WorksheetFunction.Transpose(Массив);
...
Тока тут Массив как положено должен быть, не "набокулежащим"

Вернее так
...
Диапазон=Лист.Range(Лист.Cells(1,1),Лист.Cells(ШиринаМассива,ВысотаМассива));
///
Ну в общем смысл чтобы диапазон равный размеру массива задать

oExcel=Новый COMОбъект("Excel.Application");
   WB=oExcel.Workbooks.Open(Путь);
   WS = WB.Worksheets(1);
   arr = WS.UsedRange.Value;
   WB.Close(0);
   Для л=arr.GetLowerBound(0) По arr.GetUpperBound(0) Цикл
       Для к=arr.GetLowerBound(1) По arr.GetUpperBound(1) Цикл
           Сообщить(arr.GetValue(л, к));
       КонецЦикла;
   КонецЦикла;

(69) - рабочий код :)

В книгу знаний!!!

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Excel = New COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\Рабочий стол\Книга1.xls");
   Excel.Visible = 1;    
   ТекЛист = Excel.WorkSheets(1);        
   
   Для Ячейка = 1 По 400 Цикл
       Если Не  ТекЛист.Cells(Ячейка,1).Value  = Неопределено Тогда
           Сообщить(Строка(ТекЛист.Cells(Ячейка,1).Value));    
           Карта = Справочники.Контрагенты.НайтиПоКоду(ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));    
           
           Если Карта.Пустая() Тогда        
               Сообщить(" Пустой элемент "  + ТекЛист.Cells(Ячейка,1));
           Иначе
               Объект = Карта.ПолучитьОбъект();
               Объект.Контрагент = Контрагент;
               Объект.Записать();
           КонецЕсли;    
       КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры

Выдает ошибки:

{Обработка.Обработка1.Форма.Форма(18,37)}: Переменная не определена (Контрагент)
               Объект.Контрагент = <<?>>Контрагент;
{Обработка.Обработка1.Форма.Форма(12,57)}: Процедура или функция с указанным именем не определена (ИзЧислаВСтроку)
           Карта = Справочники.Контрагенты.НайтиПоКоду(<<?>>ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));

Что это еще за процедура <<?>>ИзЧислаВСтроку???

Что за слово карта - его нет в синтакс-помощнике???

Почему пишим НайтиПоКоду, а не НайтиПоНаименованию???

up

"Что за слово карта - его нет в синтакс-помощнике???"
:)))

ИзЧислаВСтроку убери вобще или напиши Строка()...
Карта - элемент справочника Контрагенты...

ого.. малацца. вот это наизобретали..
(72) ну убери..чё за слово.. одно - функция, второе - элемент справочника..
а по наименованию ты сам искать будешь.) если они у тебя уникальны..

Так откуда у меня возьмется эл-т справочника Карта, если у меня его нет?

(77) млин.. я тебе в качестве примера привёл отрезок кода..
чтобы ты потом сделал из него свой рабочий код.. тут ребята вон описали альтернативный способ.. чего тибе исчо не хватает?

Теперь вроде ясно

Не ясно только что за слово Cells, приходится догадываться :)

Вот что получилось:

   Excel = Новый COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\berezin\Рабочий стол\Книга1");
   Excel.Visible = 1;    
   ТекЛист=Excel.WorkSheets(1);        
   
   Документ = Документы.Приходная.СоздатьДокумент();
   
   Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекЛист.Cells(1, 2).Value);
   НомерДокумента = ТекЛист.Cells(2, 2).Value;
   Дата = ТекЛист.Cells(3, 2).Value;
   
   Документ.Контрагент = Контрагент;
   Документ.Дата = Дата;
   Документ.Номер = НомерДокумента;

   Номер = 6;    //   'Первая строка табличной части
   НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   
   Пока НомерСтроки <> "#" Цикл
   
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);
       Количество = ТекЛист.Cells(Номер, 5).Value;
       Цена = ТекЛист.Cells(Номер, 6).Value;
       Сумма = ТекЛист.Cells(Номер, 7).Value;
       
       Строка = Документ.Товары.Добавить();
       Строка.Номенклатура = Номенклатура;
       Строка.Количество = Количество;
       Строка.Цена = Цена;
       //Строка.Сумма = Сумма
       Номер = Номер + 1;
       НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   КонецЦикла;
   
   Документ.Записать();

Ошибка: Поле объекта не обнаружено (Приходная)
   Документ = Документы.Приходная.СоздатьДокумент();

Я чего-то не пойму, какое поле не обнаружено? Приходная - это новый док-т, кот. я создаю.

И еще интерестно, когда я нажимаю выполнить, сначала открывается мой док-т Excel, как запретить это открытие, ведь оно нигде не прописано?

(80) Если в редакторе после слова Документы поставить точку, то появится список. Есть ли в этом списке слово "Приходная"? Ответь

Нету, я хочу его создать

(80) Cells - ячейки, хотя это по-моему и из кода понятно...

(82) Хочешь - создай!

(82) Похоже автор не понимает разницы между метаданными и данными.
Автор ты хочешь создать новый объект метаданных или данных?

А вобще, прочитай для начала Радченко, например, чем такие вопросы задавать... И пользы больше будет, чем на форуме сидеть...

(86) Так ведь так в книжке написано

Опять запутали - метаданные, данные... Я даже и не знал об этом.
Напишите вкратце, тогда быть может разберусь!

Или надо сначала вручную создать документ с реквизитами, а потом все остальное в него запихивать, как в коде??? Так?

В цикле:

   Пока НомерСтроки <> "#" Цикл
   
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);
       Количество = ТекЛист.Cells(Номер, 3).Value;
       Цена = ТекЛист.Cells(Номер, 4).Value;
//        Сумма = ТекЛист.Cells(Номер, 7).Value;
       
       Строка = Документ.Товары.Добавить();
       Строка.Номенклатура = Номенклатура;
       Строка.Количество = Количество;
       Строка.Цена = Цена;
//        Строка.Сумма = Сумма
       Номер = Номер + 1;
//        НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   КонецЦикла;

выдает ошибку:Ошибка при вызове метода контекста (Cells): Произошла исключительная ситуация (0x800a03ec)
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);

Что это значит? И что это за слово "Номер" в ТекЛист.Cells(Номер, 2).Value???

up

(90) ответь на (85)

(87) Не те ты книжки читаешь... Так ты не чему не научишься...

Ну а ошибка потому что в Номер чего-то не того передаешь

ааа.. я в ужосе.. под столом;)

Блин, не знаю, я хочу создать новый документ - что это данные или метаданные?

(95) Ну если ты хочешь создать документ которого ещё нет в конфигурации то это метаданные...

Что это за слово "Номер" в ТекЛист.Cells(Номер, 2).Value???

В отоладчике выяснил, что у меня не проходит следующую строку.

Написано: Номер = 6; Номер = Номер + 1;
Должно быть 6+1=7 строка, 7+1=8 ...,  а у меня получается 61, 611, 6111 и еще парочка, а затем ошибка

Номер - это номер ячейки по вертикали

(96)Я уже создал документ вручную, добавил реквизиты и табл. часть с реквизитами. Тогда мне теперь строчку Документ = Документы.Приходная.СоздатьДокумент(); заменить на док-т.открыть() ???

(100) 100

(97) Сделай так: Номер = Число(Номер) + 1;

(101) Ветку в юмор, автора в школу!

(98)А (Номер, 1) - это будет 6+1=7 или 61???

(102) вот-вот и я о том же...

Да лучше помогли бы разобраться, а не смеяться! Я в книжках этого не нашел

(103) чиво?

см. (97)

Откуда ты вобще это номер берешь? из Экселя что-ли?

(103) ужоснах.. автор, ты когда за компьютер садишься вилку из розетки выдергивай..

+(109) никак это не будет, это 6 это строка, 1 - столбец..

Это я понял, просто сейчас ступил.

А почему у меня Номер = Номер + 1 выводит бредятину?

Если сделать как в (101), тогда ошибка Ошибка при получении значения атрибута контекста (Value): Неизвестная ошибка
       Количество = ТекЛист.Cells(Номер, 3).Value;

Ничего не пойму!

(112)Количество =  Число(ТекЛист.Cells(Номер, 3).Value);
у тебя в этой ячейке либо пустое значение.. либо..

Там не пустое значение

(113)Преобразование значения к типу Число не может быть выполнено
       Количество = Число(ТекЛист.Cells(Номер, 3).Value);

(114) а ты говоришь не пустое...

И вобще давай уже целиком текст, а то не понятно ничего...

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Excel = Новый COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\berezin\Рабочий стол\Книга1");
   Excel.Visible = 1;    
   ТекЛист=Excel.WorkSheets(1);        
   
   Документ = Документы.Документ1.СоздатьДокумент();
   
   Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекЛист.Cells(1, 2).Value);
   НомерДокумента = ТекЛист.Cells(2, 2).Value;
   Дата = ТекЛист.Cells(3, 2).Value;
   
   Документ.Контрагент = Контрагент;
   Документ.Дата = Дата;
   Документ.Номер = НомерДокумента;

   Номер = 6;    
   НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   
   Пока НомерСтроки <> "#" Цикл
   
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);
       Количество = ТекЛист.Cells(Номер, 3).Value;
       Цена = ТекЛист.Cells(Номер, 4).Value;
//        Сумма = ТекЛист.Cells(Номер, 7).Value;
       
       Строка = Документ.Товары.Добавить();
       Строка.Номенклатура = Номенклатура;
       Строка.Количество = Количество;
       Строка.Цена = Цена;
//        Строка.Сумма = Сумма
       Номер = Номер + 1;
       НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   КонецЦикла;
   
   Документ.Записать();
   
КонецПроцедуры

Ошибка при вызове метода контекста (Cells): Произошла исключительная ситуация (0x800a03ec)
       НомерСтроки = ТекЛист.Cells(Номер, 1).Value;

Зачем вобще НомерСтроки брать из Excel?

Так в книжке написано, а как иначе?

Я так понимаю там таблица с товарами, ну и сделай цикл типа:
КолС=ТекЛист.UsedRange.SpecialCells(11).Row;
Для н=6 По КолС Цикл

КонецЦикла;

Эээ, а можно по русски

(122) Ну чего ещё по-русски тебе?!

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Excel = Новый COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\berezin\Рабочий стол\Книга1");
   Excel.Visible = 1;    
   ТекЛист=Excel.WorkSheets(1);        
   
   Документ = Документы.Документ1.СоздатьДокумент();
   
   Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекЛист.Cells(1, 2).Value);
   НомерДокумента = ТекЛист.Cells(2, 2).Value;
   Дата = ТекЛист.Cells(3, 2).Value;
   
   Документ.Контрагент = Контрагент;
   Документ.Дата = Дата;
   Документ.Номер = НомерДокумента;

  КолС=ТекЛист.UsedRange.SpecialCells(11).Row;
Для Номер=6 По КолС Цикл

   
   

   
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);
       Количество = ТекЛист.Cells(Номер, 3).Value;
       Цена = ТекЛист.Cells(Номер, 4).Value;
//        Сумма = ТекЛист.Cells(Номер, 7).Value;

       
       Строка = Документ.Товары.Добавить();
       Строка.Номенклатура = Номенклатура;
       Строка.Количество = Количество;
       Строка.Цена = Цена;
//        Строка.Сумма = Сумма

   
 
   КонецЦикла;
   
   Документ.Записать();
   
КонецПроцедуры

(123) UsedRange.SpecialCells(11).Row; бугага.. не, это песня а не тема.)

Чего это за UsedRange.SpecialCells? По-русски как?

(125) Непонял?

(126) Количество строк это...

(127) да это так.. он тибе попросил по - русски написать команду vb..ну а мине смешно стало.)

UsedRange? и SpecialCells?

(129)Ну да, а то не понятно

(129) а-а-а...

Чего непонятно? Говорю же, количество строк!

+ в Экселе...

А русскими выражениями это не пишется что-ли?

(129) Блин! Я с тобой согласен!

Стоп! (121)Этот цикл не катит: Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)
Для Номер=6 По КолС Цикл

(135) Тебе всё-таки для начала надо чего-нибудь попроще почитать, что бы вобще иметь хотя бы общее представление о программировании...

(136):)
(137)
КолС=ТекЛист.UsedRange.SpecialCells(11).Row;
//вот здесь вставь
сообщить("" + КолС);
//вот здесь вставь

Для Номер=6 По КолС Цикл

(137) Где ты там сравнение увидел вобще?!

(139)Таже ошибка + сообщение "10" - чего это означает?

(140)В том-то и дело, что я его не вижу, это выдала программа, - типа ошибка.

(141) Чё-то ты темнишь...

Все так и есть, как пишу. Процедура (124) дает ошибку (137) на строку Для Номер=6 По КолС Цикл. И с добавлением (139) тоже самое

(143) ошибка не там..
 
   Excel = Новый COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\berezin\Рабочий стол\Книга1");
   Excel.Visible = 1;    
   ТекЛист=Excel.WorkSheets(1);        
    КолС=ТекЛист.UsedRange.SpecialCells(11).Row;
Для Номер=6 По КолС Цикл
КонецЦикла;
   
не думаю что здесь есть ошибки.

А чего программа тогда сюда ссылается?

Excel = Новый COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\berezin\Рабочий стол\Книга1");
   Excel.Visible = 1;    
   ТекЛист=Excel.WorkSheets(1);        
    КолС=ТекЛист.UsedRange.SpecialCells(11).Row;
   
Для Номер=6 По КолС Цикл
КонецЦикла;

вот так что, тоже ошибка?!

Специально проверил - тоже ошибка!

Excel=Новый COMОбъект("Excel.Application");
Книга=Excel.Workbooks.Open(C:\Documents and Settings\berezin\Рабочий стол\Книга1.xls);
ТекЛист=Книга.Worksheets(1);
КолС=ТекЛист.UsedRange.SpecialCells(11).Row;
Документ = Документы.Документ1.СоздатьДокумент();
Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекЛист.Cells(1, 2).Value);
НомерДокумента = ТекЛист.Cells(2, 2).Value;
Дата = ТекЛист.Cells(3, 2).Value;
Документ.Контрагент = Контрагент;
Документ.Дата = Дата;
Документ.Номер = НомерДокумента;
Для Номер=6 По КолС Цикл
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);
       Количество = ТекЛист.Cells(Номер, 3).Value;
       Цена = ТекЛист.Cells(Номер, 4).Value;
       Строка = Документ.Товары.Добавить();
       Строка.Номенклатура = Номенклатура;
       Строка.Количество = Количество;
       Строка.Цена = Цена;
КонецЦикла;
Документ.Записать();

+ И Эксель вобще-то закрывать нужно, когда считаешь данные... А то у тебя Экселей в процессах висит наверно уже туева хуча...

А как их закрыть, я уже спрашивал

(148)Снова эта ошибка

(150)xl.Quit();

(151) А ты где это вобще всё пишешь?

+ А там нету случайно реквизита Номер?

(154)нда. телепат однако)

Пишу в модуле формы обработки, реквизиты только в форме док-та

(156) И у обработки нету реквизита Номер?

Excel.Quit(); не закрывает его

(157)Нету, а разве надо?

+(159)Вру, есть Номер, Контрагент и Дата

(159) В том-то и дело что не надо...

(160) И Номер наверно ещё какого-нибудь ссылочного типа... Удали его нах!

Теперь: Ошибка при вызове метода контекста (Записать): Не задана дата документа
   Документ.Записать();

Может и реквизит Дата удалить?

(163) :)) Удали и обработку удали и конфигуратор закрой и никогда больше не открывай!!!

Дату не судьба задать?
Дата = ТекЛист.Cells(3, 2).Value; // вот здесь в ячейке пусто

Или надо написать типа дата=получитьТекДату?

(166) Ну напиши Дата=ТекущаяДата(); И не парь мозги...

у тебя чего в ячейке  ТекЛист.Cells(3, 2).Value;?
у тебя вообще в ёкселе дата документа есть?

Есть дата- 3 строка, 2 колонка

Хе-хе, работает, только почему-то количество и цены записались, а номенклатура -нет

(169) в каком формате?

Тип - спр.ссылка.номенклатура

(172) Ну ё-моё! Ну не находит по твоим наименованиям ничего в спр.

А вобще прислушайся к совету в (164)

А контрагент тоже не записался. Такое впечатление, что записываются только числа, строки - нет

(175) ну посморти значение в ёкселе..код контрагента..
какой он, числовой, строковый..
потом значение кода в 1с.. и поимёшь..

Вот так правильно

Процедура КнопкаВыполнитьНажатие(Кнопка)

   Excel = Новый COMОбъект("Excel.Application");
   Excel.Workbooks.Open("C:\Documents and Settings\berezin\Рабочий стол\Книга1");
   Excel.Visible = 1;    
   ТекЛист=Excel.WorkSheets(1);        
   
   Документ = Документы.Документ1.СоздатьДокумент();
   
   Контрагент = (ТекЛист.Cells(1, 2).Value);
   НомерДокумента = ТекЛист.Cells(2, 2).Value;
   Дата = ТекЛист.Cells(3, 2).Value;
   
   Документ.Контрагент = Контрагент;
   Документ.Дата = ТекущаяДата();
   Документ.Номер = НомерДокумента;

   Номер = 6;    
   НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   
   Пока НомерСтроки <> "#" Цикл
   
       Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекЛист.Cells(Номер, 2).Value);
       Количество = ТекЛист.Cells(Номер, 3).Value;
       Цена = ТекЛист.Cells(Номер, 4).Value;
//        Сумма = ТекЛист.Cells(Номер, 7).Value;
       
       Строка = Документ.Товары.Добавить();
       Строка.Номенклатура = Номенклатура;
       Строка.Количество = Количество;
       Строка.Цена = Цена;
//        Строка.Сумма = Сумма
       Номер = Номер + 1;
       НомерСтроки = ТекЛист.Cells(Номер, 1).Value;
   КонецЦикла;
   
   Документ.Записать();
   Excel.Quit();
   Документ.Открыть();
                         
КонецПроцедуры

Здесь все просто - в Excele тип строка, у реквизита тоже.
Интересует еще такой вопрос, как быть, если в документе тип у поля - Спр.Ссылка.Организации, а в Excele - строка. И соответственно не происходит записи.

найди организацию в 1с по значению того реквизита, который у тебя в строке Excel.

Не понял. У меня вообще пустая база.

(180) Ну а чего ж ты хочешь?!! Если у тебя база пустая?

(180) Создай Организацию.. в справочнике Организации..ручками.

Так я хочу из Excel все записать в док-т Оприходование товаров

(183) ты на какую оргнизацию приходовать собрался.. которой нет?
ну сделай так.. Справочники.организации.СоздатьОбъект();

(183) Ну..., а в док. ОприходованиеТоваров реквизит Организация - это СправочникСсылка.Организации? Вот и проверяй есть ли элемент с таким Наименованием или Кодом, по чему ты там ищешь? Нет так добавляй....

Справочники.организации.СоздатьОбъект("Организация1"); Так?

А потом так?
Организация = ТекЛист.Cells(1, 2).Value;)
Если Организация из Спр.организации тогда...

Или так?
Организация = Спр.Организации.НайтиПоНаименованию(Строка(ТекЛист.Cells(1, 2).Value));

Организация = ТекЛист.Cells(1, 2).Value;)
ВремОрг = Справочники.организации.НайтиПОРеквизиту("ТвойРеквизит",Организация);
Если ВремОрг.Пустая()  тогда
Справочники.Организации.СоздатьОбъект();
Конецесли;

ВремОрг - это что значит - временная организация?
Глупый вопрос: реквизит - который у док-та, да?

тьху..
Организация = ТекЛист.Cells(1, 2).Value;)

Если Справочники.организации.НайтиПОРеквизиту("ТвойРеквизит",Организация).Пустая()  тогда
Справочники.Организации.СоздатьОбъект();
Конецесли;

рекизит который есть у элемента справочника организации. его значение у тебя в ячейке xl.

(189)Опять пишет про несоответствие типов

(190) Твоя ошибка не в коде по большому счету, а в отсуствии понимания 8.0 как таковой. Тебе могут ответить на кучу вопросов, но пока ты не поймешь разница , скажем между ссылкой,объектом и менеджером документа - ты просто не врубишься в код. Да и вообще - начни с концепции - регистры,движения и пр..

Справочники.Организации.СоздатьОбъект(); ничего не создается, какие параметры должны быть?

Организация = ТекЛист.Cells(1, 2).Value;)

Если Справочники.организации.НайтиПОРеквизиту("ТвойРеквизит",Организация).Пустая()  тогда
Нов = Справочники.Организации.СоздатьОбъект();
Нов.Реквизит1 = бла- бла - бла;
--
--
Нов.Записать();
Конецесли;

автор.. стыдно должно быть. это не верх программирования и не сложный вопрос..
почитай чего - нить, в самом деле..

Как создать новый файл Эксель и сохранить его с произвольным именем?

получитьCOMобъект.. в СП посмотри..

File = ПолучитьCOMОбъект("C:\123.xls","Excel.Application");

Ошибка при вызове метода контекста (ПолучитьCOMОбъект): Ошибка получения объекта COM: Интерфейс не поддерживается

+196  (195)так она хочет обратиться уже к имеющемуся файлу, а мне нужен новый.

(197) 100 раз уже было...
Excel = Новый COMОбъект("Excel.Application");
Книга=Excel.Workbooks.Add();

(198) Епта, я сохранить не могу с именем файла!!!
(195), (198) Смотрите (194)!

(197)File = ПолучитьCOMОбъект(,"Excel.Application");

(199) Книга.SavaAs("C:\sdfsdf.xls");

(193)Ошибка при вызове метода контекста (Записать): Операция не выполнена!
           Нов.Записать();

Служебное сообщение:Перед записью в элементе справочника "Номенклатура" необходимо заполнить "базовая единица"! Откуда эта баз. единица, если эл-т справочника создается новый???

Кстати, а где определить имя этого нового эл-та в (193)?

(199)Книга.SaveAs("sdf.xls");

(200) ПитсдеТЗ! ты сам Синтаксис читал? Там даже екземпл есть, вот он:

// Получение объекта COM, соответствующего файлу
Таб = ПолучитьCOMОбъект("C:\DATA\DATA.XLS");

// Создание нового экземпляра объекта
Таб = ПолучитьCOMОбъект("", "Excel.Application");

// Получение активного объекта
Таб = ПолучитьCOMОбъект( , "Excel.Application");

(202) в поиск. это я объяснять не буду.. и думаю никто не будет.. тема уже столько раз обсуждалась..
Справочники.ЕдиницыИзмерения.. откуда бы ещё ей взятся

(203) Ща посмотрю

(204) чё ты орёшь как потерпевший.. кавычки забыл. это да.

(205)Я создаю новый эл-т справочника и не добавляю такой реквизит (ед.измерения), почему же программа на него ссылается?

(208) Смотри в модуле объект ПриЗаписи()

а это новый файл в Экселе:
Excel = Новый COMОбъект("Excel.Application");
Книга=Excel.Workbooks.Add();
Книга.SaveAs(ИмяФайла);
Зачем получать СОМОбъект? Это извращение какое-то...

(208) потому что у валенков должна быть единица измерения штуки.. ты ж их как то хранить будешь.. или кг.. какая разница.. главное чтобы она была(ед изм.)
т.е. как происходит - при создании элемента справочника надо ещё создавать и единицу измерения.

Написал Нов.БазоваяЕдиницаИзмерения = "шт";, а все-равно таже ошибка

(210) сам ты извращенец)) а методом Новый COMObject ты чего делаешь?
Новый COMObject("Excel.Application");
и
GetCOMObject("","Excel.Application") думаю что они равноценны..

(212) я ж говорю.. клиника..
Нов.БазоваяЕдиницаИзмерения  - тип - ссылка на элемент справочника единицы измерения..

Так что-ли?

Код = ТекЛист.Cells(Номер, 1).Value;
       Ссылка = Справочники.Номенклатура.НайтиПоКоду(Код);
       Если Ссылка.Пустая() Тогда
           Нов = Справочники.Номенклатура.СоздатьЭлемент();
           Нов.Код = Код;
           Нов.Наименование = ТекЛист.Cells(Номер, 2).Value;
           БазЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
           Нов.БазоваяЕдиницаИзмерения = БазЕдИзм;
           Нов.Записать();

Вернее так

Код = ТекЛист.Cells(Номер, 1).Value;
       Ссылка = Справочники.Номенклатура.НайтиПоКоду(Код);
       Если Ссылка.Пустая() Тогда
           Нов = Справочники.Номенклатура.СоздатьЭлемент();
           Нов.Код = Код;
           Нов.Наименование = ТекЛист.Cells(Номер, 2).Value;
           БазЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
           БазЕдИзм.Наименование = "шт";
           Нов.БазоваяЕдиницаИзмерения = БазЕдИзм;
           Нов.Записать();

Все-равно пишет, что баз.ед.изм не задана

А как создать каталог, в который запишется файл?

(216) нда..я тебя малясь дезинформировал.. суть от этого не меняестся.. тип у БазовойЕдиницыИзмерения элемент справочника КлассификаторЕдиницИзмерения..кстати, он скорее всего уже создан.. посморти в пользовательском режиме.. если нет, создай..

(217) Например так:
СоздатьКаталог("C:\Temp");

Точно, у БазовойЕдиницыИзмерения тип СправочникСсылка.КлассификаторЕдиницИзмерения, и этот эл-т уже создан.

Так как тогда вытянуть оттуда ед.изм., совсем запутался?

   БазЕдИзм = Справочники.КлассификаторЕдиницИзмерения;
   БазЕдИзм.Наименование = "шт";
   Нов.БазоваяЕдиницаИзмерения = БазЕдИзм;

Так?

(220) БазЕдИзм = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");

БазЕдИзм=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
// можно так, если она там уже есть конечно...

(221) опередил....

Хех, я думал будет группа, а получился список.

Только что все работало.
Добавил

           НомГруппа = Справочники.НоменклатурныеГруппы.СоздатьГруппу("Основная");
           Нов.НоменклатурнаяГруппа = НомГруппа;
           Нов.Код = "001";

Пишет, что много фактических параметров. А каких именно?

(225)СоздатьГруппу (CreateFolder)
Синтаксис:
СоздатьГруппу()
Возвращаемое значение:
Тип: СправочникОбъект.
Описание:
Создает новую группу справочника.
Пример:
НовыйОбъект = Справочники["Контрагенты"].СоздатьГруппу();
НовыйОбъект.Наименование = "Покупатели";
НовыйОбъект.Записать();

вот скажи мне.. где там написано что в метод СоздатьГруппу можно передавать параметр

СсылкаНомГр = Справочники.НоменклатурныеГруппы;
   Если СсылкаНомГр.ПустаяСсылка() Тогда
       НомГр = Справочники["Номенклатура"].СоздатьГруппу();
       НомГр.Наименование = "Основная";
       НомГр.Записать();
   КонецЕсли;

Ошибка: Преобразование значения к типу Булево не может быть выполнено
   Если СсылкаНомГр.ПустаяСсылка() Тогда

До того, как добавил условие если...тогда - все работало, а теперь нет, в чем дело?

А это по твоему на чё ссылка: СсылкаНомГр?

Не, вот так

   Пока НомерСтроки <> "#" Цикл    
       КодНомГр = Справочники.НоменклатурныеГруппы;    
       СсылкаНомГр = Справочники.НоменклатурныеГруппы.НайтиПоКоду(КодНомГр);
       Если СсылкаНомГр.Пустая() Тогда
           НомГр = Справочники["Номенклатура"].СоздатьГруппу();
           НомГр.Наименование = "Основная";
           НомГр.Записать();
       КонецЕсли;

Почему-то создается сразу две одинаковые группы, из-за чего это? И почему, если группа уже создана,то создается еще и еще, в условии же сказано: Если СсылкаНомГр.Пустая...?

up

КодНомГр = Справочники.НоменклатурныеГруппы;  - это чего такое
                                                             \|/
СсылкаНомГр = Справочники.НоменклатурныеГруппы.НайтиПоКоду(КодНомГр);

Ну, типа я ищу по коду.

А как тогда проверить есть ли такая группа или нет?

(232) Ну типа и ищи по коду, а ты чё делаешь? КодНомГр = Справочники.НоменклатурныеГруппы;

Так я вроде так и делаю

       СсылкаНомГр = Справочники.НоменклатурныеГруппы.НайтиПоКоду(XYZ);

А что тогда писать вместо "XYZ"?

(69) В указанном случае перебор лучше осуществлять
с помощью цикла Для Каждого (For Each)

(235) ЗНАЧЕНИЕ..
а  Справочники.НоменклатурныеГруппы; - это Справочник в целом.. вернее, ссылка на справочник..

(237)Так где я возьму значение, если такой группы еще нет. Я же ее создать хочу

(238) бери код из екселя.. если код группы неважен поставь автонумерацию в справочнике и не мучайся.

Автонумерация стоит, тогда вообще становится непонятно, как проверять ссылку на пустоту. А почему у меня две группы создаются???

Пока НомерСтроки <> "#" Цикл    

       КодНомГр = Справочники.НоменклатурныеГруппы;    
       СсылкаНомГр = Справочники.НоменклатурныеГруппы.НайтиПоКоду(КодНомГр);
       Если СсылкаНомГр.Пустая() Тогда
           НомГр = Справочники["Номенклатура"].СоздатьГруппу();
           НомГр.Наименование = "Основная";
           НомГр.Записать();
       КонецЕсли;
НомерСтроки - вот и создаётся 2..(в цикле две итерации)
искать уже созданную? либо по коду либо по одному из реквизитов..

Где две итерации? СоздатьГруппу написано 1 раз. Надо что-ли вне цикла это писать? И еще, когда код доходит до 9, то пишет: код не уникален

(242) скажи мне , сколько у тебя строк с группами в файле xl?

КодНомГр = Справочники.НоменклатурныеГруппы;    
   СсылкаНомГр = Справочники.НоменклатурныеГруппы.НайтиПоКоду(КодНомГр);
   Если СсылкаНомГр.Пустая() Тогда
       НомГр = Справочники["Номенклатура"].СоздатьГруппу();
       НомГр.Наименование = "Основная";
       НомГр.Записать();
   КонецЕсли;
   Пока НомерСтроки <> "#" Цикл    
       Код = ТекЛист.Cells(Номер, 1).Value;
       Ссылка = Справочники.Номенклатура.НайтиПоКоду(Код);
       Если Ссылка.Пустая() Тогда
           Нов = Справочники.Номенклатура.СоздатьЭлемент();
           Нов.Код = Код;
           Нов.Наименование = ТекЛист.Cells(Номер, 2).Value;
           Нов.НаименованиеПолное = ТекЛист.Cells(Номер, 3).Value;
       .....
           Нов.НоменклатурнаяГруппа = НомГр.Наименование;
           Нов.Записать();
       КонецЕсли;    

Почему у меня в форме списка в колонку НоменклатурнаяГруппа не записывается название группы??? Что не так?

up

Если это:
файл = Новый ComОбъект("Excel.Application") - COM соединение, тогда как создать OLE соединение?

(246) файл = Новый ComОбъект("Excel.Application") - это OLE. COM используется тогда, когда вызываемое приложение заточено под COM. Да и принципиальная разница у этих интерфейсов небольшая.

я не умею програмировать на 1 с как быстро научиться програмировать бесплатно

(248) Убей себя и родись заново.
Дешево, но результат не гарантирован