VBA如何复制或备份已打开的access文件

试试下面的代码：

Dim Conn As New ADODB.Connection

Dim strConn As String

Dim strSQL As String

Dim rs As New ADODB.Recordset

Dim Max_row As Integer

Stpath = ThisWorkbook.Path & Application.PathSeparator & "test.accdb" '设定access文件路径

Conn.Provider = "Microsoft.ACE.OLEDB.12.0"

strConn = "Data Source =" & Stpath

strSQL = "select * from report_summary"

'打开数据库

Conn.Open (strConn)

rs.Open strSQL, Conn, 1, 1

Application.ScreenUpdating = False

Application.DisplayAlerts = False

If rs.BOF = False Then

      Sheets("Database").Range("A2:AY50000").ClearContents

      Sheets("Database").Range("A2").CopyFromRecordset rs

  Else

      Sheets("Database").Range("A2:AY10") = "0"

End If

rs.Close

Set rs = Nothing

Conn.Close

end sub

Access能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的"进阶用户"则能使用它来开发简单的应用软件。

Access 是微软公司推出的基于Windows的桌面关系数据库管理系统(RDBMS，即Relational Database Management System)，是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象。提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等 *** 作规范化。为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。