Salvare file con data

Hai un problema con Excel?

Nuova discussione

Salvare file con data
di Albertino (utente non iscritto) data: 25/05/2010
Salve a tutti ragazzi,

ho un problema. attraverso una macro contunata in un file macro.xls utilizzo per alcuni operazioni un file excel auto.xls alla fine delle mie operazioni vorrei salvare il file nel formato auto_yyyymmgg.xls potete aiutarmi a farlo???

di Albatros54 (utente non iscritto) data: 25/05/2010
Prova cosi.
tratto da norman jones
ciao
albatros54

'============>>
Public Sub Tester2()
    Dim WB As Workbook
    Dim sStr As String
    Const sNome As String = "Listino.xls" '<<=== da CAMBIARE

    Set WB = Workbooks(sNome)
    sStr = Left(sNome, Len(sNome) - 4)
    WB.SaveAs Filename:=sStr & Space(1) _
                       & Format(Date, "yyyy-mm-dd") & ".xls", _
                       FileFormat:=xlWorkbookNormal

End Sub
'<<============

di Locate (utente non iscritto) data: 25/05/2010
Ciao
ti posto una macro che fa questo lavoro sta a te adattattarla dove deve salvare perche' cosi come e' posta salva sul mio dex
in pratica devi modificarla in alcuni parametri col tuo indirizzo, la cosa e' molto semplice da modificare
ciao da locate

Sub SalvaconNome()
Dim Data, SalvaNome
Data = Format(Date, "yyyymmdd")
SalvaNome = "C:Documents and SettingsHP_ProprietarioDesktop" & "Auto_" & Data & ".xls"
        ActiveWorkbook.SaveAs Filename:= _
        SalvaNome, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Salva con data
di Albertino (utente non iscritto) data: 26/05/2010
Grazie a tutti ragazzi!! ho utilizzato la sub() salvaconnome adattandola perchè mi salvava il foglio della macro con il mio nome unito alla data..cmq sembra tutto ok!! mi chiedevo per curiosità se si poteva adattare la sub()ad una function(pluto,salvacondata) in modo tale che la posso richiamare su parametri diversi:
call function(pluto1,salvacondata)
call function(pluto2,salvacondata)
ecc.....

grazie a tutti per l'aiuto.....!!

Vuoi Approfondire?