使用VBA中的FieldInfo動態格式化Workbook.OpenText上的列

Question

我正在VBA中編寫一個程序來open文本文件。 我想format單元格文本on open持之以恆數據（問題：長數串被轉換成數字，截斷）。

通過研究，我了解到可以使用.OpenText的FieldInfo參數完成此操作。

當前在互聯網上運行的所有示例都是靜態的，需要程序員在FieldInfo:=Array(Array(1,2),Array(2,2).....Array(n,2)進行硬編碼。

這是我最接近答案的方法，但這也不起作用。 http://www.excelforum.com/excel-general/522433-workbooks-opentext-method-fieldinfo-parameter.html 。 它給我一個1004錯誤。 這是我的版本：

Dim colInfo(1 To 1000,1 To 2)
For i = 1 To 1000
    colInfo(i , 1) = i
    colInfo(i , 2) = 2
Next i

我在Array上找不到任何vba文檔。 如果我能弄清楚如何創建一個Array變量而不是Dim x() As y ，那么我可以解決這個問題。 任何幫助將不勝感激！

Answer 1

Array函數僅返回一個變體-這只是初始化的一種快速方法。 因此，您可以只創建其中之一，然后將其作為參數傳遞。 例如：

Sub abc()

Dim v1 As Variant, v2 As Variant

v1 = Array(1, 2, 3)

ReDim v2(3)
v2(0) = 1
v2(1) = 2
v2(2) = 3

MsgBox v1(0) & vbTab & v2(0) & vbCr & v1(1) & vbTab & v2(1) & vbCr & v1(2) & vbTab & v2(2)

End Sub

這兩個數組（v1和v2）相同。

我希望這有幫助。