No1231.アクセスからエクセルファイルのシート名をチェック

OS:windows2000
Access Version:2000

質問です。アクセスから、ファイルの有無のチェックをしたいのですが、
そのファイルが、エクセルの場合、シート名も指定できるのでしょうか？
DIR関数ではちょっとムリなようなのですが・・・。
どなたか教えてください。

> DIR関数ではちょっとムリなようなのですが・・・。
無理ですね。
DAOで良ければTableDefsでシート名の取得が可能ですよ。

tabledefsですか？具体的にはどうやってソースを書くんでしょうか・・？
教えてください。

> tabledefsですか？具体的にはどうやってソースを書くんでしょうか・・？

こんな感じですかね？
動作確認はしていませんが、多分動きます。

Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim xlsFile As String

xlsFile = "ファイルパス"
Set Db = OpenDatabase(xlsFile, True, True, "Excel 8.0;")
For Each Tbl In Db.TableDefs
　　If Right$(Tbl.Name, 1) = "$" Or _
　　　　Right$(Tbl.Name, 2) = "$'" Then
　　　　'シート名の最後は必ず$が付きます
　　　　Debug.Print Tbl.Name
　　End If
Next Tbl
Db.Close
Set Db = Nothing

できました！ありがとうございます。
こんな簡単なやり方があったんですね。不勉強ですいません。
APT関数でやるかぁ〜と思ってひたすらソースを調べてました。
ほんとありがとうございました。

突然横から失礼します。
まさに渡りに舟の感じで、下記のプログラムを昨日使いました。
ばっちり動いていたのですが、本日は必ず止まります。
どこが悪いのでしょうか？

> 動作確認はしていませんが、多分動きます。
>
> Dim Db As DAO.Database
> Dim Tbl As DAO.TableDef
> Dim xlsFile As String
>
> xlsFile = "ファイルパス"
> Set Db = OpenDatabase(xlsFile, True, True, "Excel 8.0;")
ここで止まります。

Couldn't　find　Installable　ISAM　実行時エラー３１７０

よろしくお願いします。

下記の項目を確認してみてください。

1.参照設定で参照不可になっていないか？
2.Excel Objectは参照できているか？
3.Jet を更新、もしくはExcel等再インストールしていないか？

これらをお教えください。
多分解決策はありますよ。

> 下記の項目を確認してみてください。
>
> 1.参照設定で参照不可になっていないか？
> 2.Excel Objectは参照できているか？
> 3.Jet を更新、もしくはExcel等再インストールしていないか？
>
> これらをお教えください。
> 多分解決策はありますよ。
思い出したのですがヘルプにあるアプリケーション（アクセス）の自動修復を行いました。
参照設定は、MICROSOFT　DAO　３．５１Object　Library　のチェックマークは入っています。

２．３．方法がわかりません。

すみません、以前回答した内容を見ずに書いてしまいました。
2.のチェックはしなくて結構です。
とりあえず、DAO 3.51 のチェックを外して、DAO 3.6 にチェックを付加してください。

> すみません、以前回答した内容を見ずに書いてしまいました。
> 2.のチェックはしなくて結構です。
> とりあえず、DAO 3.51 のチェックを外して、DAO 3.6 にチェックを付加してください。
直りました。シート名を取り出しエクセルからアクセスへ
データがインポートできるようになりました。
ありがとうございました。