artemu88
15-12-2021, 11:12
Добрый день!
Написал макрос для удаления записей из таблицы 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
Написал макрос для удаления записей из таблицы 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