Newsgroup: it.comp.appl.access
Titolo: Export dati da sottomaschera in Excel

Ciao al NG,
Di solito utilizziamo un file di excel per stampare  documenti di
trasporto DDT.
Questo è stato preparato a dovere con le varie celle unisci e centra e
così via.
Visto il numero elevato di DDT(provvisorie) con copie di XLS,
ho pensato di fare un programmino in Access.
Con maschera e sottomaschera, quest'ultima per la riga articolo.
La sottomaschera_articolo può contenere un massimo di 10 righe.
Questa è controllata dal seguente codice :
'< -- righe massimo n 10 --'
Me.AllowAdditions = (Me.RecordsetClone.RecordCount < 10).
e fin qui oK.
Adesso devo trasferire i dati nelle varie celle di excel
.....
With oWks.Application
.Range(.Names(, "Codice_cliente")).Value = Me!CERCACOD
.Range(.Names(, "Destinatario")).Value = Me!DESTINATARIO
.Range(.Names(, "luogo")).Value = Me!LUOGO
.Range(.Names(, "Spedizionex")).Value = Me!SPEDIZIONEX
.........
e fin qui oK.
Poi devo inserire i dati della sottomaschera_articolo in celle sono 11
colonne e 10 righe
procedo nel creare un Recordset.
 Dim rst As New ADODB.Recordset
'--> ottengo il recordset
  Set rst = New ADODB.Recordset
  rst.CursorLocation = adUseClient
  rst.Open "Select * From tblDDTR Where id_RIG=" & Me!ID & " Order by
id desc;", CurrentProject.Connection
Do While Not rst.EOF
 With oWks.Application
 .Range(.Names(, "riga")).Value = rst!RIGAN
  .Range(.Names(, "articolo")).Value = rst!CODARTICOLO1
   .Range(.Names(, "telaio")).Value = rst!TELAIO1
    .Range(.Names(, "descrizione")).Value = rst!DESCRIZIONER1
     .Range(.Names(, "um")).Value = rst!NR1
      .Range(.Names(, "qtdisegno")).Value = rst!QUANTITA1
       .Range(.Names(, "qtraccolta")).Value = rst!QUANTITASMR
        .Range(.Names(, "disegno")).Value = rst!DISEGNO1
         .Range(.Names(, "descrizione_1")).Value = rst!DESCRIZIONE_1
          .Range(.Names(, "numero")).Value = rst!NUMERO
           .Range(.Names(, "cm")).Value = rst!CM
  End With
.....
e fin qui ci sono quasi, in quanto ho la prima riga.
Per trasferire tutti i dati relativo al rst devo inserire un ciclo
for..next o sto sbagliando modo?
non ho trovato nessun Help Access in merito.
grazie
.Bat

 ha scritto nel messaggio 
news:1166658234.0...@a3g2000cwd.googlegroups.com...



Do While Not rst.EOF


[Risposta]
Ciao,
il mitico e ormai "secolare", ahimè, Sergio Mazza realizzò una presentazione 
in PowerPoint + db d'esempio in occasione del primo evento CISA: può 
scaricare il tutto da qui 
http://www.donkarl.com/it/CISA/Download/CISA1_Excel.zip
 e dare 1 occhiata 
;-)
Ti passo altresì un link che ti può ritornare utile 
http://www.erlandsendata.no/english/index.php?d=envbadacexportado
 ed 
ovviamente se il problema dovesse persistere siamo qui ;-)
Notte :-)

 ha scritto nel messaggio 
news:3ykih.228$2U3...@nntpserver.swip.net...

Pardon giacchè devi esportare 
http://www.erlandsendata.no/english/index.php?d=envbatextexportwb
 e cmq gli 
appunti di Sergio sono ottimi ;-) 

[CUT]
Buongiorno,
Il file di esempio di CISA è molto interessante e pratico, complimenti
all'autore.
Per quanto riguarda il mio problema di export, mi piacerebbe lasciare
il file xls così com'è senza togliere le righe.
In quanto è già formattato in tutte le sue parti, celle, unisci,
bordi ecc, e l'aria di stampa.
Vado avanti, con lo studio di CISA e con l'altro link segnalato.
Se nel frattempo giungono altre soluzioni, grazie mille.
.Bat

 ha scritto nel messaggio 
news:1166689097....@73g2000cwn.googlegroups.com...
[CUT]
Buongiorno,

.Bat
http://www.vb-helper.com/howto_access_to_excel.html

Gaspare ha scritto:

:-)
Capista, che risposta celere.
Spero di farcela.

 ha scritto nel messaggio 
news:1166690447....@42g2000cwt.googlegroups.com...
Gaspare ha scritto:

:-)

[Risposta]
;-)

 ;-)
Ahi, incomincio a perdermi.....

 ha scritto nel messaggio 
news:1166658234.0...@a3g2000cwd.googlegroups.com...
Ciao al NG,
Di solito utilizziamo un file di excel per stampare  documenti di
trasporto DDT.
Questo č stato preparato a dovere con le varie celle unisci e centra e
cosě via.
Visto il numero elevato di DDT(provvisorie) con copie di XLS,
ho pensato di fare un programmino in Access.
Con maschera e sottomaschera, quest'ultima per la riga articolo.
La sottomaschera_articolo puň contenere un massimo di 10 righe.
Questa č controllata dal seguente codice :



Do While Not rst.EOF


[risposta]
Forse manca qualcosa al codice.
L'rst.MoveNext dov'č?
Devi cambiare l'indirizzo della cella (riga/colonna, in excel) per scrivere 
i dati. Quindi, invece di utilizzare i nomi di celle, in questo caso puoi 
utilizzare i riferimenti numerici; poi con un ciclo del tipo:
'---
Do while not rst.EOF
    riga = riga + 1
    For colonna = 1 to 11
        ...Cells(riga, colonna) = rst(colonna -1) '<-- puoi indicare 
l'indice del campo
    next
    rst.MoveNext
Loop
'---
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Ciao Sergio, complimenti per il lavoro svolto in CISA.
mi sembrava facile, ma fino adesso ho tanta confusione.
Quando dici numerici ti riferisci tipo :
With oWks.Application
  .Range(.Names(, "A21")).Value = rst!RIGAN
   .Range(.Names(, "B21")).Value = rst!CODARTICOLO1
....
e il ciclo per riga e colonna quali variabili riga=?, colonna=?
prima di Cells(riga, colonna).
Ciao.
.Bat

[CUT]
Grazie del suggerimento.
Ho capito.
Funziona.
Tra un ciclo For.. next e la proprietà cells.
Ciao
.Bat