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 dalennau o lyfr gwaith yn ffeiliau CSV ar wahân gyda Kutools ar gyfer Excel
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.
5. Cliciwch OK, yna yn yr ail ymgom popio, dewiswch y ffolder i osod y ffeiliau CSV.
6. Cliciwch OK, nawr mae'r ffeiliau Excel yn y ffolder wedi'u trosi'n ffeiliau CSV a'u cadw mewn ffolder arall.
Trosi dalennau 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 isod:(Lawrlwythiad Am Ddim Kutools 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.
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.
3. Cliciwch Hollti i pop allan a Porwch Am Ffolder deialog, dewis neu greu ffolder i osod y ffeiliau CSV.
4. Cliciwch OK, nawr mae'r llyfr gwaith wedi'i rannu fel ffeiliau CSV ar wahân.
Llyfr Gwaith Hollti
Offer Cynhyrchiant Swyddfa Gorau
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...
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!