Vba 将access中的表格复制到excel电子表格中

我有一个excel 2010工作簿“验证表单”，我需要将表格从Access 2010复制到其中，以便填充表单。我有三个访问表–日期、活动和项目–和五个excel表–原始日期、原始活动、原始项目、验证和参数。这些按钮存储在参数页面上

我想写一个VBA代码，当选择“获取数据”按钮时，它会将Access中的表中的数据复制到相应的电子表格中。然后，我希望在按下“完成”按钮时清除纸张。我在网上四处寻找解决方案，但到目前为止，我还没有找到任何有效或有帮助的方法

如果您能提供帮助或指点，我们将不胜感激

这就是我试图使用的代码。它在objDB.Execute上给我一个“找不到可安装的ISAM”错误

Unload ParameterMenu
formWait.Show

'Save workbook
ActiveWorkbook.Save

Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database

strExcelFile = "X:\Verification Form.xlsm"
strWorksheet = "RawDates"
strDB = "X:\Tables.accdb"
strTable = "Dates"

Set objDB = OpenDatabase(strDB)

'If excel file already exists, you can delete it here
'If Dir(strExcelFile) <> "" Then Kill strExcelFile

objDB.Execute _
  "SELECT * INTO [Excel 14.0;DATABASE=" & strExcelFile & _
   "].[" & strWorksheet & "] FROM " & "[" & strTable & "]"

objDB.Close
Set objDB = Nothing

Unload formWait
FinishDialog.Show

End Sub

卸载参数菜单
等等，表演
'保存工作簿
活动工作簿。保存
作为字符串的Dim strExcelFile
将工作表尺寸标注为字符串
作为字符串的Dim strDB
作为字符串的Dim strTable
Dim objDB As数据库
strExcelFile=“X:\Verification Form.xlsm”
strWorksheet=“RawDates”
strDB=“X:\Tables.accdb”
strTable=“日期”
设置objDB=OpenDatabase（strDB）
'如果excel文件已经存在，您可以在此处删除它
“如果目录（strExcelFile）”，则杀死strExcelFile
objDB.Execute_
“将*选择到[Excel 14.0；数据库=“&strExcelFile&_
“].[”&strWorksheet&“]来自“&”[”&strTable&“]
objDB.Close
设置objDB=Nothing
卸载formWait
FinishDialog.Show
端接头

查看如何将数据作为

DAO.Recordset打开，并使用range对象的
.CopyFromRecordset
将其复制到范围中。
您希望执行的操作可以通过多种方式实现。到目前为止，你尝试了什么，或者你的研究揭示了什么？@Gareth我添加了我试图使用的代码，但它给了我一个错误。