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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめて質問させていただきます。 宜しくお願いいたします。 以下のようなマクロ(だいぶ省略しています)で、 項目(列)数の違う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