RTE 3706 не может найти поставщика Excel VBA

Я пытаюсь получить имена листов из закрытой книги. Код ниже – это то, что я использую, но когда я запускаю sub Test (), я получаю RTE 3706. Я запускаю 32-разрядную версию Excel 2007 на 64-разрядной версии Windows 7 и не имею Access 2007. Я попытался изменить строку соединения между ACE 12.0 и Jet 4.0, но это просто связано с ошибкой «Нет установленной ISAM». Что я могу сделать, чтобы исправить это? Кроме того, есть ли другой способ получить имена рабочих листов из закрытой книги?

Function GetSheetsNames(WBName As String) As Collection Dim objConn As ADODB.Connection Dim objCat As ADOX.Catalog Dim tbl As ADOX.Table Dim sSheet As String Dim Col As New Collection Set objConn = New ADODB.Connection With objConn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & WBName & ";'Extended Properties=Excel 8.0 Macro';" .Open End With Set objCat = New ADOX.Catalog Set objCat.ActiveConnection = objConn For Each tbl In objCat.Tables sSheet = tbl.Name sSheet = Application.Substitute(sSheet, "'", "") sSheet = Left(sSheet, InStr(1, sSheet, "$", 1) - 1) On Error Resume Next Col.Add sSheet, sSheet On Error GoTo 0 Next tbl Set GetSheetsNames = Col objConn.Close Set objCat = Nothing Set objConn = Nothing End Function Sub Test() Dim Col As Collection, Book As String, i As Long Book = "c:\users\j\desktop\test.xlsm" Set Col = GetSheetsNames(Book) For i = 1 To Col.Count MsgBox Col(i) Next i End Sub 

  • Импорт пользовательского протокола в MS Excel / Access
  • Microsoft Access - группа по функциям
  • Импорт таблицы Excel в существующие таблицы доступа MS
  • Отношение запроса к запросу не возвращает никаких результатов, даже если значения идентичны
  • Ошибка 2147217904 Не задано значение для одного или нескольких требуемых параметров при запросе доступа из Excel
  • ADO - будущие базы данных Access for Access
  • Преобразование нескольких строк с уникальными записями в линейный формат - Excel
  • Ошибка синтаксиса (отсутствующий оператор) при экспорте из VBA Excel в Access
  • Оптимизируйте SQL SELECT для 4000 поисков, в Excel с помощью VBA
  • SQL для синтаксического анализа многострочных данных?
  • Импорт CSV с полями заметок в таблицы Microsoft Access
  • Давайте будем гением компьютера.