Ciao ragazzi,
sto cercando di salvare dei dati con una connessione ADO su un file Excel, il codice che uso e' il seguente:
codice:
Private Sub testExcel_Click()
Dim strSQL As String, conStr As String
Dim cnn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim A As Integer
Dim DBPath As String
DBPath = "W:\prestitalia\test-tavoli\controlli_annullate_2017_11_20.xlsx" 'Refering the sameworkbook as Data Source
conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & DBPath & "';" & _
"Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;"";"
'************************* SCRITTURA FILE EXCEL
strSQL = "INSERT INTO [SFoglio1] VALUES('VA', 'On', 'Computers', 'Mid', 30)"
strSQL = "Insert Into [Foglio1$] (ID,Name,Amt) Values(1,'Bob',3.10)"
strSQL = "INSERT INTO [Foglio1$] (pratica) VALUES (111)"
cnn.Open conStr
cnn.Execute strSQL
cnn.Close
Set cnn = Nothing
End Sub
ma si blocca sull'execute dandomi il seguente errore:
Errore di run-time '-2147467259 (80004005)':Per l'operazione è necessaria una query aggiornabile
Ho anche provato ad inserire ReadOnly=0 nelle extended property della connessione ma non cambia nulla, mi sapete aiutare?