Kopiowanie lub przenoszenie plików

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

 

2 myśli w temacie “Kopiowanie lub przenoszenie plików

  1. Private Sub KopiujBaze_Click()
    sciezkaSkad = Sheets(„konfig”).Cells(2, 6)
    sciezkaDokad = Sheets(„konfig”).Cells(1, 6)
    FileCopy sciezkaSkad, sciezkaDokad
    MsgBox („Gotowe”)
    End Sub

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.