Niedawno w jednym z projektów musiałem kopiować oryginalny plik i wklejać go w domyślną nową lokalizację. To rozwiązanie miało na celu, aby oryginalny plik nie został zmieniony, a także aby makra mogły być uruchamiane w nowym pliku.
Kopiowanie pliku:
' https://www.rondebruin.nl/win/s3/win026.htm
Sub Copy_One_File()
FileCopy "SciezkaOryginalnegoPliku\NazwaPliku.xlsm", _
"SciezkaNowegoPliku\NowaNazwaPliku.xlsm"
End Sub
Przenoszenie pliku:
' https://www.rondebruin.nl/win/s3/win026.htm
Sub Move_Rename_One_File()
'You can change the path and file name
Name "C:\Users\Ron\SourceFolder\Test.xls" As "C:\Users\Ron\DestFolder\TestNew.xls"
End Sub
Private Sub KopiujBaze_Click()
sciezkaSkad = Sheets(„konfig”).Cells(2, 6)
sciezkaDokad = Sheets(„konfig”).Cells(1, 6)
FileCopy sciezkaSkad, sciezkaDokad
MsgBox („Gotowe”)
End Sub
Dziękuję, muszę przyznać, ze dałem tak jałowy opis, że aż sam się wstydzę 😀