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


まっちゃん  2004-07-08 05:03:00  No: 114611

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

以下のようなマクロ(だいぶ省略しています)で、
項目(列)数の違う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 22:35:54  No: 114612

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加