【Excel VBA】ReadCSVのOutputColを変数で指定する方法を教えてください

当方VBAスーパー初心者です。

Excelにcsvを読み込んで表示するボタンを作成しています。
やりたいこと
・すでに読み込まれているCSVの次の空白列から次のCSVを表示させたい。
・１列目と2列目は固定で読み込まない（表示させない）。
・表示させるシートの2行目にCSVの1行目から表示させる。

２、３つめは簡単に指定できましたが、
１つめの空白列の次のセルがうまく指定できません。
毎回空白列が変わってしまうので、変数を使用したいのですが、うまくいきませんでした。

そもそもOutputColに変数が使えるのかもよくわかっていません。
OutputColに名前付き引数が見つかりません。とエラー表示されます。

以下エラー表示になるコードです。
助言をお願いいたします。

--

Dim r As Range
r = Worksheets("Sheet1").Range("A2").End(xlToRight).EntireColumn.Next 'Sheet1のA2行の空白列の右隣りのセルを取得

Dim WS As Worksheet
Set WS = ReadCSV.ReadCSV(Filepath:=Filepath, OutputWorksheet:=Worksheets("Sheet1"), OutputRow:=2, SkipColumns:="1,2", OutputCol:="r")

--

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/07/10 15:10

Dim r As Range

Set r = Worksheets("Sheet1").Cells(2,Columns.Count).End(xlToLeft).Next 'Sheet1のA2行の空白列の右隣りのセルを取得

Dim WS As Worksheet
Set WS = ReadCSV.ReadCSV(Filepath:=Filepath, OutputWorksheet:=Worksheets("Sheet1"), OutputRow:=2, SkipColumns:="1,2", OutputColumn:=CStr(r.Column + 1))

違ってたらスル～して。（コピーしたＢｏｏｋで試してね）

この回答へのお礼

ありがとうございます！
これでやってみたら空白列が１列できてしまうのですが、その空白列はつめて表示したいです。
どこを直したらよいでしょうか、、、

お礼日時：2020/07/10 15:41

No.2 回答者： めぐみん_ 回答日時： 2020/07/10 15:45

No.１です。

お礼の件。
多分

＞CStr(r.Column + 1)

ここで取り込んだデータを１列あけてと思いまして +1 を入れましたが、それが邪魔であれば +1 を消してください。

この回答へのお礼

できました！！！
めぐみん_さんありがとうございました！
最初の回答をベストアンサーに選ばせてもらいました！

お礼日時：2020/07/10 15:49