Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

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!

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

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á!
bun officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 2 months ago
    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 ?
  • To post as a guest, your comment is unpublished.
    Duong · 7 months ago
    Thank you. The code works well
  • To post as a guest, your comment is unpublished.
    Rohit · 2 years ago
    Thank you . Very handy
  • To post as a guest, your comment is unpublished.
    Amit · 2 years ago
    Thank you! The code was very useful
  • To post as a guest, your comment is unpublished.
    Andrew · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    Mary · 5 years ago
    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?