stò cercando di importare dei dati da excel in un foglio di word con ado (office 2010 pro) ...
- Codice: Seleziona tutto
Sub RecuperaDatiDaXLS()
'
Dim objConn As ADODB.Connection
Dim strPercorso As String
Dim strSQL As String
'
strPercorso = "D:\SVILUPPO\CARTELLINI\DCCr_Cartellini.xls"
'
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set objConn = New ADODB.Connection
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(strPercorso) & "Extended Properties=""Excel 14.0;HDR=Yes;"""
'
strSQL = "SELECT * from [Elenco$]"
Dim RS As ADODB.Recordset
Set RS = objConn.Execute(strSQL)
If RS.EOF = False Then RS.MoveFirst
'Ciclo tutti i recors
Do Until RS.EOF
'Leggo tutti i campi
For i = 0 To RS.Fields.Count - 1
'Visualizzo in MsgBox il valore del campo i
MsgBox RS.Fields(i).Value & ""
Next i
RS.MoveNext
Loop
'
End Sub
Il risultato è l'errore "Errore di Run-Time '424': Necessario Oggetto", che si verifica sulla riga "objConn.Open".
Con il mailmerge non mi và bene in quanto devo valutare il campo quantità e ripetere il cartellino N volte quante indicate in quel campo (avevo pensato a NEXTIF ma non riesco a trovare una soluzione valida).
Nessuno avrebbe qualche dritta da darmi per capire cosa stò sbagliando?
Grazie per qualsiasi intervento
dp