VBA присвоить определеное количество тегов

[dany]

ситуация следующая изначально считываю значения из Exscel в Array K(p) (значений 300)затем прсваиваю эти значения из K(p) тегам при этом хочу присвоить ровHо столько солько захочет оператор (всегда от 0 и до...max. 300) проблема именно в том что я присваиваю значения всем,а как сказать например если 3 то только от 0 до двух остольное не делай

gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv0coil_number") = K(0)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv1coil_number") = K(1)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv2coil_number") = K(2)gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv3coil_number") = K(3)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv4coil_number") = K(4)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv5coil_number") = K(5)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv6coil_number") = K(6)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv7coil_number") = K(7)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv8coil_number") = K(
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv9coil_number") = K(9)
gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv10coil_number") = K(10)

[Eraser]

что мешает в сначала посчитать считанные значения из excel, а затем в цикле, от 0 до "количество элементов в массиве из excel", присваивать нужное количество?

[dany]

большое спасибо за ответ, я скоре всего не до конца описал проблему. из Excell считываю толко то что нужно т.е от 0 до 2 .

For lokK = 0 To Val
K(lokK) = mySheet.Cells(lokK + 23, K).Value

проблема в коммуникации, ведь в контроллер будут записаны все теги от 0 до 10. т.е от 0 до 2 со значениями а потом все с 0, но они будут записаны, пока это 10 тегов нет проблем а кода 1000.продлится вся передача минуты 3. поэтому и хочу в контроллер предать только теги со значениями.

[oldDad]

А кто мешает написать програму так, чтобы записывать в контроллер только то количество тэгов, которое необходимо?
_________________
Обращайтесь к профессионалам.

[dany]

в принципе не хватает знаний Visual Basic опробовал все что знал (непошло потому что глобальные теги невозможно обрабатывать как Array) и решил обратится за помощью к вам > специалистам< может кто знает простое и элнгантное решени проблемKи

[Eraser]

может я опять не так понял задачу, но что мешает при считывании из excel считать только те тэги, что имеют отличные от 0 значения?

P.S. очень сумбурное описание задачи, мало что понятно

[dany]

я и считываю только те клетки в таблице которые со значениями, проблема дальше в присвоении этих значений глобалным тегм

gTagDb.GetTag("Various_from_HMI\HMI_Coilpar_Indiv0coil_number") = K(0) это выражение прописывает тег как в RS VIEW так и в контроллере.
задача чтоб в контроллер были прописаны например:
в первом случае 2 первых тега из возможных 10
во втором 4 первых тега из возможных 10
а в третьем все 10 из 10

вот код проги, может тоже внесет какую то ясность

[SpellBinder]

[SpellBinder]

[Eraser]

может так:

[dany]

SpellBinder
В настоящий момент код вызывается из RS View хотя с DDE попробовать конечно можно, но времяни маловато, если у вас есть желание описать, то я был бы очень признателен. или ссылочку


Eraser
Вам отдельное спасибо за код

[Eraser]

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

[SpellBinder]