Skip to main content

Conas iliomad leabhar oibre nó bileoga oibre a thiontú go comhaid PDF ag Excel ag an am céanna?

Am éigin, ní mór duit do chuid comhad Excel a thiontú go comhaid PDF, ionas nach féidir le daoine eile iad a mhodhnú. In Excel, is féidir linn comhad Excel a shábháil mar chomhad PDF trí fheidhm Save As a úsáid. Ach conas a athraíonn tú leabhair oibre iolracha go comhaid PDF ag an am céanna in Excel?


Tiontaigh leabhair oibre iolracha go comhaid PDF le feidhm Save As ceann ar cheann

De ghnáth, is féidir leis an ngné Save As in Excel cabhrú leat an leabhar oibre iomlán a shábháil go comhad PDF, déan mar seo le do thoil:

1. Seoladh leabhar oibre duit a theastaíonn uait a thiontú go formáid PDF.

2. Cliceáil Comhad > Sábháil Mar, agus sa Sábháil Mar bosca dialóige, sonraigh fillteán le do thoil chun an comhad nua a shábháil, ansin roghnaigh PDF ó na Ach amháin mar chineál liosta anuas, agus ansin, cliceáil Roghanna cnaipe, féach ar an scáileán:

3. Ansin, sa popped amach Roghanna bosca dialóige, seiceáil Leabhar oibre iomlán, féach ar an scáileán:

4. Agus ansin cliceáil OK > Sábháil, sábháladh an leabhar oibre iomlán seo mar fhormáid comhaid PDF.

Leideanna: Má tá iliomad leabhar oibre agat is gá a thiontú, cuir na céimeanna thuas i bhfeidhm chun na leabhair oibre a shábháil ar chomhaid PDF ceann ar cheann.

Tiontaigh iliomad leabhar oibre go comhaid PDF le cód VBA ag an am céanna

Má tá na céadta comhad Excel ann is gá a thiontú, beidh an modh thuas trioblóideach, anseo, labhróidh mé faoi chód VBA chun iliomad leabhar oibre a thiontú go comhaid PDF ag an am céanna, déan na céimeanna seo a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Tiontaigh iliomad leabhar oibre go comhaid PDF ag an am céanna

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. Ansin, brúigh F5 eochair chun an cód seo a rith, agus taispeánfar fuinneog, roghnaigh fillteán ina bhfuil na leabhair oibre a theastaíonn uait a thiontú, féach an scáileán:

4. Ansin, cliceáil OK, tá fuinneog eile popped amach, roghnaigh cosán fillteán le do thoil inar mian leat na comhaid PDF nua a aschur, féach an scáileán:

5. Agus ansin, clik OK, tar éis duit an tiontú a chríochnú, is féidir leat dul chuig an bhfillteán sonraithe chun réamhamharc a dhéanamh ar an toradh tiontaithe, féach screenshots:


Tiontaigh iliomad leabhar oibre go comhaid PDF le gné chumhachtach

Má tá tú Kutools le haghaidh Excel, Lena Tiontaire Formáid fóntais, is féidir leat iliomad leabhar oibre a thiontú go comhaid PDF go tapa ag an am céanna.

Leideanna:Chun é seo a chur i bhfeidhm Tiontaire Formáid gné, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil Kutools Plus > Leabhar Oibre > Tiontaire Formáid, féach ar an scáileán:

2. Agus tá bosca pras popped amach chun a mheabhrú go gcaithfidh tú na leabhair oibre a theastaíonn uait a thiontú a dhúnadh.

3. Cliceáil OK, ansin, sa Tiontaire FileFormat dialóg, sonraigh na roghanna seo a leanas:

  • faoin Cineál a thiontú liosta anuas, roghnaigh Leabhar oibre Excel go PDF;
  • Ansin cliceáil Cuir cnaipe chun na comhaid Excel a theastaíonn uait a thiontú a chur leis, is féidir leat na leabhair oibre a chur ó do dhiosca comhbhrúiteora nó OneDrive de réir mar is gá duit; 

4. Tar éis duit na leabhair oibre a theastaíonn uait a thiontú a chur isteach, fós sa Tiontaire Formáid Comhad bosca dialóige, cliceáil le do thoil cnaipe chun cosán fillteáin amháin a roghnú chun na comhaid chomhshó a aschur, agus ansin roinnt oibríochtaí a theastaíonn uait a shonrú ag bun an bhosca dialóige, féach an scáileán:

nótaí: Sa bhosca dialóige thuas:
  • Más gá na leabhair oibre sna fo-fhillteáin a thiontú freisin, féach le do thoil ar an Cuir fofhillteáin san áireamh agus fillteáin á gcur leis bosca seiceála;
  • Más mian leat na comhaid bhunaidh a bhaint tar éis iad a thiontú, seiceáil an Scrios comhaid foinse tar éis iad a thiontú bosca;
  • Más mian leat dáta modhnaithe na gcomhad bunaidh a choinneáil, seiceáil an Coinnigh dáta modhnaithe na gcomhad bunaidh bosca;
  • Is féidir struchtúr eolaire an chomhaid a choinneáil ach an Caomhnaítear struchtúr eolaire an chomhaid nuair a dhéantar é a thiontú bosca;

5. Ansin cliceáil OK chun tiontú a thosú, nuair a athraíodh na comhaid Excel shonraithe go léir chuig na comhaid PDF, is féidir leat dul chuig an bhfillteán sonraithe chun réamhamharc a dhéanamh ar an toradh tiontaithe, féach screenshots:


Tiontaigh iliomad bileoga oibre ó leabhar oibre chun comhaid PDF a scaradh le cód VBA

I roinnt cásanna, b’fhéidir gur mhaith leat gach bileog oibre sa leabhar oibre a thiontú go comhaid PDF ar leithligh, má tá go leor bileoga i do leabhar oibre, is féidir leis an gcód VBA thíos cabhrú leat gach bileog oibre a shábháil mar chomhad PDF ag an am céanna.

1. Oscail leabhar oibre a theastaíonn uait a thiontú, agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Tiontaigh iliomad bileoga oibre ó leabhar oibre chun comhaid PDF a scaradh

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. Ansin, brúigh F5 eochair chun an cód seo a rith, agus fuinneog popped amach, roghnaigh cosán fillteáin chun na comhaid PDF tiontaithe a aimsiú, féach an scáileán:

4. Ansin, cliceáil OK cnaipe, rinneadh comhaid PDF a thiontú ar leithligh ar gach bileog oibre sa leabhar oibre reatha, féach an scáileán:


Tiontaigh iliomad bileoga oibre ó leabhar oibre chun comhaid PDF a scaradh le gné áisiúil

Kutools le haghaidh Excel tacaíonn sé le gné úsáideach freisin - Leabhar Oibre Scoilt, leis an ngné seo, is féidir leat iliomad bileoga oibre a shábháil sa leabhar oibre chun comhad Excel, comhad Txt, comhad CSV agus comhad PDF a scaradh de réir mar is gá duit.

Leideanna:Chun é seo a chur i bhfeidhm Leabhar Oibre Scoilt gné, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Oscail an leabhar oibre a theastaíonn uait gach bileog a shábháil mar chomhad PDF, agus ansin cliceáil Kutool Plus > Leabhar Oibre > Leabhar Oibre Scoilt, féach ar an scáileán:

2. Sa an Leabhar Oibre Scoilt bosca dialóige, seiceáil an bhileog a theastaíonn uait a shábháil, agus ansin roghnaigh PDF (* .pdf) ó na Ach amháin mar chineál liosta anuas, agus ansin cliceáil Scoilt cnaipe, sa Roghnaigh Fillteán fuinneog, sonraigh fillteán chun na comhaid chomhshó a chur, féach an scáileán:

3. Agus ansin, sábháladh gach bileog oibre roghnaithe sa leabhar oibre reatha chuig comhaid PDF ina n-aonar, féach an scáileán:


Earraí níos coibhneasta:

  • Tiontaigh Comhaid Il Xls go Comhaid Xlsx In Excel
  • Chun seanchomhad xls Excel a thiontú go comhad xlsx nua, is féidir leat an ghné Save As a chur i bhfeidhm in Excel, ach, má tá gá le comhaid xls iolracha a thiontú, conas a d’fhéadfadh déileáil leis an tasc seo go tapa agus go héasca?
  • Sábháil Gach Bileog Oibre Mar Luachanna Amháin
  • Má tá leabhar oibre agat ina bhfuil iliomad foirmlí, anois, ní mór duit an comhad seo a dháileadh ar úsáideoirí eile, níl tú ag iarraidh na foirmlí a thaispeáint ach luachanna a thaispeáint. De ghnáth, is féidir linn bileog oibre a shábháil go tapa mar luachanna trí na sonraí a chóipeáil agus a ghreamú mar luachanna amháin. Ach, conas a d’fhéadfá gach bileog oibre a shábháil mar luachanna ach gan iad a chóipeáil agus a ghreamú ceann ar cheann?
  • Cnaipe Ordú Bileog Oibre Gníomhach a Shábháil Mar Chomhad PDF
  • Agus tú ag obair i Microsoft Excel, b’fhéidir go mbeidh ort an fhadhb a bhaineann le bileog oibre gníomhach a shábháil mar chomhad PDF. San Airteagal seo, is féidir leat foghlaim conas bileog oibre gníomhach a shábháil mar chomhad PDF le cód VBA trí Chnaipe Ordú. Agus más mian leat raon nó gach bileog oibre a shábháil i leabhar oibre gníomhach mar chomhad PDF aonair, is féidir leis an alt seo cabhrú leat freisin.
  • Scoilt Tábla Mór Isteach Táblaí Beaga Il
  • Má tá bileog oibre mór agat ina bhfuil ilcholúin agus sonraí na céadta nó na mílte sraitheanna, anois, ba mhaith leat an tábla mór seo a roinnt ina iliomad táblaí beaga bunaithe ar luach an cholúin nó líon na sraitheanna chun na torthaí seo a leanas a fháil. Conas a d’fhéadfá déileáil leis an tasc seo in Excel?
  • Roinn Leabhar Oibre Chun Comhaid Excel a Dheighilt
  • B’fhéidir go mbeidh ort leabhar oibre mór a roinnt chun comhaid Excel a scaradh le gach bileog oibre den leabhar oibre a shábháil mar chomhad Excel aonair. Mar shampla, is féidir leat leabhar oibre a roinnt ina iliomad comhad Excel aonair agus ansin gach comhad a sheachadadh chuig duine difriúil chun é a láimhseáil. Trí sin a dhéanamh, féadfaidh tú a chur ar dhaoine áirithe sonraí faoi leith a láimhseáil, agus do chuid sonraí a choinneáil slán. Tabharfaidh an t-alt seo bealaí isteach chun leabhar mór oibre a roinnt chun comhaid Excel a scaradh bunaithe ar gach bileog oibre.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!
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