[VB6] Da Recorset / ListView a foglio Excel

[ominoroby]

Salve a tutti,
è un po che ci provo... è un po che cerco anche sul forum, ma putroppo questa cosa, ke probabilmente è + semplice di qualunque altra, non è presente da nessuna parte...

Dunque:

Ho un recordset, con il quale ho caricato un ListView...

Ora mi piacerebbe esportare i dati visualizzati nella ListView in un file xls ma... ma... ma non so come fare!!


Vi ringrazio fin da subito!

[Johnny_Depp]

sposto nel subforum apposito.

[wallrider]

cos'è che non ti riesce, esattamente?
Interagire con excel? Ciclare sulla listview?

[ominoroby]

Si, il problema sostanziale è interagire con excel...
Su internet si trova di tutto su come creare worksheet, workbook ecc.... Ma non questo...
Come posso esportare??
Possibile che non vi siano ocx o semplici subrutine per esportazione?

Bha..........

Sapete consigliarmi qualcosina?

[xegallo]

Originariamente inviato da ominoroby

Possibile che non vi siano ocx o semplici subrutine per esportazione?

Bha..........

mai pensato che per programmare qualche riga di codice la devi scrivere

[ominoroby]

Si... :rollo:
Ma sapendo poco riguardo excel-vb, quel che so fare è ciò che ho trovato recupera nella rete..
Ossia ciò che ho descritto sopra...

Non credo sia utile a nessuno fare affermazioni di questo genere... Gradirei un solo e semplice consiglio/aiuto... Tutto qui...

[wallrider]

Un pò di fantasia!
Hai una listview che "può" essere vista come una tabella(se è in forma lvReport)!!!
ti basta ciclare sulla LV e scrivere nel foglio excel(registrando magari delle macro e riciclando il codice)!

l'unica cosa, se usi le macro, è stare attento agli oggetti
http://community.visual-basic.it/die...les/16417.aspx

[ominoroby]

ok, ho capito, grazie

[ominoroby]

Signori...
Proverò a spiegarmi meglio...

Questo è la cosa più semplice che una persona pensi di scrivere per lo scopo suddetto..

 i = 0
 rs.MoveFirst
 Do Until rs.EOF
   oWorkSheet.Cells(i, 3) = rs.Fields("Nome")
   rs.MoveNext
   i = i + 1
 Loop

Ovviamente è tutto stato dichiarato correttamente...
Sia RecordSet che oggetti excel (Application,Workbook,Worksheets,References)...
Ma nulla... non ne vuole sapere...

Credo sia un errore in questa parte

oWsh.Cells(i, 3) = ...

O meglio ancora, sull'integer "i" all'interno di Cells([RowIndex],[ColumnIndex]), in quando scrivendo:

oWsh.Cells(3, 3) = ...

scrive tutto tranquillamente nella cella "C3" del foglio.

Sapreste come risolvere questo (SICURAMENTE BANALE ERRORE)?

Vi ringrazio!

[wallrider]

prova a fare

oWorkSheet.range(i, 3).select
oWorkSheet.activecell.formular1c1 = rs.Fields("Nome")

non l'ho provato ma magari funziona