Newsgroup: it.comp.appl.access
Titolo: Aiutino urgente se possibile.......................

Salve ragazzi..........mi dispiace disturbarvi ancora ma purtroppo non ci
arrivo a risolvere questo problema,è non so se è possibile
realizzarlo........comunque ve lo espongo.......
in un db entrateUscite ho realizzato una maschera principale in cui ho
creato un pulsante di comando che chiamo "Export"all'evento click
ho aplicato questo codice:
Private Sub Puls12_Click()
 Const ErrExcelAperto = 2302
On Error GoTo err_Puls12
DoCmd.OutputTo acOutputQuery, "Material Query", acFormatXLS,
"Wagon_Dispo01.xls ", True
err_Puls12: 'Aggingi un select case
 Select Case Err.Number
   Case ErrExcelAperto
    MsgBox "Wagon_Dispo01 ist gerade offen,probieren spätter!!", vbCritical,
"ACHTUNG!!"
     Case Else
      MsgBox Err.Number & "" & Err.Description
       End Select
End Sub
Praticamnte mi  esporta i dati di una query creando un  documento Excel
dove voglio io...Ok.......
ora la mi domanda è questa quando io lancio Export  automaticamente
l'Intestazione del documento Excel prende il nome che glio ho dato io in
questo caso"Wagon_Dispo01xls."
C'è un modo per far si che oltre al nome del documneto si potesse
visualizzare la data è l'ora
che è stato esportato??  in questo modo: Wagon_Dispo01 xls. 15.04.03; 22.50.
Spero di essere stato abbastanza chiaro e
grazie a tutti come sempre .
--
Gianni B.

 ha scritto nel messaggio
news:3e9c7...@news.bluewin.ch...

dim nome as string
nome=> "Wagon_Dispo01.xls " & now
DoCmd.OutputTo acOutputQuery, "Material Query", acFormatXLS,
"nome" True
prova così stefano

 ha scritto nel messaggio
news:3e9c7...@news.bluewin.ch...
Quasi immediato:
scrivi un subject più significativo!!!
Antonio

 ha scritto nel messaggio
news:8C4na.26996$T34.8...@news2.tin.it...

Grazie Stefano provero subbito.
--
Gianni B.

 > 22.50.
No, non credo che sia possibile.
L'intestazione del foglio di Excel, cioè ciò che leggi nella barra del
titolo di Excel, non è una intestazione, ma è il nome stesso del documento.
Puoi assegnare al file un nome tipo "Wagon_Dispo01" & Now() & ".xls", con
tutti i problemi di un nome così lungo, ma non puoi fare in modo che Excel
visualizzi l'ora e la data DOPO l'estensione del documento (.xls).
Spero ti sia d'aiuto. Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:3e9d3f18$1...@news.bluewin.ch...

prova così
Dim pippo As String
pippo = "C:\Kabisa99\" & Loginex & " " & Connessione & ".xls"
DoCmd.TransferText acExportDelim, , "LOGstory",
"c:\kabisa\SETTEMBRE\LOG.doc"'
On Error Resume Next
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "LogExel",
pippo
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel5, "LogExel",
pippo
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel4, "LogExel",
pippo
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel3, "LogExel",
pippo
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "LogExel",
pippo
On Error GoTo 0
al posto di kabisa99 metti il percorso in cui vuoi salvare il file,
loginex è una variabile globale alla quale tu assegnerai il nome del file e
connessione è una variabile globale alla quale tu metterai il valore della
data e ora con la funzione now
Così funziona.