複数のエクセルファイルをインポートする方法

質問

仕事でアクセスを使ってエクセルファイルをまとめて分析する
ようなことしてますが、任意に指定したフォルダにある
エクセルファイルの指定したワークシートをインポートする
コードがわかりません。

ちなみに

Fanction ExcelDataImport()

On Error GoTo エラー

　Dim varac As Variant
Dim varxls As Variant
Dim strrange As String
Dim strmsg As String

varac = "tab_原価構成"
varxls = "c:\原価構成表.xls"

のこのエクセルファイルを指定する部分で任意のフォルダの中の
すべてのエクセルファイルを指定したいのと・・

strrange = "sheet2!b1:z1000"

複数のエクセルファイルだが、シート名は同じで指定する
範囲も同じ場合はこれでいいのか？
がわかりません。

どなたか教えていただけないでしょうか？

お手数ですがよろしくお願いします。

回答No.1

noname#60992 · ベストアンサー

1. ファイル名を取得するために、Dir関数をつかう。
http://oshiete1.goo.ne.jp/qa273683.html
No3の方の回答のDo～loop の間をXLSを探して、インポートするよう書き直せばよいと思います。

2.インポートに関しては、
TransferSpreadsheetを使うことを考えておられるのかな？　シート名や範囲は全部同じなら、そのままでよいと思います。
ADOを使っても、結構簡単にできると思います。　
エクセルを開いてデータを見に行くという方法もないわけではありません。
http://oshiete1.goo.ne.jp/qa1288709.html

お礼

ありがとうございます。

わからなかったのでまずマクロで複数ファイルのワークシートを
１つのファイルにまとめてインポートする方法にしました。

また後で研究してみます。

どうもありがとうございました。