VBAでAccessにある選択クエリのSQL一覧を取得する

• Excel VBAで、Accessにある選択クエリのSQL一覧を取得する
• DBへの接続部分は VBAでAccessのDBに接続する参照
• code

• Sub getQuerySQL(dbPath As String, mySheet As Worksheet)
  
      Dim myTable As ADOX.Table
      Dim myView As ADOX.View
      Dim rowIndex As Long
  
      Call connectDB(dbPath)
      rowIndex = 0
  
      For Each myView In cat.Views
          rowIndex = rowIndex + 1
          mySheet.Cells(rowIndex, 1).Value = myView.Command.CommandText
      Next
  
      Call disconnectDB
  
  End Sub