找不到可安装的ISAM Excel 2010

我在Excel 2010中有这个子应该从Access 2010中复制表。当我尝试运行的代码，它给了我一个'找不到可安装的ISAM'。 当我debugging时，它突出显示objDB.Execute。

Private Sub btnGetData_Click() 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:\Form.xlsm" strWorksheet = "RawDates" strDB = "X:\Tables.accdb" strTable = "Dates" Set objDB = OpenDatabase(strDB) objDB.Execute _ 'Error occurs here. "SELECT * INTO [Excel 14.0;DATABASE=" & strExcelFile & _ "].[" & strWorksheet & "] FROM " & "[" & strTable & "]" objDB.Close Set objDB = Nothing Unload formWait FinishDialog.Show End Sub 

我对VBA没有太多的经验，所以任何帮助都将不胜感激。

Answer 1

正确的格式是“Excel 12.0macros”而不是“Excel 14.0”：

 objDB.Execute _ 'Error occurs here. "SELECT * INTO [Excel 12.0 Macro;DATABASE=" & strExcelFile & _ "].[" & strWorksheet & "] FROM " & "[" & strTable & "]" 

编辑：

也许试试ADO：

 Private Sub btnGetData_Click() 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 Object Dim rs As Object strExcelFile = "X:\Form.xlsm" strWorksheet = "RawDates" strDB = "X:\Tables.accdb" strTable = "Dates" Set objDB = CreateObject("ADODB.Connection") With objDB .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & strDB & ";" .Open End With Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM " & "[" & strTable & "]", objDB, 3, 1, 1 If Not rs.EOF Then _ ThisWorkbook.Worksheets(strWorksheet).Cells(Rows.Count, "A").End(xlUp).Offset(1).CopyFromRecordset rs rs.Close objDB.Close Set objDB = Nothing Unload formWait FinishDialog.Show End Sub