Присвоение переменной Querytable.TextFileColumnDataTypes

Question

У меня есть код, который импортирует данные из файла CSV в Excel с помощью этого фрагмента;

 With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFileToOpen,_ 
 Destination:=Range(rngFirstCell.Address))
.TextFileColumnDataTypes = Array(1, 1, 1, 9)

Я хотел бы присвоить переменную части Array (1,1,1,9), а затем использовать ее в этом коде, например

Case 1 
  strMyArray = "Array(1,1,1,9)"
Case 2 
  strMyArray = "(Array(1,1,1,1,1,1,1,9)"

И, следовательно;

.TextFileColumnDataTypes = strMyArray

Это правильный путь?

спасибо

Answer 1

Вот ответ;

Dim vMyArray As Variant
vMyArray = Array(1, 1, 1, 9)

..... а затем;

    .TextFileColumnDataTypes = vMyArray