Excel թերթի հիման վրա ֆայլերը մի թղթապանակից մյուսը տեղափոխելը / պատճենելը

Խնդրում եմ փորձեք այսպես.
Պատճենել կամ տեղափոխել մեկ ֆայլ
Մեկ ֆայլի համար կարող եք օգտագործել VBA Name և FileCopy ֆունկցիաները, իսկ ամբողջ թղթապանակների կամ շատ ֆայլերի համար օգտագործել այս էջի մյուս մակրո օրինակները:
SubCopy_One_File()
    FileCopy «C:\Users\Ron\SourceFolder\Test.xls», «C:\Users\Ron\DestFolder\Test.xls»
Վերջ Sub
Sub Move_Rename_One_File()
«Դուք կարող եք փոխել ուղին և ֆայլի անունը
    Անվանումը «C:\Users\Ron\SourceFolder\Test.xls» որպես «C:\Users\Ron\DestFolder\TestNew.xls»
Վերջ Sub
Պատճենեք կամ տեղափոխեք ավելի շատ ֆայլեր կամ լրացրեք պանակները
Նշում. Կարդացեք կոդի մեկնաբանված տողերը
SubCopy_Folder ()
«Այս օրինակը պատճենում է բոլոր ֆայլերը և ենթաթղթապանակները FromPath-ից ToPath:
Նշում. Եթե ToPath-ն արդեն գոյություն ունի, այն կվերագրի առկա ֆայլերը այս թղթապանակում
Եթե ​​ToPath-ը գոյություն չունի, այն կստեղծվի ձեզ համար:
    Dim FSO որպես օբյեկտ
    Dim FromPath As String
    Dim ToPath As String
    FromPath = "C:\Users\Ron\Data" '<< Փոխել
    ToPath = "C:\Users\Ron\Test" '<< Փոխել
    «Եթե ցանկանում եք ստեղծել ձեր թղթապանակի կրկնօրինակը ամեն անգամ, երբ գործարկում եք այս մակրոն
    «Դուք կարող եք ստեղծել եզակի թղթապանակ Ամսաթիվ/ժամային կնիքով:
    «ToPath = «C:\Users\Ron\» և ձևաչափ (այժմ՝ «yyyy-mm-dd h-mm-ss»)
    If Right(FromPath, 1) = "\" Ապա
        FromPath = ձախ (FromPath, Len (FromPath) - 1)
    Վերջ: Եթե
    If Right(ToPath, 1) = "\" Ապա
        ToPath = ձախ (ToPath, Len (ToPath) - 1)
    Վերջ: Եթե
    Սահմանել FSO = CreateObject («scripting.filesystemobject»)
    Եթե ​​FSO.FolderExists(FromPath) = False then
        MsgBox FromPath & «չկա»
        Ելք ենթ
    Վերջ: Եթե
    FSO.CopyFolder Աղբյուրը՝=FromPath, Նպատակակետը՝=ToPath
    MsgBox «Դուք կարող եք գտնել ֆայլերը և ենթաթղթապանակները « & FromPath & «-ից «&ToPath»-ում
Վերջ Sub