Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Import dati da Excel a Word con ADO

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Import dati da Excel a Word con ADO

Postdi dipic » 10/02/12 16:11

Buongiorno a tutti,
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
Avatar utente
dipic
Utente Junior
 
Post: 95
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Sponsor
 

Re: Import dati da Excel a Word con ADO

Postdi Anthony47 » 10/02/12 23:25

Assolutamente ignorante, ma partirei da questo Tip&Tricks nella Microsoft TechNet library:
http://technet.microsoft.com/en-us/libr ... 92882.aspx
(salvo che eviterei, in fase di debug, di mettere in testa On Error Resume Next)

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Import dati da Excel a Word con ADO

Postdi dipic » 16/02/12 11:30

Dopo lunga ricerca, ho abbandonato la pista ADO; ho risolto come segue ....

Codice: Seleziona tutto
'CREA OGGETTO EXCEL x FILE DATI
Set objEXCEL1 = CreateObject("Excel.Application")     
'APRE IL FILE DATI
Set objSHT1 = objEXCEL1.Workbooks.Open("C:\filedati.xls")
'SELEZIONO IL FOGLIO INTERESSATO SUL FILE DATI
objEXCEL1.Worksheets("foglio1").Select                               
'SELEZIONO LA CELLA A1
objEXCEL1.Worksheets("foglio1").Cells(1, 1).Select               
'
'LEGGO IL DATO DALLA CELLA
LEGGOdato = objEXCEL1.Worksheets("foglio1").Cells(1, 1).Value   
'SCRIVO IL DATO NELLA CELLA
objEXCEL1.Worksheets("foglio1").Cells(1, 1).Value = "'SCRIVOdato"
'
'CHIUDO E  SCARICO GLI OGGETTI APERTI
objEXCEL1.Quit
Set objSHT1 = Nothing
Set objEXCEL1 = Nothing


posto questo esempio casomai interessasse a qualcuno ... è una buona base di partenza.
Grazie comunque per i suggerimenti
Avatar utente
dipic
Utente Junior
 
Post: 95
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Import dati da Excel a Word con ADO

Postdi Anthony47 » 16/02/12 12:28

Mi sembrava che avessi le idee chiare, ma saper cambiare idea e' talvolta una virtu'...

Ciao, alla prossima.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Import dati da Excel a Word con ADO":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti