cambiare data creazione file

[Kri]

Ciao,
se vado in proprietà del file è indicata la data di creazione.
E' possibile cambiarla. Grazie.

[Norman Jones]

Ciao Kri,

Infatti la data di creazione e' indicata sia sulla
scheda "Generale" che sulla scheda "Statistiche".

Per modificare la seconda data prova:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Const sNewDate As String = "1/1/2000" '<<== da CAMBIARE

Set WB = Workbooks("Pippo.xls") '<<== da CAMBIARE

WB.BuiltinDocumentProperties. _
Item("Creation Date").Value = sNewDate
End Sub
'<<=============

Se tu volessi modificare entrambe le date,
potresti provare:

'=============>>
Public Sub Tester2()
Dim WB As Workbook
Dim WB2 As Workbook
Dim aName As String
Dim sPath As String
Dim sFullname As String
Dim sFullname2 As String
Dim date1 As Date
Dim date2 As Date
Const sStr As String = "1/1/2000" '<<=== da CAMBIARE

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE

With WB
sFullname = .FullName
sPath = .Path

date1 = Date
date2 = DateValue(sStr)
Date = date2

sFullname2 = sPath & "\" & "XXX.xls"
.SaveCopyAs sFullname2
.Close False
End With

Kill sFullname
Set WB2 = Workbooks.Open(sFullname2)

With WB2
.SaveCopyAs sFullname
.Close False
End With
Date = date1
Workbooks.Open (sFullname)

Kill sFullname2

ActiveWorkbook.BuiltinDocumentProperties( _
"Creation Date").Value = sStr
End Sub
'<<=============


---
Regards,
Norman

[Kri]

Ciao Norman Jones

Post by Norman Jones
'=============>>
Public Sub Tester()

Porta pazienza ma sono una frana!.
Di cosa stai scrivendo?
Ok ridi ma non troppissimo. grazie. E' DOS?
Ho molti file che devo cambiare le date. Le devo fare su ognuno?
Grazie davvero!

bye Kri

[Norman Jones]

Ciao Kri,

'------------
Porta pazienza ma sono una frana!.
Di cosa stai scrivendo?
Ok ridi ma non troppissimo. grazie. E' DOS?
'------------

No, si tratta di VBA e sono io che devo chiedere
scusa: normalmente avrei spiegato come inserire e
utilizzare il mio codice.

'------------
Ho molti file che devo cambiare le date. Le devo fare su ognuno?
'------------

Credo di si'.

Comunque, prima di consigliarti un aggiornamento
del codice e una spiegazione del modo di utilizzarlo,
potresti spiegare il motivo per il cambiamento della
data di questi "molti" file?

Certamente non sarebbe una esigenza tipica!

---
Regards,
Norman

[Kri]

Buona domenica Norman Jones

Post by Norman Jones
No, si tratta di VBA e sono io che devo chiedere
scusa: normalmente avrei spiegato come inserire e
utilizzare il mio codice.

Ti ringrazio, ma non sapevo neanche l'esistenza del VBA, ho letto che
espande i linguaggi di scripting contenuti precedentemente in tali
applicazioni e può essere utilizzato per controllare praticamente
tutti gli aspetti dell'applicazione ospite, quali l'interfaccia utente
(manipolazione dei menu, delle toolbar, ecc.).
.....ma continuo a non capire come si usa.

Post by Norman Jones
Comunque, prima di consigliarti un aggiornamento
del codice e una spiegazione del modo di utilizzarlo,
potresti spiegare il motivo per il cambiamento della
data di questi "molti" file?

Si tratta di apertura lotti prodotti.
Ogni volta che si procede alla apertura della produzione io vado sul
file che ho creato e lo salvo con la data di produzione.
Il problema è che da gennaio fino ad ora lo facevo in modo cartaceo ed
era un gran pasticcio perchè dovevo fare tantissime fotocopie.
Sono io quella delle cartelle e sottocartelle di qualche giorno fa. Mi
sono creata dei fogli di lavoro che si prendono i dati da un foglio
all'altro (una banalità, ma per me significa molto tempo di lavoro
risparmiato) e insomma è venuto un lavoro carino.
Visto che verrà esaminato volevo proporre il lavoro su PC anche
retroattivo.
Così ho fatto solo che....furbizia apertura lotto 10-01-07 data
creazione 17-03-07.
C'è sempre il cartaceo però preferirei fare un bel lavoro.
Grazie.

bye Kri

[Norman Jones]

Ciao Kri,

Prova la seguente versione (vedi le istruzioni
che seguono il codice):

''=============>>
Public Sub Tester()
Dim WB As Workbook
Dim WB2 As Workbook
Dim aName As String
Dim sPath As String
Dim sFullname As String
Dim sFullname2 As String
Dim date1 As Date
Dim date2 As Date
Dim sStr As String

sStr = InputBox(Prompt:="inserisci la voluta " _
& "data di creazione", _
Title:="Data di Creazione")

If sStr = vbNullString Then
Exit Sub
End If

Set WB = ActiveWorkbook

With WB
sFullname = .FullName
sPath = .Path

date1 = Date
date2 = DateValue(sStr)
Date = date2

sFullname2 = sPath & "\" & "XXX.xls"
.SaveCopyAs sFullname2
.Close False
End With

Kill sFullname

Set WB2 = Workbooks.Open(sFullname2)

With WB2
.SaveCopyAs sFullname
.Close False
End With
Date = date1
Workbooks.Open (sFullname)

Kill sFullname2

With ActiveWorkbook
.BuiltinDocumentProperties( _
"Creation Date").Value = sStr
.Close SaveChanges:=True
End With
End Sub
'<<=============

Per utilizzare questa routine:

Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Incolla il suddetto codice
Alt-F11 per tornare in Excel

Ora, per ogni file di interesse, apri il file e::

Alt-F8
Seleziona "Tester"
Esegui


---
Regards,
Norman



"Kri" <***@yahoo.it> wrote in message news:***@n59g2000hsh.googlegroups.com...
Buona domenica Norman Jones

Post by Norman Jones
No, si tratta di VBA e sono io che devo chiedere
scusa: normalmente avrei spiegato come inserire e
utilizzare il mio codice.

Ti ringrazio, ma non sapevo neanche l'esistenza del VBA, ho letto che
espande i linguaggi di scripting contenuti precedentemente in tali
applicazioni e può essere utilizzato per controllare praticamente
tutti gli aspetti dell'applicazione ospite, quali l'interfaccia utente
(manipolazione dei menu, delle toolbar, ecc.).
.....ma continuo a non capire come si usa.

Post by Norman Jones
Comunque, prima di consigliarti un aggiornamento
del codice e una spiegazione del modo di utilizzarlo,
potresti spiegare il motivo per il cambiamento della
data di questi "molti" file?

Si tratta di apertura lotti prodotti.
Ogni volta che si procede alla apertura della produzione io vado sul
file che ho creato e lo salvo con la data di produzione.
Il problema è che da gennaio fino ad ora lo facevo in modo cartaceo ed
era un gran pasticcio perchè dovevo fare tantissime fotocopie.
Sono io quella delle cartelle e sottocartelle di qualche giorno fa. Mi
sono creata dei fogli di lavoro che si prendono i dati da un foglio
all'altro (una banalità, ma per me significa molto tempo di lavoro
risparmiato) e insomma è venuto un lavoro carino.
Visto che verrà esaminato volevo proporre il lavoro su PC anche
retroattivo.
Così ho fatto solo che....furbizia apertura lotto 10-01-07 data
creazione 17-03-07.
C'è sempre il cartaceo però preferirei fare un bel lavoro.
Grazie.

bye Kri

[Kri]

Ciao Norman Jones

Post by Norman Jones
Prova la seguente versione (vedi le istruzioni

Evviva!!!!!!!!!!!
Mi ci andrà tutto il giorno per variare i file ma la data creazione si
cambia (nelle statistiche no, ma non importa).
Sei un genio! Grazie infinitamente.
bye Kri