GBKEE

¦^´_ 1# clio
¸Õ¸Õ¬Ý
¤u¨ã-³]©w¤Þ¥Î¶µ¥Ø,¿ï¤¤ "Microsoft DAO3.6 Object Library¡¨

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Da As DAO.Database, ta As DAO.TableDef
   
4.     Set Da = DAO.OpenDatabase("¸ô®|\Database.mdb")
   
5.     For Each ta In Da.TableDefs
   
6.         If InStr(ta.Name, "MSys") = 0 Then Debug.Print ta.Name
   
7.     Next
   
8.     Da.Close
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# clio

1. Option Explicit
   
2. '¤Þ¥Î¡GMicrosoft Ado Ext.2.x For DDL And Security
   
3. Sub Ex_Ado()
   
4.     Dim myCat As New ADOX.Catalog, myBook As String, i As Integer
   
5.     Dim strUser As String, strPWD As String, Msg As String
   
6.     myBook = "d:\excel\¸ê®Æ®w.xlsx"  '«ü©w­n¬d¸ßªº¤u§@粒¾ã¦WºÙ
   
7.     Msg = UCase(Split(myBook, ".")(UBound(Split(myBook, "."))))
   
8.     Select Case Msg  '«Ø¥ß»P«ü©w¤u§@Á¡ªº³s±µ
   
9.         Case "XLS"
   
10.             myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
    
11.             & "Extended Properties=Excel 8.0;" & "Data Source=" & myBook
    
12.         Case Is = "XLSM", Is = "XLSX"
    
13.             myCat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _
    
14.             & "Extended Properties=""Excel 12.0 xml"";" & "Data Source=" & myBook
    
15.          Case "MDB"
    
16.             myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myBook & _
    
17.             ";User ID=" & strUser & ";Jet OLEDB:Database Password=""" & strPWD & """;"
    
18.     End Select
    
19.     Cells.Clear
    
20.     Range("A1:B1") = Array("¬d¸ß¥Xªº¦WºÙ", "³B²z«áªº¦WºÙ")
    
21.     With myCat.Tables
    
22.         For i = 0 To .Count - 1
    
23.             Cells(i + 2, 1) = .Item(i).Name
    
24.           If Msg <> "MDB" Then Cells(i + 2, 2) = Mid(.Item(i).Name, 1, Len(.Item(i).Name) - 1)
    
25.         Next
    
26.     End With
    
27. End Sub

½Æ»s¥N½X