Sub my1()
For Each mName In Array("a", "b", "c")
...
''' ...import
Next
End sub
Можно ли записать массив в виде функции?
Такой вопрос.
Есть две примитивных процедурки:
и
Можно ли избежать двойной записи массива? Если надо будет добавить еще пару-тройку элементов, то можно ли не записывать их в два места, а вынести куда-то в функцию, чтобы дописывать пришлось бы одном месте?
Есть две примитивных процедурки:
Код:
и
Код:
Sub my2()
For Each mName In Array("a", "b", "c")
...
''' ...export
Next
End sub
For Each mName In Array("a", "b", "c")
...
''' ...export
Next
End sub
Можно ли избежать двойной записи массива? Если надо будет добавить еще пару-тройку элементов, то можно ли не записывать их в два места, а вынести куда-то в функцию, чтобы дописывать пришлось бы одном месте?
К сожалению,в VB преинициализированные массивы недоступны.Поэтому как минимум инициализируйте массив в цикле где-то в начале
Также могу предположить,что VB оптимизирует такую конструкцию и вместо 2х массивов создаёт 1
Также могу предположить,что VB оптимизирует такую конструкцию и вместо 2х массивов создаёт 1
Sub my1
For i = 0 To UBound(mymod)
... import
Next
End Sub
Function mymod()
mymod = Array("a", "b", "с")
End Function
For i = 0 To UBound(mymod)
... import
Next
End Sub
Function mymod()
mymod = Array("a", "b", "с")
End Function
Так тоже будет работать :
Код:
Sub Macros1()
Dim vItem 'As Variant
For Each vItem In getArray
MsgBox vItem
Next
End Sub
Function getArray() 'As Variant
getArray = Array("a", "b", "ñ")
End Function
Dim vItem 'As Variant
For Each vItem In getArray
MsgBox vItem
Next
End Sub
Function getArray() 'As Variant
getArray = Array("a", "b", "ñ")
End Function