|
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) Отдельное спасибо!!! Натолкнул на мысль
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |