Ինչպե՞ս Excel- ում բազմակի Excel ֆայլեր CSV ֆայլերի փոխարկել:

Excel- ում մենք կարող ենք աշխատանքային գիրքը CSV ֆայլ դարձնել Save as գործառույթով, բայց կարո՞ղ եք իմանալ, թե ինչպես Excel- ի բազմաթիվ ֆայլեր խմբաքանակ դարձնել CSV ֆայլերն առանձնացնելու համար: Այս հոդվածում ես ներկայացնում եմ VBA կոդ ՝ թղթապանակում գտնվող բոլոր Excel ֆայլերը խմբաքանակի մեջ Excel- ում CSV ֆայլերի փոխարկելու համար:

Թղթապանակի Excel ֆայլերը խմբաքանակով փոխակերպում են VBA- ի CSV ֆայլերի

Excel- ի համար Kutools- ով աշխատանքային գրքի թերթերը վերափոխեք առանձին CSV ֆայլերի

Թղթապանակի Excel ֆայլերը խմբաքանակով փոխակերպում են VBA- ի CSV ֆայլերի

Excel- ում չկա ներկառուցված գործառույթ, որը կարող է արագ լուծել այս գործը, բացառությամբ VBA- ի:

1. Միացնել Excel- ը և սեղմել Alt + F11 ստեղները բաց են Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ ստեղծել նոր Մոդուլ:

3. Պատճենեք ներքևի կոդը և տեղադրեք դրանք նոր Մոդուլի պատուհանում:

VBA. Փոփոխական Excel ֆայլերը CSV են դարձնում

Sub WorkbooksSaveAsCsvToFolder()

'UpdatebyExtendoffice20181031

Dim xObjWB As Workbook

Dim xObjWS As Worksheet

Dim xStrEFPath As String

Dim xStrEFFile As String

Dim xObjFD As FileDialog

Dim xObjSFD As FileDialog

Dim xStrSPath As String

Dim xStrCSVFName As String

Dim xS  As String

    Application.ScreenUpdating = False

    Application.EnableEvents = False

    Application.Calculation = xlCalculationManual

    Application.DisplayAlerts = False

    On Error Resume Next

Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)

    xObjFD.AllowMultiSelect = False

    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"

    If xObjFD.Show <> -1 Then Exit Sub

    xStrEFPath = xObjFD.SelectedItems(1) & "\"

    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)

 
    xObjSFD.AllowMultiSelect = False

    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"

    If xObjSFD.Show <> -1 Then Exit Sub

    xStrSPath = xObjSFD.SelectedItems(1) & "\"


    xStrEFFile = Dir(xStrEFPath & "*.xls*")


    Do While xStrEFFile <> ""

       xS = xStrEFPath & xStrEFFile

        Set xObjWB = Application.Workbooks.Open(xS)

        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"

        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV

        xObjWB.Close savechanges:=False

        xStrEFFile = Dir

  Loop

    Application.Calculation = xlCalculationAutomatic

    Application.EnableEvents = True

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

4. Մամուլ F5 ստեղնը, ընտրեք պանակը, որը պարունակում է Excel ֆայլեր, որոնք ցանկանում եք փոխարկել CSV ֆայլերի առաջին բացվող երկխոսության մեջ:

5: սեղմեք OK, ապա երկրորդ ելնող երկխոսության մեջ ընտրեք թղթապանակը CSV ֆայլերը տեղադրելու համար:

6: սեղմեք OK, այժմ թղթապանակում գտնվող Excel ֆայլերը փոխարկվել են CSV ֆայլերի և պահվում են մեկ այլ պանակում:

Excel- ի համար Kutools- ով աշխատանքային գրքի թերթերը վերափոխեք առանձին CSV ֆայլերի

Ինչպես հայտնի է, մենք կարող ենք ամբողջ աշխատանքային գրքույկը Excel- ում վերափոխել միայն մեկ CSV ֆայլի ՝ իր Save As գործառույթով: Բայց որոշ ժամանակներում դուք ցանկանում եք մեկ թերթը փոխարկել CSV ֆայլ, այս դեպքում ՝ Պառակտում աշխատանքային գրքույկ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ.

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝（Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Միացրեք աշխատանքային գիրքը, որը ցանկանում եք փոխել դրա թերթերը որպես առանձին CSV ֆայլեր, կտտացրեք Kutools Plus > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ.

2. Մեջ Պառակտում աշխատանքային գրքույկ երկխոսություն, ստուգեք թերթիկի անունը, որը ցանկանում եք բաժանել (բոլոր թերթերը ստուգվում են ըստ լռելյայն), ստուգեք Պահպանել որպես տեսակ, ընտրիր CSV (Macintosh) (* .CSV) բացվող ցուցակից:

3: սեղմեք պառակտում դուրս գալ ա Թերթիր պանակի համար երկխոսություն, ընտրեք կամ ստեղծեք պանակ CSV ֆայլերը տեղադրելու համար:

4: սեղմեք OK, այժմ աշխատանքային գիրքը բաժանվել է որպես առանձին CSV ֆայլեր:

  Պառակտում աշխատանքային գրքույկ

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...