Skip i'r prif gynnwys

Sut i gyfuno / mewnforio ffeiliau csv lluosog i mewn i daflenni gwaith lluosog?

Os ydych chi am fewnforio ffeiliau csv lluosog o ffolder fel taflenni gwaith ar wahân mewn llyfr gwaith, sut allech chi ddelio â'r swydd hon yn Excel?

Mewnforio ffeiliau csv lluosog i mewn i daflenni gwaith ar wahân gyda chod VBA

Mewnforio ffeiliau csv lluosog i daflenni gwaith ar wahân gyda Kutools ar gyfer Excel

Rhannwch lyfr gwaith yn sawl ffeil csv / pdf / txt / excel ar wahân


Er mwyn mewnforio ffeiliau csv lluosog yn gyflym i lyfr gwaith, gall y cod VBA canlynol ffafrio chi, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi yn Excel i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnforio ffeiliau testun lluosog i daflenni gwaith ar wahân:

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. Yna pwyswch F5 allwedd i weithredu'r cod hwn, a bydd ffenestr yn popio allan, ewch i'r ffolder benodol a dewis y ffeiliau csv rydych chi am eu mewnforio i Excel, gweler y screenshot:

doc mewnforio csv i daflen waith 1

4. Ac yna cliciwch agored botwm, mae'r ffeiliau csv a ddewiswyd wedi'u mewnforio fel taflenni gwaith ar wahân mewn llyfr gwaith newydd.

5. Yn olaf, gallwch arbed y llyfr gwaith newydd yn ôl yr angen.


Os oes gennych Kutools ar gyfer Excel, gyda'i offeryn pwerus-Cyfunwch, gallwch gyfuno neu fewnforio ffeiliau csv lluosog yn gyflym i un daflen waith sengl neu daflenni gwaith lluosog wedi'u gwahanu yn ôl yr angen.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Cyfunwch, gweler y screenshot:

2. Yn y Cyfuno Taflenni Gwaith blwch deialog, dewiswch Cyfuno nifer o daflenni gwaith o lyfrau gwaith yn un llyfr gwaith, gweler y screenshot:

doc mewnforio csv i daflen waith 6

3. Yn y 2 cam o'r dewin, cliciwch Ychwanegu > Ffeil i ddewis y ffeiliau csv rydych chi am eu cyfuno, gweler y screenshot:

doc mewnforio csv i daflen waith 7

4. Yn y popped allan agored deialog, dewiswch (* .csv) o'r gwymplen, ac yna nodwch y ffeiliau csv rydych chi am eu huno.

doc mewnforio csv i daflen waith 8

5. Yna cliciwch agored botwm, ac mae'r ffeiliau csv o'ch dewis wedi'u mewnforio i'r blwch deialog, gweler y screenshot:

doc mewnforio csv i daflen waith 9

6. Yn y 3 cam, gwnewch y gweithrediadau canlynol:

(1.) Gwirio Rhes gyntaf pob taflen waith (sylwadau) oddi wrth y Mewnosod gwybodaeth taflen waith adran, bydd yr holl wybodaeth ffeiliau csv yn cael ei mewnosod yn y taflenni cyfun fel sylwadau;

(2.) Gallwch ailenwi'r ffeiliau csv yn ôl yr angen;

(3.) gallwch hepgor y ffeiliau csv gwag wrth ddod ar draws ffeil csv wag.

doc mewnforio csv i daflen waith 10

7. Yna cliciwch Gorffen botwm, ac ar ôl gorffen y cyfuno, gallwch nodi enw a lleoliad filw ar gyfer eich llyfr gwaith cyfun newydd. Gweler y screenshot:

doc mewnforio csv i daflen waith 11

8. Yna cliciwch Save botwm, yn y blwch promt popped out, gallwch agor y clic ffeil newydd Ydy, a'i gau trwy glicio Na, gweler y screenshot:

doc mewnforio csv i daflen waith 12

9. Ac yna gallwch chi achub y senario hwn neu beidio fel y dymunwch. Gweler y screenshot:

doc mewnforio csv i daflen waith 13

10. O'r diwedd, mae'r ffeiliau csv a ddewiswyd gennych wedi'u mewnforio i lyfr gwaith newydd gyda thaflen waith ar wahân, gweler y screenshot:

doc mewnforio csv i daflen waith 14

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Mewn rhai achosion, efallai y byddwch am rannu llyfr gwaith yn ffeiliau csv ar wahân, Kutools ar gyfer Excel's Rhannwch Gall cyfleustodau Llyfr Gwaith orffen y swydd hon yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti, gweler y screenshot:

2. Yn y Llyfr Gwaith Hollti blwch deialog:

(1.) Gwiriwch y taflenni gwaith rydych chi am eu rhannu;

(2.) A gwirio Nodwch arbedFformat, yna dewiswch y fformat ffeil rydych chi am ei gadw;

(3.) Yna cliciwch Hollti botwm, a nodwch ffolder i roi'r ffeiliau sydd wedi'u gwahanu.

doc mewnforio csv i daflen waith 3

3. Ac yna cliciwch OK i ddechrau hollti, bydd y llyfr gwaith yn cael ei rannu'n ffeiliau csv ar wahân sydd eu hangen arnoch chi.

doc mewnforio csv i daflen waith 4

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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