Skip i'r prif gynnwys

Sut i drosi nifer o lyfrau gwaith neu daflenni gwaith yn ffeiliau PDF ar unwaith yn Excel?

Rywbryd, mae angen i chi drosi eich ffeiliau Excel yn ffeiliau PDF, fel na all eraill eu haddasu. Yn Excel, gallwn arbed ffeil Excel fel ffeil PDF trwy ddefnyddio swyddogaeth Save As. Ond sut ydych chi'n trosi llyfrau gwaith lluosog i ffeiliau PDF ar yr un pryd yn Excel?


Trosi llyfrau gwaith lluosog i ffeiliau PDF gyda swyddogaeth Save As fesul un

Fel rheol, gall y nodwedd Save As yn Excel eich helpu chi i gadw'r llyfr gwaith cyfan i ffeil PDF, gwnewch fel hyn:

1. Lansio'ch llyfr gwaith rydych chi am ei drosi i fformat PDF.

2. Cliciwch Ffeil > Save As, ac yn y Save As blwch deialog, nodwch ffolder ar gyfer cadw'r ffeil newydd, yna dewiswch PDF oddi wrth y Cadw fel math rhestr ostwng, ac yna, cliciwch Dewisiadau botwm, gweler y screenshot:

3. Yna, yn y popped allan Dewisiadau blwch deialog, gwirio Llyfr gwaith cyfan, gweler y screenshot:

4. Ac yna cliciwch OK > Save, mae'r llyfr gwaith cyfan hwn wedi'i gadw fel fformat ffeil PDF.

Awgrymiadau: Os oes gennych chi nifer o lyfrau gwaith sydd angen eu trosi, gwnewch gais uchod i gadw'r llyfrau gwaith i ffeiliau PDF fesul un.

Trosi llyfrau gwaith lluosog i ffeiliau PDF gyda chod VBA ar unwaith

Os oes cannoedd o ffeiliau Excel mae angen eu trosi, bydd y dull uchod yn drafferthus, yma, byddaf yn siarad am god VBA ar gyfer trosi llyfrau gwaith lluosog yn ffeiliau PDF ar unwaith, 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 nifer o lyfrau gwaith yn ffeiliau PDF ar unwaith

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .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 destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = 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 llyfrau gwaith 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 PDF newydd, 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 llyfrau gwaith lluosog i ffeiliau PDF gyda nodwedd bwerus

Os oes gennych Kutools ar gyfer Excel, Gyda'i Troswr Fformat cyfleustodau, gallwch drosi nifer o lyfrau gwaith yn ffeiliau PDF ar unwaith.

Awgrymiadau:I gymhwyso hyn Troswr Fformat nodwedd, 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. Ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa bod yn rhaid i chi gau'r llyfrau gwaith rydych chi am eu trosi.

3. Cliciwch OK, yna, yn y Converter FileFormat deialog, nodwch yr opsiynau canlynol:

  • O dan y Trosi math rhestr ostwng, dewiswch Llyfr gwaith Excel i PDF;
  • Yna cliciwch Ychwanegu botwm i ychwanegu'r ffeiliau Excel 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 llyfrau gwaith rydych chi am eu trosi, yn dal i fod 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, pan fydd yr holl ffeiliau Excel penodedig wedi'u trosi i'r ffeiliau PDF, gallwch fynd i'r ffolder penodedig i gael rhagolwg o'r canlyniad wedi'i drosi, gweler sgrinluniau:


Trosi taflenni gwaith lluosog o lyfr gwaith i wahanu ffeiliau PDF â chod VBA

Mewn rhai achosion, efallai yr hoffech drosi pob taflen waith yn y llyfr gwaith i wahanu ffeiliau PDF, os oes llawer o daflenni yn eich llyfr gwaith, gall y cod VBA isod eich helpu i arbed pob taflen waith fel ffeil PDF ar unwaith.

1. Agorwch lyfr gwaith rydych chi am ei drosi, ac yna daliwch 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 taflenni gwaith lluosog o lyfr gwaith i wahanu ffeiliau PDF

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae ffenestr wedi'i popio allan, dewiswch lwybr ffolder ar gyfer lleoli'r ffeiliau PDF sydd wedi'u trosi, gweler y screenshot:

4. Yna, cliciwch OK botwm, mae'r holl daflenni gwaith yn y llyfr gwaith cyfredol wedi'u trosi ffeiliau PDF ar wahân, gweler y screenshot:


Trosi taflenni gwaith lluosog o lyfr gwaith i wahanu ffeiliau PDF gyda nodwedd ddefnyddiol

Kutools ar gyfer Excel hefyd yn cefnogi nodwedd ddefnyddiol - Llyfr Gwaith Hollti, gyda'r nodwedd hon, gallwch arbed nifer o daflenni gwaith yn y llyfr gwaith i wahanu ffeil Excel, ffeil Txt, ffeil CSV a ffeil PDF yn ôl yr angen.

Awgrymiadau:I gymhwyso hyn Llyfr Gwaith Hollti nodwedd, 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. Agorwch y llyfr gwaith rydych chi am arbed pob dalen fel ffeil PDF, ac yna cliciwch Kutool Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti, gweler y screenshot:

2. Yn y Llyfr Gwaith Hollti blwch deialog, gwiriwch y ddalen rydych chi am ei chadw, ac yna dewiswch PDF (* .pdf) oddi wrth y Cadw fel math rhestr ostwng, ac yna cliciwch Hollti botwm, yn y Dewis Ffolder ffenestr, nodwch ffolder ar gyfer rhoi'r ffeiliau wedi'u trosi, gweler y screenshot:

3. Ac yna, mae'r holl daflenni gwaith a ddewiswyd yn y llyfr gwaith cyfredol wedi'u cadw i ffeiliau PDF yn unigol, gweler y screenshot:


Erthyglau mwy cymharol:

  • Cadw Pob Taflen Waith Fel Gwerthoedd yn Unig
  • Os oes gennych lyfr gwaith sy'n cynnwys sawl fformiwla, nawr, mae angen i chi ddosbarthu'r ffeil hon i ddefnyddwyr eraill, nid ydych chi am ddangos y fformwlâu ond dim ond gwerthoedd sy'n cael eu harddangos. Fel rheol, gallwn arbed taflen waith yn gyflym fel gwerthoedd trwy gopïo a gludo'r data fel gwerthoedd yn unig. Ond, sut allech chi arbed pob taflen waith fel gwerthoedd yn unig heb gopïo a gludo fesul un?
  • Botwm Gorchymyn i Arbed Taflen Waith Egnïol Fel Ffeil PDF
  • Wrth weithio yn Microsoft Excel, efallai y byddwch yn wynebu'r broblem o arbed taflen waith weithredol fel ffeil PDF. Yn yr erthygl hon, gallwch ddysgu sut i arbed taflen waith weithredol fel ffeil PDF gyda chod VBA trwy Botwm Gorchymyn. Ac os ydych chi hefyd am arbed ystod neu bob taflen waith mewn llyfr gwaith gweithredol fel ffeil PDF unigol, gall yr erthygl hon hefyd eich helpu chi.
  • Rhannwch Dabl Mawr i Fyrddau Bach Lluosog
  • Os oes gennych daflen waith fawr sy'n cynnwys nifer o golofnau a channoedd neu filoedd o ddata rhesi, nawr, rydych chi am rannu'r tabl mawr hwn yn dablau bach lluosog yn seiliedig ar werth y golofn neu nifer y rhesi i gael y canlyniadau canlynol. Sut allech chi ddelio â'r dasg hon yn Excel?
  • Rhannwch lyfr gwaith i wahanu ffeiliau Excel
  • Efallai y bydd angen i chi rannu llyfr gwaith mawr i wahanu ffeiliau Excel gan arbed pob taflen waith o'r llyfr gwaith fel ffeil Excel unigol. Er enghraifft, gallwch rannu llyfr gwaith yn sawl ffeil Excel unigol ac yna danfon pob ffeil i wahanol berson i'w drin. Trwy wneud hynny, gallwch gael rhai pobl i drin data penodol, a chadw'ch data yn ddiogel. Bydd yr erthygl hon yn cyflwyno ffyrdd i rannu llyfr gwaith mawr i wahanu ffeiliau Excel yn seiliedig ar bob taflen waith.

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations