엑셀에서 데이터 가져 오기 VBA 시트 이름

Question

액세스 데이터베이스에서 테이블/시트 이름을 가져 오는 데 문제가 있습니다.

나는 그게 기능 때문이라고 생각한다. opendatabase. 이 메서드를 사용하면 출력 파일 이름을 가진 워크 시트 개체가 나타납니다.

이 액세스 파일에서로드하는 테이블의 이름을 얻는 방법을 모르겠다. 이 프로그램의 목적은 엑세스 파일의 이름을 가진 모든 테이블을 엑셀 파일로 가져 오는 것입니다.

Workbooks.OpenDatabase Filename:="yourAccessDB.mdb", _ 
CommandText:="Select s.Name From MSySObjects As s Where s.Type=1", _ 
CommandType:=xlCmdSql, _ 
BackgroundQuery:=False, _ 
ImportDataAs:=xlQuery 

나는 경우, 지금 그것을 테스트 할 수는 없지만 : 그것은 할 수있는 경우에이 이 수 OpenDatabase으로 수행 할 수 있지만, 경우, 다음과 같이 그 아마 뭔가

Sub CleanGoodVersion() 

     GetDataFromETAPWorkbook = ActiveWorkbook.Name 
     selection_dossier = "" 
     Dim NameOfSheet As String 
     Dim directory As String 
     directory = Range("C6").Text 

     ActiveSheet.Range("L2:L500").Select 
     Selection.ClearContents 

     For compteur = 1 To Sheets("Feuil1").Range("C7").Value Step 1 
      selection_dossier = selection_dossier & "{down}," 
      SendKeys selection_dossier & "{enter}", False 
      Workbooks.OpenDatabase (directory) 
      DatebaseWorkbook = ActiveWorkbook.Name ' 
      NameOfSheet = ActiveSheet.Name 
      ' copy table from database 
      'toto.Select ' it' s for check out names of files 
      Workbooks(DatebaseWorkbook).Activate 

      Cells(1, 1).Select 
      Range(Selection, Selection.End(xlDown)).Select 
      Range(Selection, Selection.End(xlToRight)).Select 
      Selection.Copy 
      .................... 

      Application.DisplayAlerts = False 
      Workbooks(DatebaseWorkbook).Close 
      SaveChanges = True 

     Next compteur 

    End Sub 

Answer 1

확실하지 않음 이 작동하면 Access MDB의 모든 테이블 이름을 포함하는 통합 문서를 반환합니다.