エクセルならうまく行くのですがアクセスだとエラーに

質問

エクセルならうまく行くのですがアクセスだとエラーになるのですがなぜでしょうか？

フォルダに入ってるフォルダ名を全て取得して一つにつなげたいのですが

Sub フォルダ名を取得()
参照設定：Microsoft Scripting Runtime

Dim MyFSO As Object
Dim MyGetFolder As String
Dim MyFolderName As String
Dim MyFolder As Folder
Dim i As Long

MyGetFolder = "D:\My Documents"

Set MyFSO = CreateObject("Scripting.FileSystemObject")
With MyFSO
With .GetFolder(MyGetFolder)
For Each MyFolder In .SubFolders
MyFolderName = MyFolderName & "," & MyFolder.Name
Next
End With
End With

MsgBox MyFolderName

Set MyFSO = Nothing

End Sub

これを実行するとアクセスだと
For Each MyFolder In .SubFolders
で、実行時エラー13　型が一致しません。
になります。

エクセルもアクセスも参照設定：Microsoft Scripting Runtimeにチェックを入れています。

コードはネットで拾ってきたコードです。
オフィスの種類は2003・OSはXPです。

回答No.1

DexMachina · ベストアンサー

> アクセスだとエラーになるのですがなぜでしょうか？

こちらの環境(Acc2003・WinXP Home)にて、提示されたコードを
標準モジュールに貼り付けて、イミディエイト ウィンドウから実行して
みましたが、サブフォルダ名が問題なく表示されました。

> For Each MyFolder In .SubFolders
> で、実行時エラー13　型が一致しません。

とのことですが、FileSystemObjectのSubFoldersのメンバーの型は
Folderで間違いありません。

ですので、可能性としては
　a)「Microsoft Scripting Runtime」よりも優先順位が上の参照先
　　で、「Folder」という名前のオブジェクトが定義されている
　b)同じMDBファイルに、「Folder」という名前のクラスモジュールがある
といったことが考えられます。
(別のクラスで定義されたFolder型の変数に、FileSystemObjectの
　Folderを格納しようとしたため、型不一致となった、と)
※そちらの環境下で、新規ファイルを作成して、Microsoft Scripting
　Runtimeへの参照のみを追加した状態で、提示されたコードをすれば、
　この推測の正否を確認できます)

上記の推測が正しければ、以下のように「何が定義しているFolderか」
を明示する形に修正すれば、エラーにはならなくなるはずです。
(但し、独自のクラスモジュールで「Folder」を定義している場合は、
　今回発生したようなエラーを未然に防ぐため、名前の変更を検討される
　ことをお勧めします)

【現在】
　　Dim MyFolder As Folder
【修正】
　　Dim MyFolder As Scripting.Folder

お礼

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