Имя: Пароль:
1C
1C 7.7
v7: Выгрузка их Excel в 1С
0 romiras
 
17.02.12
14:07
Есть вот такой кусок кода в Excel

Sub ZagruzV1C()
Dim trade As Object
Dim факт  As Object
Set trade = CreateObject("V77.Application")
result = trade.Initialize(trade.RMTrade, "D:\1С\new77 .........)
Set факт = trade.EvalExpr("CreateObject(""Документ.СдаточнаяНаклНов"")")
факт.новый
факт.новаястрока
   counter = 1
   Do While counter <= 10
   Имя1 = "Сумма" + Trim(Str(counter))
   trade.EvalExpr ("УстановитьАтрибут(Имя1,    Application.Sheets(List).Cells(1, counter + 5).Value)")
   counter = counter + 1
   Loop
факт.записать

Вот на этой строке выдает ошибку - Функция не обнаружена (УстановитьАтрибут)
   trade.EvalExpr ("УстановитьАтрибут(Имя1,    Application.Sheets(List).Cells(1, counter + 5).Value)")

Подскажите что не так???
1 Heckfy
 
17.02.12
14:08
Блин, я обычно из 1С к Екселю цепляюсь....о_О
2 Fish
 
17.02.12
14:10
(1) +100 Жесть :))
3 romiras
 
17.02.12
14:11
Если на прямую написать
факт.Сумма1=Application.Sheets(List).Cells(1, counter + 5).Value)
Работает на ура
4 ЧеловекДуши
 
17.02.12
14:11
ПятницО?
5 romiras
 
17.02.12
14:12
Ну да ПятницО!!! Но имею эту проблему со вторника!!!!))))
6 ЧеловекДуши
 
17.02.12
14:13
(3)Сударь, зачем вам из ВБА карачиться в 1С.
Ведать вам в жизни не хватает геморрою ;)
Когда народ с трудом делает и обратное ;)
7 ЧеловекДуши
 
17.02.12
14:13
(5)Попробуй наоборот, из 1С получить доступ к екселю ;)
8 romiras
 
17.02.12
14:14
Тоесть только вариант использовать Excel из 1С, а не наоборот?
9 ЧеловекДуши
 
17.02.12
14:14
Да
10 Fish
 
17.02.12
14:14
(0) Вброс из Excel в 1С засчитан :))))
11 RomaH
 
naïve
17.02.12
14:15
trade.EvalExpr ("УстановитьАтрибут(Имя1,    Application.Sheets(List).Cells(1, counter + 5).Value)")

Application - это что и где.?
12 ЧеловекДуши
 
17.02.12
14:15
И можно грузить данные из екселя в 1С через АДО.
Куда быстрее получается ;)
13 romiras
 
17.02.12
14:17
(11) Application.Sheets(List).Cells(1, counter + 5).Value ссылка на ячейку
14 romiras
 
17.02.12
14:17
на листе
15 romiras
 
17.02.12
14:18
(10) А вот у меня чото не засчитан(((
16 RomaH
 
naïve
17.02.12
14:18
а где?
УстановитьАтрибут - это что?
17 RomaH
 
naïve
17.02.12
14:19
EvalExpr  - это что?
18 Heckfy
 
17.02.12
14:19
19 Heckfy
 
17.02.12
14:20
20 romiras
 
17.02.12
14:23
(17)
EvalExpr
Вычислить выражение системы 1С:Предприятие.
Синтаксис:
EvalExpr(<СтрокаВыражения>)
21 romiras
 
17.02.12
14:25
(16)

Установить значение реквизита по имени идентификатора.
Синтаксис:
УстановитьАтрибут(<ИмяРеквизита>, <3начение>)
Метод УстановитьАтрибут позволяет установить значение реквизита по имени идентификатора, как оно задано в конфигураторе.
22 K-5
 
17.02.12
14:26
(0) зачет)))
23 Абыр
 
17.02.12
14:27
факт.УстановитьАтрибут
24 romiras
 
17.02.12
14:29
(23) Excel выдал Compile Error: Expected : =
25 romiras
 
17.02.12
14:31
Всем спасибо!!! Отработал вариант temp=факт.УстановитьАтрибут(....)
26 romiras
 
17.02.12
14:32
Наверное всё таки сказывается ПятницО
27 romiras
 
17.02.12
14:38
(23) Отдельное спасибо!!! Натолкнул на мысль
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.