《EXCEL打开和读取ACCESS的几个方法.doc》由会员分享,可在线阅读,更多相关《EXCEL打开和读取ACCESS的几个方法.doc(4页珍藏版)》请在三一文库上搜索。
1、EXCEL 打开和读取 ACCESS 的几个方法EXCEL 打开和读取 ACCESS 的几个方法1Public Sub 例 7_1()Dim myData As String Dim myDb As DAO.Database '指定要打开的数据库名称 myData = ThisWorkbook.Path &"NewData.mdb" '判断数据库文件是否存在,如果不存在,就弹出警告信 息If Dir(myData) = "" ThenMsgBox " 指定的数据库不存在! ", vbCritical,
2、" 无法 打开数据库 "Exit SubEnd If '打开数据库Set myDb = OpenDatabase(myData, True, False, "pwd=H1X2L3")'显示打开信息MsgBox " 已经成功打开指定的数据库! ", vbInformation, "打开数据库 "myDb.Close'关闭数据库Set myDb = Nothing'释放变量End Sub2Public Sub 例 7_2()Dim myDb As DAO.DatabaseDim mytb
3、l As DAO.TableDef客户管理 '指定数据库文件Dim i As Integer'准备工作表 Cells.Cleari = 2Range("A1:B1") = Array(" 表名称 ", " 表类型 ") '建立与数据库的连接Set myDb = OpenDatabase(mydata) '开始获取表信息For Each mytbl In myDb.TableDefsCells(i, 1) = mytbl.Name' 获取表名称Cells(i, 2) = TypeToTable(m
4、ytbl.Attributes) 取数据表类型i = i + 1.mdb"'获Next mytblCells.Columns.AutoFit '关闭数据库myDb.Close'释放变量Set mytbl = NothingSet myDb = NothingEnd SubPublic Function TypeToTable(myValue As Long) As StringSelect Case myValueCase 2: TypeToTable = "ACCESS TABLE"Case -2147483648#: TypeToTab
5、le = "SYSTEMTABLE"Case 0: TypeToTable = "TABLE"End SelectEnd Function3-Public Sub 例 7_3()Dim myDb As DAO.DatabaseDim mytbl As DAO.TableDef客户管理 .mdb"'指定数据库文件Dim i As Integer'准备工作表Cells.Clear i = 2Range("A1") = " 数据表名称 " '开始获取数据表名称Set myDb = Ope
6、nDatabase(mydata)For Each mytbl In myDb.TableDefsIf Left(mytbl.Name, 4) <> "MSys" Then '或者使用语句'If mytbl.Attributes = 0 ThenCells(i, 1) = mytbl.Name'获取数据表名称i = i + 1End If Next mytbl Cells.Columns.AutoFit '关闭数据库 myDb.Close '释放变量 Set mytbl = Nothing Set myDb = NothingEnd Sub