Jak wpisać do komórki datę utworzenia pliku?

Witaj,

Nie jestem pewien czy o to Ci chodzi, ale może naprowadz Ci na rozwiązanie.

1. W pierwszej kolejności musisz zmodyfikować Excel tak aby obsługiwał makra

http://www.mielk.pl/pl/kursy/kurs\_vba/kurs\_01\_wstep.php#aktywacja\_wstazki\_deweloper

2. Włącz zakładkę Deweloper

a)Kliknij przycisk Microsoft Office , a następnie kliknij polecenie Opcje programu Excel, Opcje programu PowerPoint lub Opcje programu Word.

b) Kliknij opcję Popularne, a następnie zaznacz pole wyboru Pokaż kartę Deweloper na Wstążce.

3. W zakładce Deweloper w dziale Kod wybierz Visual Basic.
4. W oknie projektu kliknij dwa razy w obiekt ThisWorkbook.
5. Wklej poniższy kod:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("Arkusz1").Range("A1").Value = "Ostatnie zmiany: " & Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "mm/dd/yy h:mm AM/PM")

End Sub

6.Zapisz plik.

Podczas zamykanie powinna się pojawi data modyfikacji.

 Jeśli moja odpowiedź jest rozwiązaniem, którego szukałeś, pamiętaj proszę aby kliknąć poniższy przycisk „Oznacz”.

Nie do końca mi o to chodziło, ale bardzo mi się przydało!

Połączyłem Twój kod z poniższym, który znalazłem na innym forum:

Dim datapliku As Date

datapliku = FileDateTime("c:\aaa\plik.txt")

i wyszło prawie to co chciałem:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim datapliku As Date

datapliku = FileDateTime("c:\aaa\plik.txt")

Worksheets("Arkusz1").Range("A1").Value = datapliku

End Sub

Piszę prawie, bo chciałem uzyskać datę utworzenia pliku, a nie modyfikacji. Ale to już i tak mi dużo pomogło.

Wielkie dzięki!