Note: The other languages of the website are Google-translated. Back to English

Conas baisc ilchomhaid Excel a thiontú go comhaid CSV in Excel?

In Excel, is féidir linn an leabhar oibre a thiontú go comhad CSV leis an bhfeidhm Save as, ach an bhféadfá a fhios a bheith agat conas baisc ilchomhaid Excel a thiontú go comhaid CSV ar leithligh? San Airteagal seo, tugaim isteach cód VBA chun gach comhad Excel i bhfillteán a thiontú go comhaid CSV in Excel.

Baisc comhaid Excel d’fhillteán a thiontú go comhaid CSV le VBA

Tiontaigh bileoga de leabhar oibre i gcomhaid CSV ar leithligh le Kutools for Excelsmaoineamh maith3


Baisc comhaid Excel d’fhillteán a thiontú go comhaid CSV le VBA

In Excel, níl aon fheidhm ionsuite ann chun an post seo a réiteach go tapa seachas VBA.

1. Cumasaigh Excel, agus brúigh Alt + F11 eochracha oscailte Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil chun Modúl nua a chruthú.

3. Cóipeáil thíos an cód agus greamaigh iad chuig fuinneog nua an Mhodúil.

VBA: Baisc comhaid Excel a thiontú go 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. Brúigh F5 eochair, roghnaigh san fhillteán tá na comhaid Excel a theastaíonn uait a thiontú go comhaid CSV sa chéad dialóg popping.
baisc doc go csv 1

5. cliceáil OK, ansin sa dara dialóg popping, roghnaigh an fillteán chun na comhaid CSV a chur.
baisc doc go csv 2

6. cliceáil OK, anois tá na comhaid Excel san fhillteán tiontaithe go comhaid CSV agus sábháladh iad i bhfillteán eile.
baisc doc go csv 3


Tiontaigh bileoga de leabhar oibre i gcomhaid CSV ar leithligh le Kutools for Excel

Mar is eol dúinn, ní féidir linn an leabhar oibre iomlán a thiontú go comhad CSV amháin in Excel lena fheidhm Save As. Ach i roinnt uaireanta, ba mhaith leat an bhileog aonair a thiontú go comhad CSV, sa chás seo, an Leabhar Oibre Scoilt fóntais de Kutools le haghaidh Excel Is féidir cabhrú leat.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil:Download Kutools Íoslódáil saor in aisce do Excel Anois!)

1. Cumasaigh an leabhar oibre a theastaíonn uait a bhileoga a thiontú mar chomhaid CSV ar leithligh, cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt.
baisc doc go csv 4

2. Sa Leabhar Oibre Scoilt dialóg, seiceáil ainm na bileoige a theastaíonn uait a roinnt (déantar gach bileog a sheiceáil de réir réamhshocraithe), seiceáil Ach amháin mar cineál, roghnaigh CSV (Macintosh) (* .CSV) ón liosta anuas.
baisc doc go csv 5

3. cliceáil Scoilt a pop amach a Brabhsáil Chun Fillteán dialóg, roghnaigh nó cruthaigh fillteán chun na comhaid CSV a chur.
baisc doc go csv 6

4. cliceáil OK, anois tá an leabhar oibre roinnte mar chomhaid CSV ar leithligh.
baisc doc go csv 7


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
Sórtáil tuairimí de réir
Comments (33)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ti oibríonn sé i ndáiríre daor!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé go hiontach, go raibh maith agat as an gcód!
Is é an t-aon ráiteas a bheadh ​​agam ná go ngearrann an cód seo ainmneacha comhaid nuair a bhíonn "." san ainm comhaid féin (m.sh. casann comhad.123.csv ina chomhad.csv).
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach aimsithe agat timpeall ar an gceist seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Carol,

Ar líne 33 tá an cód seo curtha ina ionad agam:

xStrCSVFName = xStrSPath & Ar Chlé(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"

Leis an gcód seo:

xStrCSVFName = xStrSPath & Ar Chlé(xStrEFFile, InStr(1, xStrEFFile, ".xlsx") - 1) & ".csv"

Tabhair faoi deara, má tá síneadh Excel eile á úsáid agat (.xls, .xlsm, etc.) ba cheart duit é a athrú mar sin :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat! Shábháil sé seo an oiread sin ama dom!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nóta beag eile:

Má tá na cealla sna comhaid Excel bunaidh formáidithe go léir mar "Ginearálta", cailltear roinnt cruinneas nuair a shábhálfar an comhad mar CSV
Mar shampla, má tá luach cille in Excel 0.123456789123456, ansin beidh an luach sa CSV 0.123456789 (ar iarraidh na deachúlacha atá fágtha), chomh fada agus a bhí an chill formáidithe mar 'Ginearálta'. Is féidir é seo a réiteach trí gach cill sa chomhad Excel a fhormáidiú go dtí aon rud eile seachas 'Ginearálta' (mar shampla, 'Téacs'). Sa chás sin, beidh na sonraí/cruinneas iomlán fós sa CSV*. ie beidh na luachanna sna comhaid Excel iomlán slán tar éis iad a shábháil mar CSV.

Conas a d'fhéadfadh an macra seo a bheith ina athruithe, agus mar sin leagann sé formáidiú na gcealla go léir sa chomhad Excel go 'Text', roimh shábháil mar CSV?
Samhlaím go gcaithfidh sé úsáid a bhaint as na rudaí seo a leanas ar bhealach éigin, ach ní féidir liom a dhéanamh amach conas a chuimsítear i gceart laistigh den mhacra:

Cealla.Roghnaigh
Selection.NumberFormat = "@"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as a roinnt. Táim ag iarraidh comhaid xls iolracha a shábháil a bhfuil luach ar leith iontu, rud a chuireann leid ag fiafraí an bhfuil nó níl roimh shábháil. Léann an leid ..

msgstr "Seans go gcaillfear roinnt gnéithe i do leabhar oibre má shábhálann tú é mar CSV (Teorainn le Camóg). Ar mhaith leat leanúint ar aghaidh ag úsáid na formáide sin?"

An mbeadh a fhios ag duine cén áit ar cheart an cód a chur leis chun freagra dearfach a thabhairt don leid seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sílim gur fiú láimhseáil earráidí níos fearr a chur leis do chomhaid le carachtair speisialta, faoi láthair ní thugtar aird orthu go simplí.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo iontach. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil athrú tapa ar an gcód a ligfeadh dom athrú ó CSV UTF-8 (Comma telimited) go díreach CSV (Comma telimited)? Bhain mé triail as an gcéad mhodh agus bhí sé dóchasach ach is cosúil nach n-athróidh sé iad ós rud é go bhfuil siad i bhfoirm CSV de chineál éigin cheana féin. B'fhéidir go bhfuil próiseas níos éasca ann ach ní féidir liom teacht ar rud ar bith. Caithfidh mé b'fhéidir 150 comhad a shábháil san fhormáid seo a thiontú agus níl mé ag iarraidh gach comhad a oscailt agus Sábháil Mar más féidir liom é a sheachaint. Táthar buíoch as aon chabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar sin, tar éis athbhreithniú a dhéanamh ar an gcód beagán níos dlúithe, chonaic mé nuair a bhí an cineál comhaid tosaigh a bheith .xls. Mar sin réitíodh an cheist le hathsholáthar .csv.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
das Makro funktioniert ganz gut, aber bei mir kommt, wenn ich als ainm comhaid:xlCSVUTF8 eine anders formatierte CSV raus als ich über speichern unter -> csv(utf8) erreiche!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
xObjWB.SaveAs Comhainm:=xStrCSVFName, FileFormat:=xlCSVUTF8
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
also er schreibt die verschiedenen Spalten alle in eine Spalte, dass müsste der Fehler sein?!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi.. i roinnt comhad excel a thiontófar go csv tá ainmniúil a chaithfear a shlánú, cad é an réiteach? go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Sam, níl aon réiteach chun an fhadhb seo a réiteach ach amháin na sonraí a fhormáidiú mar théacs roimh an gcomhad a thiontú go csv.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a rith mé é seo níor thiontaigh sé ach an chéad bhileog oibre, agus rinne sé neamhaird ar bhileoga breise laistigh den leabhar oibre. An bhfuil bealach ann chun an cód a chur in eagar chun bileoga breise a chur san áireamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is féidir leat triail a bhaint as cód thíos, sábhálfaidh sé gach bileog leabhar oibre san fhillteán chuig csv ar leithligh. Ní féidir leis an leabhar oibre reatha a oibriú.
Sub WorkbooksSaveAsCsvToFolder()

'UpdatebyExtendoffice20220520

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 xWSh As Worksheet

    Application.ScreenUpdating = False

    Application.EnableEvents = False

    Application.Calculation = xlCalculationManual

    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 <> ""

        Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)

        For Each xWSh In xObjWB.Worksheets

            xWSh.Activate

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

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

        Next

        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

End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níorbh fhéidir é seo a chur ag obair do mo chomhaid xls. Is bileoga oibre 97-03 iad agus tá an leagan Microsoft 365 is gníomhaí á rith agam faoi láthair. Nuair a ritheann mé an cód tagann an fillteán suas mar bán
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá brón orm nach dtagann d'fhadhb le feiceáil arís i mo leagan, níl aon smaoineamh agam cabhrú leat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An cheist chéanna liomsa. Ag rith oifig 365 is déanaí ach ní tharlaíonn aon rud tar éis an dá bhosca dialóige fillteáin a shocrú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Doc SJ, go raibh maith agat as do mheabhrúchán, tá an cód VBA seiceáilte agam, tá roinnt saincheisteanna aige in Oifig 365, anois tá an VBA nuashonraithe agam, bain triail eile as.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bom Dia!!

muito top esse codigo, porem estou com o fadhbanna abaixo

Is é an rud atá i gceist leis an bhformáid seo ná "CSV (síolrú ó na cinn) (*.csv)", is é an rud is mó ná cód a chur i bhfeidhm ar an bhfiosrúchán "," no formato agus iad go sonrach le haghaidh tagartha amháin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
2019.
게시글 그대로 실행해봤지만 아무것도 일어나지 않았습니다..
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, YOY, tá tástáil déanta agam ar an VBA in Professional Plus Excel 2019, oibríonn sé go réidh agus i gceart. Ar cheart duit tuilleadh sonraí a thabhairt dom faoi do chuid comhad, mar leagan mionsonraithe, inneachar na gcomhad is mian leat a thiontú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Conas is féidir liom an teorannóir a athrú?
Sa script thuas, is é an teorannóir camóg (,).
Go raibh maith agat: D.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Tá roinnt fadhbanna le sárú agam agus an script á úsáid agam
Conas is féidir liom an t-eoraiteoir sa script a athrú toisc go bhfuil an t-imliméadair san aschur csv i gcoma (,)
Teastaíonn uaim nach bhfuil an teorannóir i gcoma mar tá go leor camóga i mo thacair sonraí.


Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ajouter Local:=True à cette ligne:
xObjWB.SaveAs Comhadainm:=xStrCSVFName, FileFormat:=xlCSV, Logánta:=Fíor

Permet de prendre le séparateur de votre system, moi c'est point-virgule ;
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

vor einem Jahr habe ich den VBA-Code ohne Probleme ausgeführt. Heute wollte ich es nochmal versuchen, leider gibt es einen Laufzeitfehler 1004 mit dem Hinweis
msgstr "Die Methode 'Ríomh' ist für Objekt '_Iarratas' fehlgeschlagen."

Debuggen verweist auf folgende Zeile:
Application.Calculation = xlCalculationManual

An féidir le haon duine cabhrú?

LG, Max
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

ich habe den VBA-Code vor einem Jahr ohne Probleme angewendet. Jetzt funktioniert es nicht mehr.
Es gibt einen Laufzeitfehler 1004 mit dem Hinweis: "Die Methode 'ríomh' für das Objekt '_Application' ist fehlgeschlagen."

Debuggen verweist auf die Zeile "Application.Calculation = xlCalculationManual".

Ich würde mich sehr freuen, wenn jemand weiterhelfen könnte.

LG, Max
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Gast, seiceáil le do thoil an bhfuil an cód a chóipeáil tú ceart ar dtús, níl aon "_" sa chód. Má tá seiceáil déanta agat go bhfuil gach cód ceart, is féidir leat an cód líne a bhaint
Application.Calculation = xlCalculationManual ansin bain triail eile as. Tabhair faoi deara go bhfuil dhá líne Application.Calculation = xlCalculationManual sa chód.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta