Skip i'r prif gynnwys

Sut i drosi ffeiliau xls lluosog i ffeiliau xlsx yn Excel?

I drosi hen ffeil xls Excel yn ffeil xlsx newydd, gallwch gymhwyso'r nodwedd Save As yn Excel, ond, os oes angen trosi ffeiliau xls lluosog, sut allai ddelio â'r dasg hon yn gyflym ac yn hawdd?


Trosi fformatau xls lluosog i fformatau xlsx gyda swyddogaeth Save As fesul un

Gall y swyddogaeth Save As yn Excel eich helpu chi i drosi fformat xls yr hen lyfr gwaith i fformat xlsx newydd fesul un.

1. Agorwch eich llyfr gwaith rydych chi am drosi ei fformat.

2. Cliciwch Ffeil > Save As, a siop tecawê Save As bydd dialog yn arddangos, yn nodi ffolder i osod fformat newydd y ffeil, ac yna cliciwch Cadw fel math rhestr ostwng i'w dewis Llyfr Gwaith Excel, gweler y screenshot:

3. Yna cliciwch Save botwm i gau'r ymgom, ac mae'r fformat Excel hwn wedi'i drosi o xls i xlsx.

Awgrymiadau: Gyda hyn Save As swyddogaeth, dim ond un ffeil Excel rydych chi'n ei drosi ar y tro, os oes gennych chi mae angen trosi cannoedd o ffeiliau Excel, nid yw'r dull hwn yn ddewis da.

Trosi fformatau xls lluosog i fformatau xlsx ar unwaith gyda chod VBA

Os ydych chi am drosi ffeiliau xls lluosog i ffeiliau xlsx ar unwaith heb arbed fesul un, yma, byddaf yn siarad am god VBA i chi, gwnewch y camau canlynol:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Trosi fformatau xls lluosog i fformatau xlsx ar unwaith

Sub ConvertToXlsx()
'Updateby Extendoffice
Dim strPath As String
Dim strFile As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath As String
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the xls files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a folder for outputting the new files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
strFile = Dir(strPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While strFile <> ""
If Right(strFile, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & strFile)
xWbk.SaveAs Filename:=xRPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
xWbk.Close SaveChanges:=False
End If
strFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, a bydd ffenestr yn cael ei harddangos, dewiswch ffolder sy'n cynnwys y ffeiliau xls rydych chi am eu trosi, gweler y screenshot:

4. Yna, cliciwch OK, mae ffenestr arall wedi'i popio allan, dewiswch lwybr ffolder lle rydych chi am allbynnu'r ffeiliau newydd wedi'u trosi, gweler y screenshot:

5. Ac yna, clik OK, ar ôl gorffen y trawsnewid, gallwch fynd i'r ffolder penodedig i gael rhagolwg o'r canlyniad wedi'i drosi, gweler sgrinluniau:


Trosi fformatau xls lluosog i fformatau xlsx ar unwaith gyda nodwedd bwerus

Gyda hyn Kutools ar gyfer Excel'S Troswr Fformat cyfleustodau, gallwch drosi fformatau xls lluosog i fformatau xlsx neu fel arall, gall hefyd eich helpu i drosi llyfrau gwaith lluosog i ffeiliau PDF yn un.

Nodyn:I gymhwyso hyn Troswr Fformat, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Troswr Fformat, gweler y screenshot:

2. A bydd blwch promt yn popio allan i'ch atgoffa bod yn rhaid i chi gau'r llyfr gwaith rydych chi am ei drosi. Gweler y screenshot:

3. Cliciwch OK, yna, yn y Troswr Fformat Ffeil deialog, nodwch yr opsiynau canlynol:

  • O dan y Trosi math rhestr ostwng, dewiswch Excel 97-2003 i Excel 2007 neu'n uwch;
  • Yna cliciwch Ychwanegu botwm i ychwanegu'r ffeiliau xls rydych chi am eu trosi, gallwch ychwanegu'r llyfrau gwaith o'ch disg cywasgwr neu OneDrive yn ôl yr angen;

4. Ar ôl mewnosod y ffeiliau xls, yn dal yn y Troswr Fformat Ffeil blwch deialog, cliciwch botwm i ddewis un llwybr ffolder i allbynnu'r ffeiliau wedi'u trosi, ac yna nodi rhai gweithrediadau sydd eu hangen arnoch ar waelod y blwch deialog, gweler y screenshot:

Nodiadau: Yn y blwch deialog uchod:
  • Os oedd angen trosi'r llyfrau gwaith yn yr is-ffolderi hefyd, gwiriwch y Cynhwyswch is-ffolderi wrth ychwanegu ffolderau blwch gwirio;
  • Os ydych chi am gael gwared ar y ffeiliau gwreiddiol ar ôl eu trosi, gwiriwch y Dileu ffeiliau ffynhonnell ar ôl eu trosi blwch;
  • Os ydych chi am gadw'r dyddiad wedi'i addasu ar gyfer ffeiliau gwreiddiol, gwiriwch y Cadwch ddyddiad wedi'i addasu ffeiliau gwreiddiol blwch;
  • Gellir cadw strwythur cyfeiriadur y ffeil trwy wirio'r Mae strwythur cyfeiriadur y ffeil yn cael ei gadw wrth ei drawsnewid blwch;

5. Yna cliciwch OK i ddechrau trosi, ar ôl gorffen y trawsnewid, gallwch fynd i'r ffolder benodol i gael rhagolwg o'r canlyniad wedi'i drosi. Gweler sgrinluniau:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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

Disgrifiad


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please could you change the VBA code so that it looks in subfolders of the chosen folder.
Could it also output a log file to show everything its converted?
This comment was minimized by the moderator on the site
Thank You!
This comment was minimized by the moderator on the site
Thanks so much for the VBA CODE. Very Useful
This comment was minimized by the moderator on the site
Can you save a xls as a xlsx and maintain 1,048,576 rows and XFD Columns?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations