将访问表复制到Excel电子表格中
我有一个Excel 2010工作簿，validation表单，我需要从Access 2010中复制表格，以便可以填充表单。 我有三个访问表 – date，活动和项目 – 和五个Excel表 – 原始date，原始活动，原始项目，validation和参数。 这些button存储在“参数”页面上。
我想编写一个VBA代码，当button，获取数据被选中时，将Access中的表中的数据复制到相应的电子表格中。 然后，当按下完成button时，我想要清除这些表单。 我已经在网上寻找一个解决scheme，但到目前为止，我还没有find任何有效的工作或帮助。
任何协助或指示如何处理这将不胜感激。
这是我正在尝试使用的代码。 它在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 查看打开DAO.Recordset数据，并使用Range对象的.CopyFromRecordset将其复制到范围。