Вызов объектов Wscript.Shell с именем из переменной - VBA

Узнай цену своей работы

Формулировка задачи:

Задача: есть переменная, в которой задается количество объектов Wscript.Shell, которые надо вызвать. Как мне вызвать нужное количество этих объектов (с уникальными именами, чтобы потом работать с ними), если я не знаю значение этой переменной? Например мне надо вызвать 10 окошек internet erxplorer
Листинг программы
  1. objQty = 10
  2. for i = 1 to 10
  3. Set Obj & objQty = CreateObject("InternetExplorer.Application") 'естественно такое не сработает
  4. next i
а как быть тогда? Вот например на пайтоне подобная задача использования переменных в имени функции реализуется через exec()
Листинг программы
  1. def A1(): print ("1")
  2. def A2(): print ("2")
  3. ...
  4. def A10(): Print("10")
  5. for i in range(1,10):
  6. exec ("A"+i+"()")

Решение задачи: «Вызов объектов Wscript.Shell с именем из переменной»

textual
Листинг программы
  1. Sub А1(): MsgBox "1": End Sub
  2. Sub А2(): MsgBox "2": End Sub
  3.  
  4. Sub test()
  5. Dim i&
  6.   For i = 1 To 2: Run "А" & i: Next
  7. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы