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

Sut i swp-drosi ffeiliau Excel lluosog i ffeiliau CSV yn Excel?

Yn Excel, gallwn drosi'r llyfr gwaith i ffeil CSV gyda'r swyddogaeth Save as, ond a allech chi wybod sut i swp-drosi ffeiliau Excel lluosog i ffeiliau CSV ar wahân? Yn yr erthygl hon, rwy'n cyflwyno cod VBA i swp-drosi'r holl ffeiliau Excel mewn ffolder i ffeiliau CSV yn Excel.

Swp trosi ffeiliau Excel ffolder yn ffeiliau CSV gyda VBA

Trosi taflenni o lyfr gwaith yn ffeiliau CSV ar wahân gyda Kutools ar gyfer Excelsyniad da3


Swp trosi ffeiliau Excel ffolder yn ffeiliau CSV gyda VBA

Yn Excel, nid oes unrhyw swyddogaeth adeiledig a all ddatrys y swydd hon yn gyflym ac eithrio VBA.

1. Galluogi Excel, a gwasgwch Alt + F11 allweddi ar agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau i greu Modiwl newydd.

3. Copïwch y cod isod a'u pastio i ffenestr y Modiwl newydd.

VBA: Swp trosi ffeiliau Excel yn 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. Gwasgwch F5 allwedd, dewiswch y ffolder sy'n cynnwys y ffeiliau Excel rydych chi am eu trosi i ffeiliau CSV yn y dialog popio cyntaf.
swp doc i csv 1

5. Cliciwch OK, yna yn yr ail ymgom popio, dewiswch y ffolder i osod y ffeiliau CSV.
swp doc i csv 2

6. Cliciwch OK, nawr mae'r ffeiliau Excel yn y ffolder wedi'u trosi'n ffeiliau CSV a'u cadw mewn ffolder arall.
swp doc i csv 3


Trosi taflenni o lyfr gwaith yn ffeiliau CSV ar wahân gyda Kutools ar gyfer Excel

Fel y gwyddom, ni allwn ond trosi'r llyfr gwaith cyfan yn un ffeil CSV yn Excel gyda'i swyddogaeth Save As. Ond mewn rhai adegau, rydych chi am drosi'r ddalen sengl yn ffeil CSV, yn yr achos hwn, y Llyfr Gwaith Hollti cyfleustodau Kutools ar gyfer Excel gallwch chi helpu.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Galluogi llyfr gwaith rydych chi am drosi ei daflenni fel ffeiliau CSV ar wahân, cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti.
swp doc i csv 4

2. Yn y Llyfr Gwaith Hollti deialog, gwiriwch enw'r ddalen rydych chi am ei rhannu (gwirir pob dalen yn ddiofyn), gwiriwch Arbed fel teipiwch, dewiswch CSV (Macintosh) (* .CSV) o'r rhestr ostwng.
swp doc i csv 5

3. Cliciwch Hollti i pop allan a Porwch Am Ffolder deialog, dewis neu greu ffolder i osod y ffeiliau CSV.
swp doc i csv 6

4. Cliciwch OK, nawr mae'r llyfr gwaith wedi'i rannu fel ffeiliau CSV ar wahân.
swp doc i csv 7


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (33)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ty mae wir yn gweithio annwyl!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n wych, diolch am y cod!
Fy unig sylw fyddai bod y cod hwn yn torri enwau ffeiliau pan fo "." yn enw'r ffeil ei hun (e.e. ffeil.123.csv yn troi'n ffeil.csv).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi wedi dod o hyd i ffordd o gwmpas y mater hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Carol,

Ar-lein 33 Rwyf wedi disodli'r cod hwn:

xStrCSVFName = xStrSPath & Chwith(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"

Gyda'r cod hwn:

xStrCSVFName = xStrSPath & Chwith(xStrEFFile, InStr(1, xStrEFFile, ".xlsx") - 1) & ".csv"

Sylwch, os ydych chi'n defnyddio estyniad excel arall (.xls, .xlsm, ac ati) dylech ei newid fel y cyfryw :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn! Mae hyn wedi arbed cymaint o amser i mi!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sylw bach arall:

Os yw'r celloedd yn y ffeiliau Excel gwreiddiol i gyd wedi'u fformatio fel "Cyffredinol", mae rhywfaint o gywirdeb yn cael ei golli pan fydd y ffeil yn cael ei chadw fel CSV
Er enghraifft, os yw gwerth cell yn Excel yn 0.123456789123456, yna bydd y gwerth yn y CSV yn 0.123456789 (ar goll y degolion sy'n weddill), cyn belled â bod y gell wedi'i fformatio fel 'Cyffredinol'. Gellir datrys hyn trwy fformatio'r holl gelloedd yn y ffeil Excel i unrhyw beth arall na 'General' (er enghraifft, 'Text'). Yn yr achos hwnnw, bydd gan y CSV * y manylion/cywirdeb llawn o hyd. Hy bydd y gwerthoedd yn y ffeiliau Excel yn gyfan gwbl ar ôl eu cadw fel CSV.

Sut y gallai'r macro hwn fod yn newidiadau, felly mae'n gosod fformatio'r holl gelloedd yn y ffeil Excel i 'Text', cyn arbed fel CSV?
Rwy'n dychmygu bod yn rhaid iddo wneud defnydd o'r canlynol rywsut, ond ni allaf ddarganfod sut i gynnwys yn gywir o fewn y macro:

Celloedd.Dewiswch
Selection.NumberFormat = "@"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am rannu. Rwy'n ceisio arbed ffeiliau xls lluosog sy'n cynnwys gwerth unigryw, gan gynhyrchu anogwr yn gofyn ie neu na cyn arbed. Mae'r anogwr yn darllen ..

msgstr "Mae'n bosib y bydd rhai nodweddion yn eich llyfr gwaith yn cael eu colli os byddwch yn ei gadw fel CSV (Comma amlimited). Ydych chi am barhau i ddefnyddio'r fformat hwnnw?"

A fyddai rhywun yn gwybod ble i ychwanegu'r cod i ateb ydw i'r anogwr hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n credu ei bod yn werth ychwanegu trin gwallau yn well ar gyfer ffeiliau â nodau arbennig, ar hyn o bryd maent yn cael eu hanwybyddu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
top diolch :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn anhygoel. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes newid cyflym i'r cod a fyddai'n caniatáu i mi newid o CSV UTF-8 (Comma amlimited) i CSV (Comma amlimited) yn unig? Rhoddais gynnig ar y dull cyntaf ac roeddwn yn obeithiol ond mae'n ymddangos na fydd yn eu newid gan eu bod eisoes mewn rhyw fath o CSV. Efallai bod proses haws ond ni allaf ddod o hyd i unrhyw beth. Mae'n rhaid i mi drosi efallai 150 o ffeiliau a arbedwyd yn y fformat hwn ac nid wyf am agor pob ffeil a Save As os gallaf ei osgoi. Gwerthfawrogir unrhyw help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly, ar ôl adolygu'r cod ychydig yn agosach, gwelais lle roedd yn rhaid i'r math ffeil cychwynnol fod yn .xls. Felly mae newid .csv wedi datrys y mater.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
das Makro funktioniert ganz perfedd, aber bei mir kommt, wenn ich als enw ffeil: xlCSVUTF8 eine anders formatierte CSV raus als ich über speichern unter -> csv(utf8) erreiche!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
xObjWB.SaveAs Enw Ffeil:=xStrCSVFName, FileFormat:=xlCSVUTF8
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hefyd er schreibt die verschiedenen Spalten alle in eine Spalte, dass müsste der Fehler sein?!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo.. mewn rhai ffeiliau excel a fydd yn cael eu trosi i csv mae yna enwol y mae'n rhaid ei dalgrynnu, beth yw'r ateb? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sam, nid oes ateb i ddatrys y broblem hon ac eithrio fformatio'r data fel testun cyn trosi ffeil i csv.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan wnes i redeg hwn dim ond y daflen waith gyntaf a drosi, ac anwybyddu taflenni ychwanegol o fewn y llyfr gwaith. A oes ffordd i olygu'r cod i gynnwys dalennau ychwanegol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, gallwch geisio isod cod, bydd yn arbed pob tudalen o lyfrau gwaith yn y ffolder i csv ar wahân. Ni all weithio'r llyfr gwaith cyfredol.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim wedi gallu cael hwn i weithio ar gyfer fy ffeiliau xls. Maen nhw'n daflenni gwaith 97-03 ac ar hyn o bryd rwy'n rhedeg y fersiwn microsoft 365 mwyaf gweithgar. Pan fyddaf yn rhedeg y cod daw'r ffolder i fyny'n wag
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'n ddrwg gennyf nad yw eich problem yn ailymddangos yn fy fersiwn, nid oes gennyf unrhyw syniad i'ch helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un mater â mi. Yn rhedeg y swyddfa 365 diweddaraf ond nid oes dim yn digwydd ar ôl gosod y blychau deialog dau ffolder.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Doc SJ, diolch am eich atgoffa, rwyf wedi gwirio'r cod VBA, mae ganddo rai materion yn Office 365, nawr rwyf wedi diweddaru'r VBA, rhowch gynnig arall arni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bom Dia!!

muito top esse codigo, porem estou com o problema abaixo

Tem como salvar em formato "CSV (gwahanu por vírgulas) (*.csv)", pois ao executar esse cod meus arquivos ficam com "," no formato que eu preciso eles não ficam com essa vírgula
Lleihawyd y sylw hwn gan y safonwr ar y wefan
2019.
게시글 그대로실행해봤지만 아무것도 일어나지 않았습니다 ..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, YOY, rwyf wedi profi'r VBA yn Professional Plus Excel 2019, mae'n gweithio'n llyfn ac yn gywir. A ddylech chi roi mwy o fanylion i mi am eich ffeiliau, fel fersiwn manwl, cynnwys y ffeiliau rydych chi am eu trosi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut alla i newid y terfynydd?
Yn y sgript uchod, coma (,) yw'r amffinydd.
Diolch :D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rwy'n wynebu rhai problemau wrth ddefnyddio'r sgript
Ho alla i newid y amffinydd yn y sgript oherwydd mae'r amffinydd yn allbwn csv mewn coma (,)
Dwi angen y amffinydd nid mewn coma oherwydd mae fy setiau data yn cynnwys llawer o atalnodau.


Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ajouter Local:=Gwir à cette ligne:
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV, Lleol:=Gwir

Permet de prendre le séparateur de votre system, moi c'est point-virgule ;
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

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

Debuggen verweist auf folgende Zeile:
Application.Calculation = xlCalculationManual

All unrhyw un helpu?

LG, Max
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

ich habe den VBA-Cod vor einem Jahr ohne Probleme angewendet. Jetzt funktioniert es nicht mehr.
Es gibt einen Laufzeitfehler 1004 mit dem Hinweis: "Die Methode 'cyfrifiad' 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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Gast, gwiriwch a yw'r cod a gopïwyd gennych yn gywir yn gyntaf, nid oes "_" yn y cod. Os ydych wedi gwirio bod yr holl god yn gywir, gallwch gael gwared ar y llinell god
Application.Calculation = xlCalculationManual yna ceisiwch eto. Sylwch fod dwy linell Application.Calculation = xlCalculationManual yn y cod.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir