vbs inserisce in range excel usando sql

'

' vbs. Inserisce in range Excel usando istruzione sql

' il dato viene accodato ad un Range creato con inserisci nome.

' Se si selezionane tutte le colonne verrà generato l'errore di foglio pieno.

' Il foglio deve contenere le intestazioni, servono come nome campo.

'

'

option explicit

'

dim objConn, objRS, SQL, riferimentodb

riferimentodb = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\articoli.xls" & ";Extended Properties=Excel 8.0;"

'

Set objConn = CreateObject("ADODB.Connection")

objConn.Open riferimentodb



Set objRS = CreateObject("ADODB.Recordset")



' stringa sql



SQL = "INSERT INTO articoli (articolo, descrizione) VALUES ('BVIM8000', 'INTERRUTTORE 1P 10AX')"



objRS.Open SQL, objConn

'