Opis pliku Kopiuj
Kopiuje plik z jednego katalogu do drugiego.
Proste przykłady kopiowania plików
| 1 | FileCopy "C:\Test.txt" "D:\" |
Spowoduje to skopiowanie pliku „Test.txt” z „C: \” na dysk D.
Jeśli plik „Test.txt” nie istnieje na „C:\”, wystąpi błąd wykonania „53”: Nie znaleziono pliku.
Składnia FileCopy
W Edytorze VBA możesz wpisać „FileCopy (”, aby zobaczyć składnię instrukcji FileCopy:
Instrukcja FileCopy zawiera 2 argumenty:
Źródło: Ciąg nazwa pliku do skopiowania. Może zawierać ścieżkę.
Miejsce docelowe: Wyrażenie tekstowe, które określa nazwę pliku docelowego. Miejsce docelowe może obejmować katalog lub folder oraz dysk.
Przykłady funkcji Excel VBA FileCopy
Przetestuj z następującym kodem.
| 123456789101112131415161718192021222324252627282930 | Sub plikCopy_Example()Dim dlgFilePicker As FileDialogDim dlgFileZapisz jako okno plikuDim strOrgFile As StringDim strTarFile As StringUstaw dlgFilePicker = Application.FileDialog(msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FałszdlgFilePicker.ButtonName = "Kopiuj"dlgFilePicker.Title = "Wybierz plik do skopiowania"Jeśli dlgFilePicker.Show = True WtedystrOrgFile = dlgFilePicker.SelectedItems(1)W przeciwnym razieWyjście SubZakończ, jeśliUstaw dlgFileSaveAs = Application.FileDialog(msoFileDialogSaveAs)dlgFileSaveAs.Title = "Wskaż folder i wpisz nazwę pliku."dlgFileSaveAs.ButtonName = "Wklej"Jeśli dlgFileSaveAs.Show = Prawda WtedystrTarFile = dlgFileSaveAs.SelectedItems(1)W przeciwnym razieWyjście SubZakończ, jeśliFileCopy strOrgFile, strTarFileNapis końcowy |
Uruchamiając go, na początku wyświetli się okno dialogowe „Proszę wybrać plik do skopiowania”.
Następnie należy wybrać plik do skopiowania.
Po wybraniu pliku kliknij przycisk „Kopiuj”.
Następnie wyświetli się okno dialogowe „Proszę wskazać folder i wpisać nazwę pliku”.
Powinieneś wybrać folder docelowy i wpisać nazwę pliku.
Następnie kliknij przycisk „Wklej”.
Następnie plik źródłowy zostanie skopiowany z folderem docelowym i nazwą pliku.
