¦p¦óÂ^¨ú¥XRecordsetªºTable Name
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-2-7 11:04 ½s¿è
¦^´_ 7# clio - Option Explicit
- '¤Þ¥Î¡GMicrosoft Ado Ext.2.x For DDL And Security
- Sub Ex_Ado()
- Dim myCat As New ADOX.Catalog, myBook As String, i As Integer
- Dim strUser As String, strPWD As String, Msg As String
- myBook = "d:\excel\¸ê®Æ®w.xlsx" '«ü©wn¬d¸ßªº¤u§@粒¾ã¦WºÙ
- Msg = UCase(Split(myBook, ".")(UBound(Split(myBook, "."))))
- Select Case Msg '«Ø¥ß»P«ü©w¤u§@Á¡ªº³s±µ
- Case "XLS"
- myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
- & "Extended Properties=Excel 8.0;" & "Data Source=" & myBook
- Case Is = "XLSM", Is = "XLSX"
- myCat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _
- & "Extended Properties=""Excel 12.0 xml"";" & "Data Source=" & myBook
- Case "MDB"
- myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myBook & _
- ";User ID=" & strUser & ";Jet OLEDB:Database Password=""" & strPWD & """;"
- End Select
- Cells.Clear
- Range("A1:B1") = Array("¬d¸ß¥Xªº¦WºÙ", "³B²z«áªº¦WºÙ")
- With myCat.Tables
- For i = 0 To .Count - 1
- Cells(i + 2, 1) = .Item(i).Name
- If Msg <> "MDB" Then Cells(i + 2, 2) = Mid(.Item(i).Name, 1, Len(.Item(i).Name) - 1)
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|