Access2010でオブジェクトの一覧表を作りたい...

Microsoft Access2010 を起動した。前回は Access2003 だったから、単純に引いて 7年ぶり‥‥ ぐらい。リボン形式に変わっており、前に進めない...
組んだシステムの内容も全く忘れている。どこに何があるのかさっぱりわからない。そこで、オブジェクトの一覧を作るモジュールから挑戦した。

■　参考サイト） Access Tips by pPoy
上記サイトを参考（首っ引き）に、オブジェクトを CSVファイルに書き出すモジュールに四苦八苦した。先が思いやられる...

1. '概要：オブジェクト（テーブル、クエリー、フォーム、レポート、マクロ、モジュール）一覧をCSV出力する。
2. Sub writeAllModules()
3. Dim obj As AccessObject, dbs As Object
4. Dim dsn As Long
5. Dim strPath As String, strFile As String, strCSVFile As String
6. 　
7. strPath = Application.CurrentProject.Path
8. strFile = Application.CurrentProject.Name
9. strCSVFile = Left(strFile, InStrRev(strFile, ".")) & "csv"
10. 　
11. dsn = FreeFile
12. Open strPath & "\" & strCSVFile For Output As #dsn
13. 　
14. Set dbs = Application.CurrentData
15. 'AllTables コレクションから検索
16. For Each obj In dbs.AllTables
17. If Left(obj.Name, 4) <> "MSys" Then
18. Write #dsn, strPath, strFile, "テーブル", obj.Name
19. End If
20. Next obj
21. 'AllQueries コレクションから検索
22. For Each obj In dbs.AllQueries
23. Write #dsn, strPath, strFile, "クエリー", obj.Name
24. Next obj
25. Set dbs = Nothing
26. '
27. Set dbs = Application.CurrentProject
28. 'AllForms コレクションから検索
29. For Each obj In dbs.AllForms
30. Write #dsn, strPath, strFile, "フォーム", obj.Name
31. Next obj
32. 'AllReports コレクションから検索
33. For Each obj In dbs.AllReports
34. Write #dsn, strPath, strFile, "レポート", obj.Name
35. Next obj
36. 'AllMacros コレクションから検索
37. For Each obj In dbs.AllMacros
38. Write #dsn, strPath, strFile, "マクロ", obj.Name
39. Next obj
40. 'AllModules コレクションから検索
41. For Each obj In dbs.AllModules
42. Write #dsn, strPath, strFile, "モジュール", obj.Name
43. Next obj
44. 　
45. Set dbs = Nothing
46. Close #dsn
47. 　
48. End Sub