Vba: jak skopiować plik z jednej lokalizacji do drugiej

Aby skopiować plik z jednego folderu do drugiego, możesz użyć metody CopyFile w języku VBA.

Oto powszechny sposób wykorzystania tej metody w praktyce:

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

To konkretne makro kopiuje plik o nazwie Soccer_data.txt z folderu o nazwie Some_Data_1 do folderu o nazwie Some_Data_2 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak skopiować pliki za pomocą VBA

Załóżmy, że mamy plik tekstowy o nazwie football_data.txt znajdujący się w folderze Some_Data_1 na naszym pulpicie:

Załóżmy teraz, że chcemy użyć VBA do skopiowania tego pliku tekstowego do innego folderu o nazwie Some_Data_2 na naszym pulpicie, który obecnie zawiera dwa pliki tekstowe:

Zanim użyjemy VBA do skopiowania tego pliku, musimy najpierw włączyć Microsoft Scripting Runtime w edytorze VB.

Aby to zrobić, otwórz edytor VB, następnie kliknij Narzędzia , a następnie kliknij Referencje :

W nowym oknie, które się pojawi, przewiń w dół, aż zobaczysz Microsoft Scripting Runtime i zaznacz pole obok niego. Następnie kliknij OK .

Następnie możemy utworzyć następujące makro, aby skopiować plik:

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

Po wykonaniu tego makra plik o nazwie Soccer_data.txt zostanie skopiowany z folderu Some_Data_1 do folderu Some_Data_2 :

Oryginalny plik Soccer_data.txt również pozostanie w folderze Some_Data_1 :

Uwaga : Pełną dokumentację metody CopyFile można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak tworzyć foldery za pomocą VBA
Jak usunąć foldery za pomocą VBA
Jak usunąć pliki za pomocą VBA