Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս համատեղել / ներմուծել բազմաթիվ CSV ֆայլեր բազմաթիվ աշխատանքային թերթերի մեջ:

Եթե ​​ցանկանում եք բազմաթիվ csv ֆայլեր ներմուծել թղթապանակից որպես առանձին աշխատանքային թերթեր աշխատանքային գրքում, ինչպե՞ս կարող եք գործ ունենալ այս աշխատանքի հետ Excel- ում:

Ներմուծեք բազմաթիվ CSV ֆայլեր VBA կոդով առանձին աշխատանքային թերթերի մեջ

Excel- ի համար Kutools- ի միջոցով ներմուծել բազմաթիվ CSV ֆայլեր առանձին աշխատանքային թերթերի մեջ

Բաշխեք աշխատանքային գիրքը բազմաթիվ առանձին csv / pdf / txt / excel ֆայլերի


Բազմաթիվ csv ֆայլեր աշխատանքային գրքում արագ ներմուծելու համար հետևյալ VBA կոդը կարող է ձեզ լավություն բերել, արեք հետևյալը.

1, Պահեք պահեք ALT + F11 Excel- ում ստեղներ `բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ներմուծեք բազմաթիվ տեքստային ֆայլեր ՝ աշխատանքային թերթերն առանձնացնելու համար.

Sub CombineCsvFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3, Դրանից հետո սեղմեք F5 Այս կոդը կատարելու բանալին, և դուրս կգա պատուհան, գնացեք հատուկ թղթապանակ և ընտրեք CSV ֆայլերը, որոնք ցանկանում եք ներմուծել Excel, տես նկարի նկարը.

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 1

4. Եվ այնուհետեւ կտտացրեք բաց կոճակը, ընտրված CSV ֆայլերը ներմուծվել են որպես առանձին աշխատանքային թերթեր նոր աշխատանքային գրքում:

5, Վերջապես, դուք կարող եք պահպանել նոր աշխատանքային գրքույկը, որքան ձեզ հարկավոր է:


Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներիր հզոր գործիքով.Միավորել, Դուք կարող եք արագորեն միավորել կամ ներմուծել բազմաթիվ csv ֆայլեր մեկ առանձին աշխատանքային թերթում կամ մի քանի առանձնացված աշխատանքային թերթերում, որքան ձեզ հարկավոր է:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1. Խնդրում ենք սեղմել Kutools Plus > Միավորել, տես նկարի նկարը.

2. Է Միավորել աշխատանքային թերթերը երկխոսության տուփ, ընտրեք Միացրեք աշխատանքային գրքերից բազմաթիվ աշխատանքային թերթեր մեկ աշխատանքային գրքի մեջ, տես նկարի նկարը.

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 6

3, Մեջ Քայլ 2 կախարդի կտտացրեք Ավելացնել > Ֆայլ ընտրելու համար CSV ֆայլերը, որոնք ցանկանում եք համատեղել, տեսեք,

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 7

4, Դուրս ցցված բաց երկխոսություն, ընտրեք (* .csv) բացվող ցուցակից, ապա նշեք CSV ֆայլերը, որոնք ցանկանում եք միավորել:

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 8

5. Այնուհետեւ կտտացրեք բաց կոճակը, և ձեր ընտրած csv ֆայլերը ներմուծվել են երկխոսության դաշտում, տես նկարի նկարը.

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 9

6, Մեջ Քայլ 3Խնդրում ենք կատարել հետևյալ գործողությունները.

(1.) Ստուգում Յուրաքանչյուր աշխատանքային թերթի առաջին շարքը (մեկնաբանություններ) - ից Տեղադրեք աշխատաթերթի տեղեկատվությունը բաժնում, csv ֆայլերի բոլոր տեղեկությունները կներդրվեն համակցված թերթերի մեջ ՝ որպես մեկնաբանություն;

(2.) Դուք կարող եք վերանվանել csv ֆայլերը, որքան ձեզ հարկավոր է.

(3.) Դուք կարող եք բաց թողնել csv դատարկ ֆայլերը, երբ դատարկ csv ֆայլ եք հանդիպում:

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 10

7. Այնուհետեւ կտտացրեք Ավարտել կոճակը, և համատեղումն ավարտելուց հետո կարող եք նշել ձեր նոր համակցված աշխատանքային գրքի համար ֆիլմի անունը և գտնվելու վայրը: Տեսեք,

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 11

8. Այնուհետեւ կտտացրեք Փրկել կոճակը, դուրս եկած հրահանգի վանդակում, կարող եք բացել նոր ֆայլի կտտոցը այոև փակեք այն կտտացնելով Ոչ, տես նկարի նկարը.

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 12

9, Եվ այդ դեպքում դուք կարող եք պահպանել այս սցենարը կամ ոչ այնպես, ինչպես ցանկանում եք: Տեսեք,

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 13

10, Վերջապես, ձեր ընտրած csv ֆայլերը ներմուծվել են նոր աշխատանքային գրքում `առանձնացված աշխատանքային թերթով, տե՛ս նկարը.

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 14

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Որոշակի դեպքում գուցե ցանկանաք աշխատանքային գրքույկը բաժանել առանձին csv ֆայլերի, Excel- ի Klitools- ի Split Workbook օգտակար ծրագիրը կարող է արագ և հեշտությամբ ավարտել այս գործը:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1: Սեղմեք Kutools Plus > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.

2. Է Պառակտում աշխատանքային գրքույկ երկխոսության տուփ:

(1.) Ստուգեք աշխատաթերթերը, որոնք ցանկանում եք բաժանել.

(2.) Եվ ստուգեք Նշեք փրկելֆորմատ, ապա ընտրեք ֆայլի ձևաչափը, որը ցանկանում եք պահպանել;

(3.) Ապա կտտացրեք պառակտում կոճակը և նշեք պանակ ՝ առանձնացված ֆայլերը տեղադրելու համար:

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 3

3. Եվ այնուհետեւ կտտացրեք OK պառակտումը սկսելու համար աշխատանքային գիրքը կբաժանվի ձեզ անհրաժեշտ առանձին CSV ֆայլերի:

փաստաթուղթ ներմուծել CSV աշխատանքային թերթ 4

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

🤖 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations