Newsgroup: it.comp.appl.access
Titolo: formattazione esportazione in excel

persiste il mio problema sulla formattazione dopo l'esportazione in excel.
innanzitutto mi sembra possibile far partire l'esportazione da maschera o da
report (cambia solo la formattazione).
tra le 2 formattazioni diverse, forse la "migliore" è quella che parte dalla
maschera.
tale maschera contiene un'intestazione, con varie caselle di testo.
nel corpo contiene tutto l'elenco dei record.
vorrei che venisse esportato nello stesso modo.
non pretendo l'esatto posizionamento delle caselle di testo, ma quanto meno la
separazione dell'intestazione dall'elenco dei record:
intestazione sopra
elenco record sotto.
invece.......
esporta nel seguente modo:
prima riga:
intestazioni con sfondo in neretto, costituite dai nomi di TUTTE le caselle di
testo
dalla 2^ riga in poi: 
l'elenco di tutti i record.
tutti i campi dell'intestazione vengono ripetuti per ogni record!!!!
le prime colonne di ogni riga sono costituite dall'intestazione.
è possibile separare le cose?
grazie
Ciao
Silvia.
 --
www.silvietta.it
...everyone's invited!
Non Esiste Una Razza Bianca, Benche' Se Ne Parli Tanto: Ogni Uomo Bianco E' Solamente Un Uomo Scolorito 

 ha scritto nel
messaggio news:hbs8409bli63fl848...@4ax.com...

"Ola" come va?
Dunque, venendo al tuo problema, io l'avevo risolto con qualche riga di Vba
che generava direttamente il file di excel, a quel punto lo puoi formattare
come vuoi tu, spazi, righe colonne ecc...
E' abbastanza semplice da fare, se ti interessa cerco l'esempio  e lo posto,
poi lo sistemi tu come ti pare e piace.
Ciaoooo
Massimo
-- 
web: 
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi

 ha scritto nel messaggio
news:c243e3$jkm$1...@atlantis.cu.mi.it...

SIIIII, a me interesserebbe moltissimo :)
potresti postare il tuo esempio?
Grazie 1000


Questa è la procedura che ho creato io, ho messo anche alcune righe di
commento, sostanzialmente basta modificare l'istruzione SQL
Ciao,
Massimo
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim MioExcel As Object
Set MioExcel = CreateObject("Excel.Application")
Dim i As Integer
Dim riga As Integer
MioExcel.Workbooks.Add
MioExcel.Visible = True
Set Db = CurrentDb
' varia l'istruzione sql o crea una query e il tutto funziona correttamente
Set Rs = Db.OpenRecordset("Select Str_Cognome as Cognome, Str_Nome as Nome,
Str_indirizzo as Indirizzo, Str_Cap as Cap, Str_Localita as Localita,
Str_Comune as Comune ,Str_Provincia as Provincia, Str_Telefono as Telefono,
Corso, Str_Cod_Fisc As [Codice Fiscale], Str_Classe As Classe, Str_Sezione
as Sezione, Str_ramo as Settore, Str_badge as Badge From QryExportAllievo",
dbOpenSnapshot, dbSeeChanges)
i = 0
riga = 1
'-----------------------
'Scivo i valori nelle colonne
'-----------------------
For i = 0 To Rs.Fields.Count - 1
    MioExcel.ActiveCell.Value = Rs.Fields(i).Name
    MioExcel.ActiveCell.Offset(0, 1).Select
Next i
riga = 2
MioExcel.Range("A" & riga).Select
'-----------------------
'Carico i dati
'-----------------------
While Not Rs.EOF
   For i = 0 To Rs.Fields.Count - 1
        MioExcel.ActiveCell.Value = Rs.Fields(i)
        MioExcel.ActiveCell.Offset(0, 1).Select
    Next i
    riga = riga + 1
    MioExcel.Range("A" & riga).Select
    Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Db.Close
Set Db = Nothing


poi lo sistemi tu come ti pare e piace.
ti adoro!!!
non immagini quanto mi hai aiutato!!
la procedura automatica purtroppo mi creava problemi di formattazione
discretamente antipatici!
ora perň sono alle prese con piccoli lavori di formattazione:
ho messo il grassetto
modificate le dimensioni del carattere
ha adattato le colonne al contenuto...
ora vorrei:
- disegnare i bordi
- colorare lo sfondo delle celle
- UNIRE LE CELLE!
- evitare che metta il triangolino d'errore lě dove vede numeri formattati come
testo!!


 Silvia.
Ciao,


si può fare...
cioè, in realtà credo che esista una lista con tutti i comandi vba per impostare
i comandi di excel...
tipo:
MioExcel.ActiveCell.Font.Bold = True
il problema è..
dov'è questa lista??
io non la trovo, nel codice non mi vengono dati suggerimenti... ho guardato sia
sulla guida di vba, sia su quella di excel, sia nei post vecchi di questo ng sia
in quelli dell'altro ng (quello ms)... anche su 2 libri, ma ancora niente...


ho trovato la soluzione:
sostituire:
Dim MioExcel As Object
con:
Dim MioExcel As Excel.Application
