VBA - [решено] ошибка при выполнение SQL запроса на удаление к текущей книге

VBA - [решено] ошибка при выполнение SQL запроса на удаление к текущей книге

artemu88

Пользователь

Сообщения: 105
Благодарности: 0

Вложения


	пример.rar
(12.5 Kb, 0 просмотров)

Добрый день!

Написал макрос для удаления записей из таблицы Excel.
Но при выполнения запроса на удаление (см. код ниже) выскакивает ошибка "Удаление данных в присоединенной таблице не поддерживается драйвером ISAM"

Можно ли как-то обойти эту ошибку? Что не так делаю?

Заранее всем спасибо!

код:

Код:

Sub SQL()
Dim myConnect, mySQL As String, myRecord As Object
Dim Data As String, strAddress As String
    Set myRecord = CreateObject("ADODB.Recordset")
 '   Set myConnect = CreateObject("ADODB.Connection")
    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")
    
    Data = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"
'        myConnect.open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
'           "Data Source=" & ThisWorkbook.FullName & ";" & _
'           "Extended Properties=""Excel 12.0;HDR=NO"""
        myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ThisWorkbook.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=NO"""

    mySQL = "DELETE * FROM " & Data & ""
'    myConnect.Execute mySQL
    myRecord.Open mySQL, myConnect

End Sub

Отправлено: 11:12, 15-12-2021