„FileCopy“ aprašymas
Kopijuoja failą iš vieno katalogo į kitą.
Paprasti „FileCopy“ pavyzdžiai
| 1 | „FileCopy“ „C: \ Test.txt“ „D: \“ |
Tai nukopijuos failą „Test.txt“, esantį „C: \“, į D diską.
Jei failo „Test.txt“ nėra „C: \“, įvyks vykdymo laiko klaida „53“: failas nerastas.
„FileCopy“ sintaksė
VBA redaktoriuje galite įvesti „FileCopy (“), kad pamatytumėte „FileCopy“ teiginio sintaksę:
„FileCopy“ teiginyje yra 2 argumentai:
Šaltinis: Kopijuojamo failo eilutės pavadinimas. Gali apimti kelią.
Kelionės tikslas: Eilutės išraiška, nurodanti tikslinio failo pavadinimą. Tikslas gali apimti katalogą ar aplanką ir diską.
„Excel VBA FileCopy“ funkcijos pavyzdžiai
Patikrinkite naudodami šį kodą.
| 123456789101112131415161718192021222324252627282930 | Antrasis failo kopijos_pavyzdys ()Dim dlgFilePicker kaip FileDialogDim dlgFileSaveAs kaip FileDialogDim strOrgFile kaip eilutėDim strTarFile kaip eilutėNustatykite dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = NetiesadlgFilePicker.ButtonName = "Kopijuoti"dlgFilePicker.Title = "Prašome pasirinkti failą, kurį norite kopijuoti"Jei dlgFilePicker.Show = Tiesa tadastrOrgFile = dlgFilePicker.SelectedItems (1)KitasIšeiti iš SubPabaiga JeiNustatykite dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Prašome nurodyti aplanką ir parašyti failo pavadinimą."dlgFileSaveAs.ButtonName = "Įklijuoti"Jei dlgFileSaveAs.Show = Tiesa tadastrTarFile = dlgFileSaveAs.SelectedItems (1)KitasIšeiti iš SubPabaiga JeiFileCopy strOrgFile, strTarFilePabaiga Sub |
Vykdant jį, iš pradžių pasirodys dialogo langas „Prašome pasirinkti failą, kurį norite kopijuoti“.
Tada turėtumėte pasirinkti failą, kurį norite kopijuoti.
Pasirinkę failą, spustelėkite mygtuką „Kopijuoti“.
Tada pasirodys dialogo langas „Nurodykite aplanką ir parašykite failo pavadinimą“.
Turėtumėte pasirinkti paskirties aplanką ir parašyti failo pavadinimą.
Po to spustelėkite mygtuką „Įklijuoti“.
Tada šaltinio failas bus nukopijuotas su paskirties aplanku ir failo pavadinimu.
