Newsgroup: it.comp.appl.access
Titolo: 3.97 - Strutturare una maschera per sfogliare le cartelle e avere un  anteprima del contenuto dei file contenuti

buongiorno a tutti.
Ho utilizzato l'esempio in oggetto per adattarlo alle mie esigenze.
Ora ho una form "openfile5" che mi legge il percorso e mi visualizza i
file excel che dovrò successivamente caricare nel db.
Premetto che ciascun file ha al suo interno un foglio "retrieve" che
riepiloga i dati di ciascuna cartella di lavoro.
La mia necessità è di avere sulla maschere "openfile5" un'anteprima
(dei dati del foglio retrieve) del file di excel individuato su
"openfile5" del quale riesco ad avere il percorso in una casella di
testo.
Qualcuno mi riesce ad aiutare ?
grazie infinite

 ha scritto nel messaggio 
news:f654748f-d11f-4aa7...@m25g2000yqc.googlegroups.com...
buongiorno a tutti.
Ho utilizzato l'esempio in oggetto per adattarlo alle mie esigenze.
Ora ho una form "openfile5" che mi legge il percorso e mi visualizza i
file excel che dovr� successivamente caricare nel db.
Premetto che ciascun file ha al suo interno un foglio "retrieve" che
riepiloga i dati di ciascuna cartella di lavoro.
La mia necessit� � di avere sulla maschere "openfile5" un'anteprima
(dei dati del foglio retrieve) del file di excel individuato su
"openfile5" del quale riesco ad avere il percorso in una casella di
testo.
Qualcuno mi riesce ad aiutare ?
grazie infinite
----------  RISPOSTA  ------------
Mi baso su Office 2003 (con Access 2003).
Nella Casella degli strumenti, l'ultima icona dovrebbe essere "Altri 
controlli...". Se fai click su questo, ti appare un elenco in ordine 
alfabetico di tutti i controlli aggiuntivi che potresti utilizzare. Scorrilo 
fino a "Microsoft Office Spreadsheet 11.0" e trascinalo sulla tua maschera. 
Cos� hai un mini foglio elettronico: eccoti le primissime istruzioni per 
poterlo utilizzare, altri esempi li puoi trovare su Google.
Private Sub Form_Load()
    Dim CartellaExcel As Object
    Dim FoglioExcel As Object
    Set CartellaExcel = Me.Spreadsheet1 (o l'eventuale nome del controllo se 
diverso)
    Set FoglioExcel = CartellaExcel.Worksheets(1)
    FoglioExcel.Cells(1, 1) = "PROVA"
End Sub
Ciao
Antonio

 Antonio
Ciao, grazie infinite per l'aiuto.
Purtroppo non riesco a collegare il mio foglio di lavoro dei vari
Excel e con la maschera perchè mi si innescano diversi errori nel
codice.
Pensavo in alternativa di fare cosi, e ci sto provando....purtroppo la
lacuna è enorme quasi quanto la mia ignoranza...
Ho realizzato una tabella "retrieve_excel" collegata ad uno dei file
excel contenuti nella mia directory (che ne contiene diversi...)
Nella maschera che visualizza la directory con i files scelgo
(doppioclick) quello di cui vorrei l'anteprima. La scelta viene
memorizzata in una casella di testo (testo33) e nella maschera
visualizzo i campi che mi interessano.
Ho un pulsante che mi consente l'anteprima (del file voluto) avviando
una macro.
Nella macro dovrei andare a aggiornare il percorso del file excel
(collegato alla tabella) con quello indicato nella casella di testo
(testo33).
Secondo me potrebbe/dovrebbe funzionare, ma mi manca qualche pezzo, mi
puoi anzi mi potete aiutare ?
grazie infinite