Popis FileCopy
Zkopíruje soubor z jednoho adresáře do druhého.
Jednoduché příklady FileCopy
1 | FileCopy "C: \ Test.txt" "D: \" |
Tím se zkopíruje soubor „Test.txt“ na „C: \“ na jednotku D.
Pokud soubor „Test.txt“ neexistuje na „C: \“, dojde k chybě při běhu ‘53‘: Soubor nebyl nalezen.
Syntaxe FileCopy
V editoru VBA můžete zadat „FileCopy (“ a zobrazit syntaxi příkazu FileCopy:
Příkaz FileCopy obsahuje 2 argumenty:
Zdroj: Řetězcový název souboru ke kopírování. Může obsahovat cestu.
Destinace: Řetězcový výraz, který určuje název cílového souboru. Cíl může zahrnovat adresář nebo složku a jednotku.
Příklady funkce Excel VBA FileCopy
Vyzkoušejte prosím následující kód.
123456789101112131415161718192021222324252627282930 | Vedlejší souborCopy_Příklad ()Dim dlgFilePicker jako FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile jako řetězecDim strTarFile jako řetězecNastavit dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Kopírovat"dlgFilePicker.Title = "Vyberte soubor, který chcete zkopírovat"If dlgFilePicker.Show = True ThenstrOrgFile = dlgFilePicker.SelectedItems (1)JinýUkončit dílčíKonec IfNastavit dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Uveďte prosím složku a napište název souboru."dlgFileSaveAs.ButtonName = "Vložit"Pokud dlgFileSaveAs.Show = True ThenstrTarFile = dlgFileSaveAs.SelectedItems (1)JinýUkončit dílčíKonec IfFileCopy strOrgFile, strTarFileEnd Sub |
Po spuštění se nejprve zobrazí dialogové okno „Vyberte soubor, který chcete zkopírovat“.
Poté byste měli vybrat soubor, který chcete zkopírovat.
Po výběru souboru klikněte na tlačítko „Kopírovat“.
Poté se zobrazí dialogové okno „Zadejte složku a napište název souboru“.
Měli byste vybrat cílovou složku a napsat název souboru.
Poté klikněte na tlačítko „Vložit“.
Potom bude zdrojový soubor zkopírován s cílovou složkou a názvem souboru.