Witam,
Mam plik z kodem, który tworzy mi kopię zapasową wskazanego pliku. Niestety mam pewien problem. Otóż zamysł jest taki aby ten plik podłączyć pod harmonogramowanie zadań w Windows aby kopia wykonywała się automatycznie raz dziennie o wskazanej godzinie. Wszystko działa, kopia się tworzy i wpada do folderu archiwum, niestety jakby po wykonaniu kodu plik nie zamyka się a zamyka się sam skoroszyt. W załączniku to co pozostaje na ekranie a powinno zniknąć. Dodam, że w tym czasie możliwe, że będą też otwarte inne pliki excel a chciałabym aby zamykał się tylko ten który tworzy kopię. Poniżej kod:
Private Sub Workbook_Open()
Dim FullNazwaPlik As String
Dim NazwaPlik As String
Dim NazwaKopia As String
Dim WKB As Workbook
FullNazwaPlik = "C:\Users\aralowiec\Desktop\Kopia zapasowa pliku\X"
NazwaPlik = Right(FullNazwaPlik, Len(FullNazwaPlik) - InStrRev(FullNazwaPlik, "\"))
NazwaKopia = "C:\Users\X\Desktop\Kopia zapasowa pliku\Archiwum\" & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "_" & NazwaPlik
Set WKB = Workbooks.Open(FullNazwaPlik)
WKB.SaveAs NazwaKopia
WKB.Close
Set WKB = Nothing
ThisWorkbook.Close False
End Sub
Bardzo proszę o pomoc :)
Załączniki
- w.JPG ( 69K )