エクセルマクロで開いているアクセスのファイルを知る
エクセル２００７です。今立ち上がっているファイルを、エクセルの表に書き出すマクロを作りたいです。
エクセル自身はいうまでもなく、ワード、パワーポイントまで成功しました。けど、アクセスだけがうまくいきません。パワーポイント用testはうまく動くのに、アクセス用testはだめなのです。
For Each アクセス文書 In アクセスアプリケーション.databases
でこけるのです。どうも、「databases」 というところが間違っていると、目星をつけました。どう書いたらいいのか教えてください。いろいろ調べましたがわかりませんでした。
Sub パワーポイント用test()
Dim パワーポイントアプリケーション As Object
Dim パワーポイント文書 As Object
Dim カウンター As Long
カウンター = 1
Range("A2").Select
On Error Resume Next
Set パワーポイントアプリケーション = GetObject(, "PowerPoint.Application")
On Error GoTo 0
If パワーポイントアプリケーション Is Nothing Then Exit Sub
For Each パワーポイント文書 In パワーポイントアプリケーション.Presentations
カウンター = カウンター + 1
Cells(カウンター, 1) = パワーポイント文書.Name
Cells(カウンター, 2) = パワーポイント文書.FullName
Next
Set パワーポイントアプリケーション = Nothing
End Sub
Sub アクセス用test()
Dim アクセスアプリケーション As Object
Dim アクセス文書 As Object
Dim カウンター As Long
カウンター = 1
Range("A2").Select
On Error Resume Next
Set アクセスアプリケーション = GetObject(, "Access.Application")
On Error GoTo 0
If アクセスアプリケーション Is Nothing Then Exit Sub
For Each アクセス文書 In アクセスアプリケーション.databases
カウンター = カウンター + 1
Cells(カウンター, 1) = アクセス文書.Name
Cells(カウンター, 2) = アクセス文書.FullName
Next
Set パワーポイントアプリケーション = Nothing
End Sub
