数据库 2023-08-01

使用VBA读取数据库中的数据，无需打开表格。 (vba不打开表读数据库)

使用VBA读取数据库中的数据，无需打开表格

在日常的办公工作中，经常需要使用数据库对数据进行管理与处理，但通常情况下需要以表格的形式打开数据库中的数据再进行操作。然而，对于一些不需要进行编辑并且大量数据量的操作，这种方式极为低效。幸运的是，VBA提供了一种无需打开表格便可直接在Excel或Access中读取数据库中的数据的方法。

本文将带您了解使用VBA在Excel和Access中如何读取数据库中的数据。

1. 使用Excel VBA读取数据库中的数据

要使用Excel VBA读取数据库中的数据，需要先连接到数据库。连接字符串使用ADO对象的Open方法连接数据库。下面是一个简单的实例，它演示了如何使用VBA连接到数据库，然后从数据库中读取数据：

“`

Sub GetDataFromDatabase()

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Dim strSQL As String

strSQL = “SELECT * FROM [TableName]”

conn.Open “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database.accdb;”

rs.Open strSQL, conn, adOpenStatic, adLockOptimistic

Dim n As Long

n = 1

Do Until rs.EOF

Range(“A” & n).Value = rs.Fields(“Field1”).Value

Range(“B” & n).Value = rs.Fields(“Field2”).Value

‘ … and so on

rs.MoveNext

n = n + 1

Loop

rs.Close

conn.Close

End Sub

“`

上面的代码会打开名为“C:\Database.accdb”的数据库，并从名为“TableName”的表格中读取数据。然后，使用do-until循环将数据逐行写入Excel单元格中。这里需要保证Excel表格中有足够的空间来容纳从数据库中读取出的数据。

需要注意的是，在连接字符串中，Provider可以根据情况进行修改，具体参见Microsoft官方文档：https://docs.microsoft.com/en-us/sql/ado/reference/ado-api/jet-and-ado.

2. 使用Access VBA读取数据库中的数据

如果您更喜欢使用Access作为数据库处理器的话，也可以使用VBA来读取Access中的数据。使用Access VBA读取数据与Excel VBA类似，只需要使用Connection和Recordset对象即可。

下面是一个简单的示例，它演示了如何使用VBA连接到Access数据库并从中读取数据：

“`