ＷＳＨで、ＥＸＣＥＬにワークシートをＣＳＶから読み込んで追加したい。

質問

ＷＳＨを使って、ＥＸＣＥＬを起動して、既存のＣＳＶファイルからデータを読み込みたいのですが、複数のＣＳＶから読み込むなどして、同じワークブックの新しいシートにＣＳＶから読み込んだデータを追加していきたいのですが、どうやればよいのかわかりません。
下のソースのようにしたのですが、そうすると、別のワークブックとして開いてしまうので、わからなくなってしまいました。お願いします。

set Exl=CreateObject("Excel.Application")
Exl.Visible=True
Exl.workbooks.add
Exl.workbooks.OpenText "c:\data.csv"

回答No.2

taka_tetsu · ベストアンサー

ヘルプを見ると次のように書いてあります。
expression.Copy(Before, After)

expressionは対象のオブジェクト式、つまり、コピーするシートのことです。

で、Before、Afterはコピーする位置を指定します。
Beforeで指定したシートの前、もしくはAfterで指定したシートの後という感じになります。

で、Before:=という形式(名前付き引数)なんですが、次のように記述すればOKです。

Beforeで指定したいとき
Sheets("Sheet1").Copy Workbooks("Book1").Sheets(1)

Afterで指定したいとき
Sheets("Sheet1").Copy , Workbooks("Book1").Sheets(1)

ようは、カンマで引数を区切って並べるだけです。
記述した引数以降の引数を省略するときは特に何も気にすることはないのですが、記述した引数より前の引数を省略したい(今回はAfterを記述するけどBeforeは省略というケース)では、省略する引数の数分カンマを入れておく必要があります。

>ブックでなく、特定のシートだけに外部ファイルの内容をインポートするような機能はやはり、無いのでしょうか。

もう、そうなるとインポートではなくなってしまいます。
直接ファイルを開いてその内容を自分でセルの中へ格納するようなことが必要になってきます。
FileSystemObjectなどを使うことになります。

お礼

わかりやすい説明で、よくわかりました。
問題が解決しました。
大変お世話になりました。どうもありがとうございました。
これでもう := にも困ることがなさそうです。

回答No.1

taka_tetsu

>下のソースのようにしたのですが、そうすると、別のワークブックとして開いてしまうので、わからなくなってしまいました。

それでいいのでは？
あとは、別のワークブックとして開かれたCSVのシートを、元の追加したいブックにコピーしてあげればお望みの結果になると思うのですが。

お礼

ありがとうございます。その方法で上手く行きそうですね。ブックも複数扱えるという考え方に慣れていなくて、思いつきませんでした。

ブックでなく、特定のシートだけに外部ファイルの内容をインポートするような機能はやはり、無いのでしょうか。

補足

ＥＸＣＥＬマクロの自動記録で得たソースなのですが、
Sheets("Sheet1").Copy Before:=Workbooks("Book1").Sheets(1)
のようなソースでシートをコピーできますよね
でも、ＷＳＨではこれが、:= の部分を認識できないのか、動作しないのです。
他の:=を含むコマンドも、どれも認識しないようです。
ＷＳＨでは、:=を含む表現をどのようにやればよいのでしょうか。