Skip to main content

Conas ilchomhaid csv a chomhcheangal / a iompórtáil i mbileoga oibre iomadúla?

Más mian leat ilchomhaid csv a iompórtáil ó fhillteán mar bhileoga oibre ar leithligh laistigh de leabhar oibre, conas a d’fhéadfá déileáil leis an bpost seo in Excel?

Iompórtáil ilchomhaid csv i mbileoga oibre ar leithligh le cód VBA

Iompórtáil ilchomhaid csv i mbileoga oibre ar leithligh le Kutools for Excel

Roinn leabhar oibre ina iliomad comhad csv / pdf / txt / excel ar leithligh


Chun comhaid iolracha csv a iompórtáil go tapa chuig leabhar oibre, féadfaidh an cód VBA seo a leanas fabhar a thabhairt duit, déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha in Excel chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Iompórtáil comhaid téacs iolracha chuig bileoga oibre ar leithligh:

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. Ansin brúigh F5 eochair chun an cód seo a fhorghníomhú, agus popped amach fuinneog, téigh go dtí an fillteán sonrach agus roghnaigh na comhaid csv a theastaíonn uait a iompórtáil chuig Excel, féach an scáileán:

doc allmhairiú csv chuig bileog oibre 1

4. Agus ansin cliceáil Oscail cnaipe, iompórtáladh na comhaid csv roghnaithe mar bhileoga oibre ar leithligh laistigh de leabhar oibre nua.

5. Faoi dheireadh, is féidir leat an leabhar oibre nua a shábháil de réir mar is gá duit.


Má tá tú Kutools le haghaidh Excel, lena uirlis chumhachtach-Chomhcheangail, is féidir leat ilchomhaid csv a chomhcheangal nó a iompórtáil go tapa i mbileog oibre amháin nó i mbileoga oibre scartha iolracha de réir mar is gá duit.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil le do thoil Kutools Plus > Chomhcheangail, féach ar an scáileán:

2. sa Comhcheangail Bileoga Oibre bosca dialóige, roghnaigh le do thoil Comhcheangail iliomad bileoga oibre ó leabhair oibre in aon leabhar oibre amháin, féach ar an scáileán:

doc allmhairiú csv chuig bileog oibre 6

3. Sa an 2 Céim den draoi, cliceáil Cuir > Comhad chun na comhaid csv a theastaíonn uait a chur le chéile a roghnú, féach an pictiúr:

doc allmhairiú csv chuig bileog oibre 7

4. Sa popped amach Oscail dialóg, roghnaigh (* .csv) ón liosta anuas, agus ansin sonraigh na comhaid csv a theastaíonn uait a chumasc.

doc allmhairiú csv chuig bileog oibre 8

5. Ansin cliceáil Oscail cnaipe, agus allmhairíodh do chuid comhad csv roghnaithe isteach sa bhosca dialóige, féach an scáileán:

doc allmhairiú csv chuig bileog oibre 9

6. Sa an 3 Céim, déan na hoibríochtaí seo a leanas le do thoil:

(1.) Seiceáil An chéad tsraith de gach bileog oibre (tráchtanna) ó na Cuir isteach faisnéis faoi bhileog oibre alt, cuirfear gach faisnéis faoi chomhaid csv isteach sna bileoga comhcheangailte mar thráchtanna;

(2.) Féadfaidh tú na comhaid csv a athainmniú de réir mar is gá duit;

(3.) is féidir leat na comhaid bán csv a scipeáil agus tú ag teacht ar chomhad bán csv.

doc allmhairiú csv chuig bileog oibre 10

7. Ansin cliceáil Críochnaigh cnaipe, agus tar éis duit an teaglaim a chríochnú, is féidir leat ainm filw agus suíomh a shonrú do do leabhar oibre comhcheangailte nua. Féach an pictiúr:

doc allmhairiú csv chuig bileog oibre 11

8. Ansin cliceáil Sábháil cnaipe, sa bhosca promt popped out, is féidir leat an cliceáil comhad nua a oscailt Is ea, agus dún é trí chliceáil Uimh, féach ar an scáileán:

doc allmhairiú csv chuig bileog oibre 12

9. Agus ansin is féidir leat an cás seo a shábháil nó ní mar is mian leat. Féach an pictiúr:

doc allmhairiú csv chuig bileog oibre 13

10. Faoi dheireadh, rinneadh do chuid comhad csv roghnaithe a iompórtáil isteach i leabhar oibre nua le bileog oibre scartha, féach an scáileán:

doc allmhairiú csv chuig bileog oibre 14

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

I gcás áirithe, b’fhéidir gur mhaith leat leabhar oibre a roinnt i gcomhaid csv ar leithligh, is féidir le fóntais Leabhar Oibre Scoilt Kutools for Excel an post seo a chríochnú go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt, féach ar an scáileán:

2. sa Leabhar Oibre Scoilt bosca dialóige:

(1.) Seiceáil na bileoga oibre a theastaíonn uait a roinnt;

(2.) Agus seiceáil Sonraigh sábháilleagan, ansin roghnaigh an fhormáid comhaid is mian leat a shábháil;

(3.) Ansin cliceáil Scoilt cnaipe, agus sonraigh fillteán chun na comhaid scartha a chur.

doc allmhairiú csv chuig bileog oibre 3

3. Agus ansin cliceáil OK chun scoilteadh a thosú, roinnfear an leabhar oibre i gcomhaid csv ar leithligh atá uait.

doc allmhairiú csv chuig bileog oibre 4

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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