将变量分配给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