DAO DAOを使いMDBファイルのテーブル名を取得(ExcelVBA)

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][DAO DAOを使いMDBファイルのテーブル名を取得(ExcelVBA)]
Option Explicit


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
関連リンク
DAO_Table_Name.html DAO DAOを使いMDBファイルのテーブル名を取得(ExcelVBA)
DAO_CreateDatabase.html DAO DAOデータベース(.mdb)作成〜データ入力一連
DAO_MDB_OpenRead.html DAO DAOを使いMDBファイルを開けてデータを読む(ExcelVBA)
RefRemoveAcquisition.html 参照設定 参照設定されているライブラリを検索取得
RefRemoveChoice.html 参照設定 追加されている参照設定を解除(一覧より指定)
RefRemove.html 参照設定 追加されている参照設定を解除(Library指定)
DAOAddFromFile.html 参照設定 DAO参照設定エクセル(ExcelVBA)





Production Japan Import Application. Since 1998