2023年11月23日发(作者：)

EXCEL打开和读取ACCESS的⼏个⽅法

EXCEL 打开和读取 ACCESS 的⼏个⽅法

EXCEL 打开和读取 ACCESS 的⼏个⽅法

1 -- Public Sub 例 7_1()

Dim myData As String

Dim myDb As se '指定要打开的数据库名称 myData = &

""

If Dir(myData) = "" Then

MsgBox " 指定的数据库不存在！ ", vbCritical, " ⽆法 打开数据库 "

Exit Sub

End If '打开数据库

Set myDb = OpenDatabase(myData, True, False,

";pwd=H1X2L3")

'显⽰打开信息

MsgBox " 已经成功打开指定的数据库！ ",

vbInformation,

"打开数据库 "

'判断数据库⽂件是否存在，如果不存在，就弹出

警告信

'关闭数据库

Cells(i, 2) = TypeToTable(utes)

取数据表类型

Next mytbl

Set myDb = Nothing

'释放变量 End Sub

2 -- P ublic Sub 例 7_2()

Dim myDb As se

Dim mytbl As ef

客户管理 .mdb"

'指定数据库⽂件

Dim i As Integer

'开始获取表信息

For Each mytbl In efs

Cells(i, 1) = /doc/

'获取表名称

'获

t '关闭数据库

'释放变量

Set mytbl = Nothing

Set myDb = Nothing

End Sub

Public Function TypeToTable(myValue As Long) As String

Select Case myValue

Case 2: TypeToTable = "ACCESS TABLE"

Case -2147483648#: TypeToTable = "SYSTEM

Set mytbl = Nothing