エクセル マクロでのエクセルファイル取込について

質問

エクセルで別のエクセルファイルをマクロで取込み、取込したデータを自動で任意の場所にデータが入力されるようなものを作りたいと考えています。
csvデータの取込は作ることが出来たのですが、エクセルファイルをcsvデータのように取込することは出来ないでしょうか？
出来ないとしたら、取込したいエクセルファイルを一度csvで保存してからcsvとして取込するというやり方で対応するしかないでしょうか？
出来れば、取込したいエクセルファイルのシートが複数にわかれていて、全シートの情報を取込したいと考えているので、エクセルのままで全シート取り込めれば・・と思います。

何か上記の方法でなくとも、最善の方法（一番工数が少なく済む方法）があれば教えていただきたいです。
よろしくお願いします。

回答No.1

M-SOFT · ベストアンサー

こんばんは。

エクセルファイルを開いておけばいいだけだと思うのですが・・・？

セルのデータは、開いていればブック名からきちんと指定してやれば取得できます。

a = Workbooks("book1.xlsx").Worksheets("sheet1").Range("A1").Value

の様な感じ。

開くのもマクロで。

お礼

ありがとうございます。
一番最初に回答をいただけたので、こちらをベストアンサーとさせて頂きます。

回答No.3

WindFaller

こんにちは。

すでに回答は出ていますから、こちらは、今の段階では、こちらもコードを出すのは混乱するだけですから、言葉だけにします。
>csvデータの取込は作ることが出来たのですが、エクセルファイルをcsvデータのように取込することは出来ないでしょうか？
前の回答者とは違う方法で、できると言えば、出来ますが、それが、一体、どのようなものかをご希望なさっているかにもよります。
例えば、CSVファイルをExcelで、そのまま開けたり、TextQueryでインポートするとか、いろいろな方法があります。
また、DAOやADOを使う方法や、ダイレクトにセル名指しで吸い上げる方法さえあります。(←これはお勧めしません、書く側が面倒だからです。（^^;)

>取込したいエクセルファイルのシートが複数にわかれていて、全シートの情報を取込したいと考えているので、・・
というのは、一つのシートにということでしょうか。曖昧なので、ここらは意味が分かりません。

>一番工数が少なく済む方法
あまり、マクロに工程数というものは、関係ないように思います。自動で動いているのですから。
当たり前ですが、エラー処理を無視すれば、工程数は減りますね。

もし、すでに、他の回答者さんで、満足されているなら、こちらは無視なさってよいです。

お礼

ありがとうございます。

回答No.2

aozakana_dha

私が何か勘違いしているのかもしれませんが、
Workbooks.Open で開いたら任意のセルの値を取得できると思うのですが。

Public Sub sample1()
Dim wb As Workbook
Set wb = Workbooks.Open("F:book1.xlsx")
ThisWorkbook.Worksheets(1).Range("A1").Value = wb.Worksheets(1).Range("A1").Value
wb.Close
End Sub

お礼

ありがとうございます。