Ինչպե՞ս Excel- ում միանգամից բազմաթիվ աշխատանքային գրքեր կամ աշխատանքային թերթեր վերափոխել PDF ֆայլերի:

Sometամանակ առ ժամանակ անհրաժեշտ է փոխել ձեր Excel ֆայլերը PDF ֆայլերի, որպեսզի դրանք չկարողանան փոփոխվել այլոց կողմից: Excel- ում մենք կարող ենք պահպանել Excel ֆայլը որպես PDF ֆայլ ՝ օգտագործելով Save As գործառույթը: Բայց ինչպե՞ս մի քանի աշխատանքային գրքույկ Excel- ում միաժամանակ վերափոխել PDF ֆայլերի:

• Բազմաթիվ աշխատանքային գրքույկները մեկ առ մեկ վերափոխեք PDF As ֆայլերի
• Միանգամից մի քանի աշխատանքային գրքույկ փոխակերպեք PDF ֆայլերի ՝ VBA կոդով
• Հզոր առանձնահատկությամբ բազմաթիվ աշխատանքային գրքեր վերափոխեք PDF ֆայլերի
• Աշխատանքային գրքից փոխեք բազմաթիվ աշխատանքային թերթեր ՝ VBA կոդով PDF ֆայլեր առանձնացնելու համար
• Բազմաթիվ աշխատանքային թերթեր աշխատանքային գրքից վերափոխեք հարմար ֆունկցիայի հետ PDF ֆայլերի առանձնացնելու համար

Բազմաթիվ աշխատանքային գրքույկները մեկ առ մեկ վերափոխեք PDF As ֆայլերի

Սովորաբար, Excel- ում Save As հնարավորությունը կարող է օգնել ձեզ ամբողջ աշխատանքային գիրքը PDF ֆայլում պահելու համար, խնդրում ենք արեք հետևյալ կերպ.

1, Գործարկեք աշխատանքային տետրը, որը ցանկանում եք փոխարկել PDF ձևաչափի:

2: Սեղմեք Ֆայլ > Պահել As, եւ Պահել As երկխոսության տուփ, խնդրում ենք նշել պանակը նոր ֆայլը պահելու համար, ապա ընտրեք PDF - ից Պահել որպես տիպ բացվող ցուցակը, ապա կտտացրեք Ընտրանքներ կոճակը, տես նկարի նկարը.

3, Հետո դուրս եկավ դուրս Ընտրանքներ երկխոսության տուփ, ստուգեք Ամբողջ աշխատանքային տետր, տես նկարի նկարը.

4. Եվ այնուհետեւ կտտացրեք OK > Փրկել, այս ամբողջ աշխատանքային գիրքը պահվել է որպես PDF ֆայլի ձևաչափ:

Միանգամից մի քանի աշխատանքային գրքույկ փոխակերպեք PDF ֆայլերի ՝ VBA կոդով

Եթե ​​կա հարյուրավոր Excel ֆայլերի վերափոխման անհրաժեշտություն, վերը նշված մեթոդը անհանգստացնող կլինի, այստեղ ես կխոսեմ մի քանի աշխատանքային գրքեր միանգամից PDF ֆայլերի փոխակերպելու VBA կոդի մասին, արեք հետևյալ քայլերով.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Միանգամից մի քանի աշխատանքային գրքեր փոխեք PDF ֆայլերի

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, Հետո, սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կցուցադրվի պատուհան, խնդրում ենք ընտրեք այն թղթապանակը, որը պարունակում է աշխատանքային գրքերը, որոնք ցանկանում եք փոխարկել:

4, Դրանից հետո կտտացրեք OK, մեկ այլ պատուհան է դուրս եկել, ընտրեք թղթապանակի ուղին, որտեղ ցանկանում եք դուրս բերել նոր PDF ֆայլերը, տե՛ս նկարը.

5, Եվ հետո, կլիկ OK, փոխարկումն ավարտելուց հետո կարող եք մտնել նշված թղթապանակ ՝ փոխելու արդյունքը նախադիտելու համար, տեսեք սքրինշոթերը.

Հզոր առանձնահատկությամբ բազմաթիվ աշխատանքային գրքեր վերափոխեք PDF ֆայլերի

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Ձեւաչափիչ օգտակար, դուք կարող եք արագորեն միանգամից բազմաթիվ աշխատանքային գրքեր վերափոխել PDF ֆայլերի:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1: Սեղմեք Kutools Plus > Աշխատանքային տետր > Ձեւաչափիչ, տես նկարի նկարը.

2, Եվ հուշում է, որ հուշում է, որ դուք պետք է փակեք աշխատանքային գրքերը, որոնք ցանկանում եք փոխարկել:

3: Սեղմեք OK, ապա ՝ FileFormat փոխարկիչ երկխոսություն, նշեք հետևյալ ընտրանքները.

• Տակ է Փոխարկել տեսակը բացվող ցուցակ, ընտրեք Excel աշխատանքային գրքույկ PDF- ից;
• Այնուհետեւ կտտացրեք Ավելացնել Excel ֆայլերը ավելացնելու ցանկություն ունեցող կոճակը, որը ցանկանում եք փոխարկել, կարող եք ավելացնել աշխատանքային գրքերը ձեր համակարգչի սկավառակից կամ OneDrive- ից ՝ ըստ ձեզ անհրաժեշտության. 

4, Այն աշխատանքային գրքերը զետեղելուց հետո, որոնք ցանկանում եք փոխարկել, դեռ մնում են այն Ֆայլի ձևաչափի փոխարկիչ երկխոսության տուփ, սեղմեք փոխարկված ֆայլերը դուրս բերելու համար մեկ թղթապանակի ուղի ընտրելու կոճակ, ապա նշեք որոշ գործողություններ, որոնք անհրաժեշտ են երկխոսության տուփի ներքևում, տես նկարի նկարը.

5. Այնուհետեւ կտտացրեք OK փոխարկումը սկսելու համար, երբ բոլոր նշված Excel ֆայլերը վերափոխվել են PDF ֆայլերի, կարող եք անցնել նշված թղթապանակ ՝ փոխելու արդյունքը դիտելու համար, տեսեք սքրինշոթերը.

Աշխատանքային գրքից փոխեք բազմաթիվ աշխատանքային թերթեր ՝ VBA կոդով PDF ֆայլեր առանձնացնելու համար

Որոշ դեպքերում գուցե ցանկանաք աշխատանքային գրքում յուրաքանչյուր աշխատանքային թերթ փոխարկել PDF ֆայլերի առանձնացման համար, եթե ձեր աշխատանքային գրքում շատ թերթեր կան, ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ միանգամից պահպանել յուրաքանչյուր աշխատանքային թերթը որպես PDF ֆայլ:

1, Բացեք աշխատանքային գրքույկ, որը ցանկանում եք փոխարկել, այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Աշխատանքային գրքից փոխեք բազմաթիվ աշխատանքային թերթեր ՝ 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, Հետո, սեղմեք F5 Այս կոդն աշխատեցնելու բանալին, և պատուհանը դուրս է գալիս, ընտրեք թղթապանակի ուղի ՝ փոխակերպված PDF ֆայլերը տեղակայելու համար, տեսեք ՝

4, Դրանից հետո կտտացրեք OK կոճակը, ընթացիկ աշխատանքային գրքի բոլոր աշխատանքային թերթերը առանձին փոխարկվել են PDF ֆայլերի, տե՛ս նկարը.

Բազմաթիվ աշխատանքային թերթեր աշխատանքային գրքից վերափոխեք հարմար ֆունկցիայի հետ PDF ֆայլերի առանձնացնելու համար

Excel- ի համար նախատեսված գործիքներ նաև աջակցում է օգտակար հատկություն - Պառակտում աշխատանքային գրքույկ, այս հատկության միջոցով աշխատանքային գրքում կարող եք պահպանել բազմաթիվ աշխատանքային թերթեր ՝ Excel ֆայլը, Txt ֆայլը, CSV ֆայլը և PDF ֆայլը առանձնացնելու համար, որքան ձեզ հարկավոր է:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1, Բացեք աշխատանքային գրքույկը, որը ցանկանում եք պահպանել յուրաքանչյուր թերթը որպես PDF ֆայլ, ապա կտտացրեք Կուտուլ պլյուս > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.

2, Մեջ Պառակտում աշխատանքային գրքույկ երկխոսության տուփ, ստուգեք այն թերթիկը, որը ցանկանում եք պահպանել, և այնուհետև ընտրել PDF (* .pdf) - ից Պահել որպես տիպ բացվող ցուցակը, ապա կտտացրեք պառակտում կոճակը, Ընտրեք թղթապանակը պատուհանը, նշեք փոխարկված ֆայլերը տեղադրելու համար պանակը, տես նկարի նկարը.

3, Եվ հետո, ընթացիկ աշխատանքային գրքում ընտրված բոլոր աշխատաթերթերը անհատապես պահվել են PDF ֆայլերում, տես նկարի նկարը.

Ավելի հարաբերական հոդվածներ.

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...