項目数の違うCSV取込で文字型を指定するには？

まっちゃん 2004-07-07 20:03:00 No: 114611 IP: [192.*.*.*]

はじめて質問させていただきます。
宜しくお願いいたします。

以下のようなマクロ(だいぶ省略しています)で、
項目(列)数の違うCSVファイルを
各項目の文字型にあわせて読み込みたいのですが、
『プロシージャの呼出、または引数が不正です』
とエラーが発生し、上手くいきません。

TextFileColumnDataTypesを複数のCSVファイルに
対応させる方法をご存知の方、ご教授ください。

Public Sub READ_TextFile()

Dim strARRAY As String
Dim FileName As String

    FileName = Application.GetOpenFilename()

        If FileName = "A.Txt"
          strARRAY = "1,2,2"
        Else
          strARRAY = "1,1,1,2,5"
        End If

    FileName = "TEXT;" & FileName

    With ActiveSheet.QueryTables.Add(Connection:=FileName, Destination:=Cells(1, 1))

        .TextFileColumnDataTypes = Array(strARRAY)

    End With

End Sub

編集削除

特攻隊長まるるう 2004-07-08 13:35:54 No: 114612 IP: [192.*.*.*]

ヘルプには Variant 型を受け取るみたいに書いてあるけど
結局、エクセルの定数の配列だから Integer 型の配列に
入れ替えてやればうまく受け取ってくれるみたいですよ。

編集削除