Newsgroup: it.comp.appl.access
Titolo: E' possibile trasferire un dato in Excel?

Dovrei eseguire una query in un db di Access che mi calcoli ad esempio un
totale in formato valuta. Poi il risultato ottenuto dovrebbe finire in una
cella di Excel. Si fŕ??
Grazie a tutti.

 cella di Excel. Si fà??
In dieci modi diversi.
Figurati che alle celle di un foglio di lavoro si accede con le coordinate:
FoglioExcel.Cell(1,2)  (o Cells, ora mi sfugge un attimo)
inizia dalla autocomposizione che ti apre un foglio excel per capire meglio
il meccanismo.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

 ha scritto nel messaggio
news:iRwZ5.89608$hk4.3...@news.infostrada.it...


 lo considero un regalo di Natale :-))
La prima routine, attivata da un click su un pulsante, apre il file excel
"Moduli" e seleziona il foglio "Inviti da DBAccess" (per il resto fai
riferimento alle note del codice)
La seconda routine (contenuta in un modulo generale) riempie le celle
(ovviamente quelle che interessano a me, tu devi personalizzartela)
###############################
Private Sub Excel_Click()
On Error GoTo Err_Excel_Click
    Dim ExcelWorksheet As Object
    Dim stNote As String
    'Apre il file excel
    Set ExcelWorksheet = GetObject("C:\Documenti\Moduli.xls")
    'Imposta a visibile l'applicazione
    ExcelWorksheet.Application.Visible = True
    'Imposta a visibile il file aperto
    ExcelWorksheet.Parent.windows(1).Visible = True
    'Seleziona il Foglio
    ExcelWorksheet.sheets("Inviti da DBAccess").Select
    'Espande a tutto schermo excel
    ExcelWorksheet.Application.windowstate = MaximizeExcel
    'Ritrova le note da inserire nel modulo per gli inviti
    stNote = DLookup("Testo", "Servizio", "Impostazione= 'NoteInviti'")
    'Verifica che stNote non sia null per evitare errori
    stNote = IIf(IsNull(stNote), " ", stNote)
    'Riempie le celle del foglio
    RiempiCelle ExcelWorksheet.sheets("Inviti da DBAccess"), "ListaInviti
Query", stNote
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    ExcelWorksheet.UserControl = True
Exit_Excel_Click:
    Exit Sub
Err_Excel_Click:
    MsgBox Err.Description
    Resume Exit_Excel_Click
End Sub
******************************************
Public Sub RiempiCelle(Foglio As Object, stSQL As String, Optional stNote As
String, Optional stData As String)
Dim rst As Recordset
Dim x As Integer, y As Integer
    'Riempie le celle del foglio se sono presenti dati,
    'altrimenti da un messaggio di errore
    Set rst = CurrentDb.OpenRecordset(stSQL)
    If rst.EOF Then
        MsgBox "Nessun presente al corso selezionato", vbCritical,
"Attenzione"
    Else
        rst.MoveFirst
        Foglio.cells(2, 3) = rst!Corso & " - " & rst!Classe
        Foglio.cells(2, 8) = stData
        While Not rst.EOF
            For x = 0 To 7
                Foglio.cells(4 + y, 1 + x) = rst(x)
            Next x
            y = y + 1
            rst.MoveNext
        Wend
        While y < 18
            For x = 0 To 7
                Foglio.cells(4 + y, 1 + x) = Null
            Next
            y = y + 1
        Wend
    Foglio.cells(24, 1) = stNote
    Foglio.cells(25, 2) = rst.RecordCount
    End If
    rst.Close
    Set rst = Nothing
End Sub
##################################
Nota che la routine "RiempiCelle" riceve, come primo parametro, l'oggetto
"Foglio Excel".
I parametri Optional, ovviamente, si possono non passare.
