Newsgroup: it.comp.appl.access
Titolo: Access+Excel?

Premesso che ho già controllato(forse male) su Sitocomune sotto gentile
consiglio ma senza risultato  provo a riformulare il mio problema....da
excel dovrei incollare i risultati di un report in un foglio di
lavoro....nessuno mi sà dire come posso fare magari stendendo due righe di
codice se ne fosse bisogno dato che la mia conoscenza di vba è praticamente
nulla? :)
Grazie a tutti anticipatamente!!!!!

 Grazie a tutti anticipatamente!!!!!
questo fà il contrario
forse ti può essere di aiuto per ottenere quello che ti serve. fammi sapere.
        Dim excApp As Excel.Application
        Dim excDoc As Excel.Workbook
        Set excApp = CreateObject("Excel.Application")
        Set excDoc = excApp.Workbooks.Open(percorso completo file di excel)
        excApp.Visible = False
        'fino a che c'è qualche articolo nella riga successiva immagazzina i
dati
        Dim i, j
        Dim categoria
        i = 1
        j = 1
        Do While j <= 3
            Do While excDoc.Worksheets(1).Cells(i, j) <> ""
                'se lo sfondo è giallo è una categoria e lo inserisco nelle
categorie
                If excDoc.Worksheets(1).Cells(i, j).Interior.ColorIndex = 6
Then
                    DoCmd.OpenForm "categorie", acNormal, , , acFormAdd,
acIcon
                    Forms![categorie]![categoria] =
excDoc.Worksheets(1).Cells(i, j)
                    DoCmd.Close acForm, "categorie", acSaveYes
                    categoria = excDoc.Worksheets(1).Cells(i, j)
                Else
                    DoCmd.OpenForm "articoli", acNormal, , , acFormAdd,
acIcon
                    Forms![articoli]![Descrizione] =
excDoc.Worksheets(1).Cells(i, j)
                    If Nz(excDoc.Worksheets(1).Cells(i, j + 1), 0) = "tel."
Then
                        Forms![articoli]![PrezzoUnitario] = 0
                    Else
                        Forms![articoli]![PrezzoUnitario] =
Nz(excDoc.Worksheets(1).Cells(i, j + 1), 0)
                    End If
                    Forms![articoli]![categoria] = categoria
                    DoCmd.Close acForm, "articoli", acSaveYes
                End If
                i = i + 1
            Loop
        j = j + 2
        i = 1
        Loop


    Cosa intendi con "da excel"? Che l'operazione deve essere avviata
dall'utente mentre sta lavorando con excel?
    Cmq considera quanto segue:
        Access
        Apri il report
        Strumenti > Collegamenti di Office
        Analizza con MS Excel
    Intendi ottenere qualcosa del genere?
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

     Intendi ottenere qualcosa del genere?
l'avevo fatto in precedenza....ma non è quello che cerco anche perchè i dati
vengono incollati su una tabella generata in quel momento...e non su una che
mi sono costruito in precedenza.....
grazie a tutti per l'aiuto che mi state dando fino a questo momento!!!!!
Andrea

 momento!!!!! Andrea
    Una volta che hai i dati in un foglio di lavoro, li puoi copiare
dove vuoi...


 ha scritto nel messaggio
news:WSSja.63886$Jg1.1...@news1.tin.it...

Che pensi di una query su database....?!?
Ti risolverebbe qualcosa..?!?
ti puoi costruire una tabella in Excel è collegarla tramite query al
db.......non male come idea.?!? che ne pensi??
Fammi sapere.
--
Gianni B.