Newsgroup: it.comp.appl.access
Titolo: Automazione da tabella temporane access in excel

Ciao sono alle prime armi avrei necessita' di esportare da access 2003
in excel 2003 una tabella temporanea di access in un file di excel
tabulato in un modo preciso non sequenziale
es. campo 1 A1
c ampo 2 B3
campo 3 I 10
.....
io ho trovato qusto codice
Dim oExcel As Object
 Dim oBook As Object
 Dim oSheet As Object
 'Start a new workbook in Excel
 Set oExcel = CreateObject("Excel.Application")
 Set oBook = oExcel.Workbooks.Add
 'Add data to cells of the first worksheet in the new workbook
 Set oSheet = oBook.Worksheets(1)
 oSheet.Range("A1").Value = "Last Name" (vorrei passare un campo
preciso non una stringa)
 oSheet.Range("B1").Value = "First Name"
 oSheet.Range("A1:B1").Font.Bold = True
 oSheet.Range("A2").Value = "Doe"
 oSheet.Range("B2").Value = "John"
 'Save the Workbook and Quit Excel
 oBook.SaveAs "C:\Book1.xls"
 oExcel.Quit
diciamo che va bene per alcune porzioni di codice ma io ho la
necessita' di leggere da una tabella un record e passarlo su excel in
un range preciso non so se sono stato chiaro
grazie aspetto con una tua risposta


Prova a vedere questo esempio:
http://www.donkarl.com/it/CISA/Download.htm
CISA1 - Automazione di Excel
Ciao.
-- 
Sergio MAZZA 

 - Mostra testo tra virgolette -
Grazie per avermi risposto prima di tutto
avevo notato e visto l'esempio di cisa e diciamo che gran parte del
codice va bene per il mio lavoro soltanto i problemi nascono quando
uso il codice :
 .Range(.Names(, "solo_per_uso_interno")).Value = Nz(Me!
solo_per_uso_interno, "")
funziona quando i valori sono nella stessa maschera caricata e attiva
ma io devo passare anche dei dati relazionati con un controllo a
schede cioe' ho un form con un controllo a schede con delle
sottomaschere alle quali sono aggangiate altre sottomaschere es.
anagrfica - tipologia di servizio - riesame contabile quindi pensavo
di creare una query di creazione tabella temporane dato che i join
erano molti come ho gia fatto per l'automazione word e poi pensavo di
poter leggere un singolo campo e passarlo al value del range ma non
conosco il modo per farlo con il metodo di excel
.Selection.GoTo wdGoToBookmark, Name:="Via"           ' nome del
segnaglibro dove devenadare il valore passato
 .Selection.TypeText Nz(rstSollecito!IndirizzoFatt, " ")      'nome
del campo della tabella temporanea nel db
grazie spero che mi puoi dare una delucidazione

 grazie spero che mi puoi dare una delucidazione
(premessa)L'esempio č "un esempio"; da questo si parte per personalizzarlo; 
non avevo certo la pretesa di risolvere i problemi dell'universo, ammesso 
che ne abbia qualcuno...
Il funzionamento logico dell'esempio č lo stesso che hai utilizzato per 
word+bookmark; solo che nel foglio hai (prima) identificato delle celle (o 
un range di queste) creando dei nomi.
Nell'esempio tutto il codice č ampiamente commentato in ogni passo; in ogni 
caso puoi fare riferimento alla cella tramite il nome che gli hai dato:
...
        .Range(.Names(, "Cliente_nominativo")).Value = Me!cliente_nominativo
        .Range(.Names(, "Cliente_Indirizzo")).Value = Me!cliente_indirizzo
...
oppure tramite le coordinate colonna/riga:
...
    .Range("B1").Value = ...
...
Scegli tu.
Se crei una query/tabella, come base dati, devi crearti poi un recordset...
Ciao.
-- 
Sergio MAZZA