Catastrophi c Сбой EXCEL VBA - ошибка '-2147418113 (8000ffff)'

Question

Я изо всех сил пытаюсь найти соответствующую информацию о

«ошибка времени выполнения» -2147418113 (8000ffff) '- Catastrophi c Failure'

I

Sub GenerateAIA_Click()
Dim SQL_query, SQL_syntax, DB_path, setting_conn As String
Dim conn As New ADODB.Connection
Dim query_rslt As New ADODB.Recordset

Dim mth, mth_yr As Variant
Dim dt As Date
Dim i, bol As Integer
Dim temp1, temp2 As Variant

dt = Sheets("Main").Range("C4")
mth_yr = MonthName(Month(Sheets("Main").Range("I12")), False) & " " & Year(Sheets("Main").Range("I12"))

ThisWorkbook.Sheets("AIA").Select

DB_path = ThisWorkbook.FullName 'Refering the same workbook as Data Source
setting_conn = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DB_path & ";HDR=Yes';"
conn.Open setting_conn
SQL_syntax = "SELECT * FROM [Setup$]"   'Your SQL Statement (Table Name= Sheet Name=[Sheet1$])
query_rslt.Open SQL_syntax, conn

Я также заметил, что эта ошибка отображается в строке

conn.Open setting_conn

Я использую Excel 2016, а также мой формат файла .xlsm
У всех есть идеи почему это происходит?

Answer 1

Кажется, в вашей строке подключения есть проблема. Вот как я заставил его работать:

(сначала обязательно добавьте ссылку на библиотеку объектов данных Microsoft Active-X)

Sub test()
  Dim conn As New ADODB.Connection
  Dim rs As New ADODB.Recordset

  conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\PC\test.xlsm;Extended Properties=""Excel 12.0 Macro;HDR=NO"";"
  conn.Open

  rs.Open "SELECT * FROM [Sheet1$]", conn

  If Not rs.EOF Then
    MsgBox rs(0) ' display the value of the first field in the first row
  Else
    MsgBox "No records found."
  End If

  rs.Close
  conn.Close

End Sub

Итак, возьмите мой пример, измените имя файла на ваш файл XLSM, а имя листа на имя вашего листа (с добавлением $ в конце)

Если ваш лист имеет Имена заголовков в первом сейчас, используйте HDR=Yes, а если нет, HDR=No