VBAマクロでCSVファイルを取り込みたいと思っています。
下記のように記述してみたのですが、
With trSh.QueryTables.Add(Connection:= _
"TEXT;" & csvPath _
, Destination:=Range("A1"))
の行で「実行時エラー'5' プロシージャの呼び出し、または引数が不正です」エラーが発生します。
どこが悪いのでしょうか?
お気づきの方いらっしゃいましたらご指摘ください。
'取込み対象CSVファイルパス取得 csvPath = ws.Cells(8, 1).Value 'CSV取込み処理 '取込用シートを変数に入れる Set trSh = Worksheets("Sheet1") '前回データをクリア trSh.Cells.Clear With trSh.QueryTables.Add(Connection:= _ "TEXT;" & csvPath _ , Destination:=Range("A1")) 'カンマ区切りでインポート .TextFileCommaDelimiter = True 'テキストファイルの各列に適用されるデータ型を指定する定数を配列形式で設定。 .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1) '外部データ範囲(QueryTable)を更新。(上で作られたクエリはRefreshして初めて実行される。) .Refresh BackgroundQuery:=False 'QueryTableを削除してただのデータにする。 .Delete End With
回答1件
あなたの回答
tips
プレビュー