DAO DAOを使いMDBファイルのテーブル名を取得(ExcelVBA)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub DAO_Table_Name() '*************************************************** 'DAOを使いMDBファイルのテーブル名を取得(ExcelVBA) '*************************************************** '[Microsoft DAO 3.6 Object Library]参照設定 Dim objDtbs As DAO.Database Dim strFilePath As String Dim strFileName As String Dim objTbl As TableDef Dim strTblName As String Dim strMsg As String strFilePath = ThisWorkbook.Path 'ファイルのパス strFileName = "KEN_ALL.mdb" 'ファイル名 '【エラートラップ】 On Error GoTo Table_Name: 'データベースを開く Set objDtbs = OpenDatabase(strFilePath & "\" & strFileName) strMsg = "" For Each objTbl In objDtbs.TableDefs strTblName = objTbl.Name If InStr(1, Mid(strTblName, 1, 4), "MSys") = 0 Then strMsg = strMsg & strTblName & vbCr Debug.Print strTblName End If Next objTbl MsgBox strMsg, 0, "DAO_Table_Name" Exit Sub '【エラートラップ】 Table_Name: MsgBox "予期せぬエラーが発生しました。" & vbCrLf & Err.Description, vbCritical, "CreateDatabase" End Sub |