Newsgroup: it.comp.appl.access
Titolo: Salvare la tabella su un file

Come faccio ad esportare una tabella in excell decidendo, su una casella
testo,  il nome del file???
Grazie
--
----
         \ | /
       (@ @)
---o00-(_)-00o-----
Marcello Guarnacci
Allenatore di 2 Grado - Attualmente sotto Servizio Civile
fu Scoutman Icom Latina A1m 2001/02
http://digilander.iol.it/mister79/index.htm
Imparare la pallavolo
Norma(LT)
328 46 90 897

 Marcello Guarnacci
Vai sull'help e, se usi VBA, leggiti l'argomento Metodo TransferSpreadsheet;
se invece usi le macro leggiti l'argomento Azione TrasferisciFoglioCalcolo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:3Um6a.151243$ZE.44...@twister2.libero.it...

Innanzitutto ti ringrazio per la risposta ma il mio problema non è esportare
la tabella, fin quì ci arrivo; il dilemma nasce se ho intenzione di
scegliere il nome del file prendendolo da una casella testo. Ho già provato
a immettere il percorso della casella al posto del nomefile ma non va(la
maschera naturalmente è attiva nel mentre).
Grazie per ulteriori idee

maschera naturalmente è attiva nel mentre).
prova con
----------------------------------------------
Private Sub BottoneExporta_OnClick()
    Dim NomeFile
    'Imposta il nomefile in base a quello ke scrivi nella casella di
testo
    Set NomeFile = Me.NomeCasellaDiTestoDellaMaschera
    'Inzia l'esportazione    
    DoCmd.TransferText acExportDelim, ,
"nome_della_tabella_da_esportare", "C:\percorso\" & NomeFile & ".txt",
True
   'c:\percorso e' la directory dove devi esportare la tabella
End Sub
-----------------------------------------------
Prova :))))))
Ciao

On Tue, 25 Mar 2003 22:42:47 GMT,
fabrizi...@SESPAMMITISTRONCOtin.it (yQy) wrote:
ERRATA CORRIGE:
----------------------------------------------
Private Sub BottoneExporta_OnClick()
Dim NomeFile
Set NomeFile = Me.NomeCasella
DoCmd.TransferText acExportDelim, , "tbl_AbbonamentiTELEPIU", "C:\" &
NomeFile & ".txt", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
"nome_tabella_da_esportare", "C:\percorsotuo\" & NomeFile & ".xls",
True
MsgBox "Esportazione completata in C:\percorso\" & NomeFile & ".xls
!", vbApplicationModal + vbOKOnly
End Sub
-----------------------------------------------
Scusami :))))))
Ciao 

 wrote:
A L L O R A:
questa e' la volta buona:
------------------------------------------------
Private Sub btn_Esporta_Click()
Dim NomeFile
Set NomeFile = Me.NomeCasellaSullaMaschera
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
"nometabella", "C:\tuopercorso" & NomeFile & ".xls", True
'il TRUE esporta anche i nomi sulle colonne, se non li vuoi omettilo
MsgBox "Esportazione completata in C:\" & NomeFile & ".xls !",
vbApplicationModal + vbOKOnly
End Sub
--------------------------------------------------
E' la vecchiaia ! :))))
ehehee

"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:3e80dd4b...@news.tin.it...

Non tanto per la vecchiaia ma per la rpidità (27 FeB), comuinque avevo già
risolto quando mi hanno detto cosa cercare.
Alla Prossima