Note: The other languages of the website are Google-translated. Back to English

Hur konverterar jag flera arbetsböcker eller kalkylblad till PDF-filer samtidigt i Excel?

Någon gång måste du konvertera dina Excel-filer till PDF-filer så att de inte kan modifieras av andra. I Excel kan vi spara en Excel-fil som PDF-fil med funktionen Spara som. Men hur konverterar man flera arbetsböcker till PDF-filer samtidigt i Excel?


Konvertera flera arbetsböcker till PDF-filer med Spara som-funktionen en efter en

Normalt kan funktionen Spara som i Excel hjälpa dig att spara hela arbetsboken i en PDF-fil, gör så här:

1. Starta din arbetsbok som du vill konvertera till PDF-format.

2. Klicka Fil > Spara som, och i Spara som i dialogrutan, ange en mapp för att spara den nya filen och välj sedan PDF från Spara som rullgardinsmenyn och klicka sedan på Tillbehör knapp, se skärmdump:

3. Sedan, i poppade ut Tillbehör dialogruta, kontrollera Hel arbetsbok, se skärmdump:

4. Och klicka sedan på OK > Savehar hela denna arbetsbok sparats som PDF-filformat.

tips: Om du har flera arbetsböcker som behöver konverteras, använd ovanstående steg för att spara arbetsböckerna i PDF-filer en efter en.

Konvertera flera arbetsböcker till PDF-filer med VBA-kod på en gång

Om det finns hundratals Excel-filer behöver konverteras, kommer metoden ovan att vara besvärlig, här kommer jag att prata om en VBA-kod för att konvertera flera arbetsböcker till PDF-filer samtidigt, gör med följande steg:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Konvertera flera arbetsböcker till PDF-filer samtidigt

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. Tryck sedan på F5 för att köra den här koden, och ett fönster kommer att visas, välj en mapp som innehåller arbetsböckerna som du vill konvertera, se skärmdump:

4. Klicka sedan OK, ett annat fönster dyker upp, välj en mappsökväg där du vill mata ut de nya PDF-filerna, se skärmdump:

5. Och sedan, klick OK, efter konverteringen kan du gå till den angivna mappen för att förhandsgranska det konverterade resultatet, se skärmdumpar:


Konvertera flera arbetsböcker till PDF-filer med en kraftfull funktion

Om du har Kutools för Excel, med dess Format Converter verktyget kan du snabbt konvertera flera arbetsböcker till PDF-filer samtidigt.

tips:Att tillämpa detta Format Converter funktionen, först bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools Plus > Arbetsbok > Format Converter, se skärmdump:

2. Och en snabbruta visas för att påminna om att du måste stänga arbetsböckerna som du vill konvertera.

3. Klicka OK, sedan i Filformatomvandlare dialogrutan, ange följande alternativ:

  • Enligt Konvertera typ rullgardinsmeny, välj Excel-arbetsbok till PDF;
  • Klicka sedan på Lägg till knappen för att lägga till de Excel-filer som du vill konvertera, du kan lägga till arbetsböckerna från din datordisk eller OneDrive efter behov; 

4. Efter att du har infogat arbetsböckerna som du vill konvertera, fortfarande i Filformatkonverterare Klicka i dialogrutan -knappen för att välja en mappsökväg för att mata ut de konverterade filerna och ange sedan några åtgärder du behöver längst ner i dialogrutan, se skärmdump:

Anmärkningar: I ovanstående dialogruta:
  • Om arbetsböckerna i undermapparna också behöver konverteras, kontrollera Inkludera undermappar när du lägger till mappar kryssruta;
  • Om du vill ta bort originalfilerna efter konvertering, kontrollera Ta bort källfiler efter konvertering låda;
  • Om du vill behålla det modifierade datumet för originalfilerna, kontrollera Behåll ändrat datum för originalfiler låda;
  • Katalogstrukturen för filen kan behållas genom att markera Katalogstrukturen för filen bevaras när den konverteras låda;

5. Klicka sedan OK för att börja konvertera, när alla angivna Excel-filer har konverterats till PDF-filer, kan du gå till den angivna mappen för att förhandsgranska det konverterade resultatet, se skärmdumpar:


Konvertera flera kalkylblad från en arbetsbok för att separera PDF-filer med VBA-kod

I vissa fall kanske du vill konvertera varje kalkylblad i arbetsboken till separata PDF-filer. Om det finns många ark i din arbetsbok kan nedanstående VBA-kod hjälpa dig att spara varje kalkylblad som en PDF-fil på en gång.

1. Öppna en arbetsbok som du vill konvertera och håll ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Konvertera flera kalkylblad från en arbetsbok till separata PDF-filer

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. Tryck sedan på F5 för att köra den här koden och ett fönster dyker upp, välj en mappsökväg för att hitta de konverterade PDF-filerna, se skärmdump:

4. Klicka sedan OK knappen har alla kalkylblad i den aktuella arbetsboken konverterats PDF-filer separat, se skärmdump:


Konvertera flera kalkylblad från en arbetsbok för att separera PDF-filer med en praktisk funktion

Kutools för Excel stöder också en användbar funktion - Dela arbetsbok, med den här funktionen kan du spara flera kalkylblad i arbetsboken för att separera Excel-filen, Txt-filen, CSV-filen och PDF-filen efter behov.

tips:Att tillämpa detta Dela arbetsbok funktionen, först bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Öppna arbetsboken som du vill spara varje ark som PDF-fil och klicka sedan på Kutool Plus > Arbetsbok > Dela arbetsbok, se skärmdump:

2. I Dela arbetsbok dialogrutan, kolla arket som du vill spara och välj sedan PDF (* .pdf) från Spara som rullgardinsmenyn och klicka sedan på Split knappen, i Välj mapp fönster, ange en mapp för att placera de konverterade filerna, se skärmdump:

3. Och sedan har alla valda kalkylblad i den aktuella arbetsboken sparats i PDF-filer individuellt, se skärmdump:


Fler relativa artiklar:

  • Konvertera flera Xls-filer till Xlsx-filer i Excel
  • För att konvertera en gammal xls-Excel-fil till en ny xlsx-fil kan du använda funktionen Spara som i Excel, men om det finns flera xls-filer som behöver konverteras, hur kan du hantera den här uppgiften snabbt och enkelt?
  • Spara alla kalkylblad som värden
  • Om du har en arbetsbok som innehåller flera formler måste du nu distribuera den här filen till andra användare, du vill inte visa formlerna utan endast värden visas. Normalt kan vi snabbt spara ett kalkylblad som värden genom att bara kopiera och klistra in data som värden. Men hur kan du bara spara alla kalkylblad som värden utan att kopiera och klistra in en efter en?
  • Kommandoknapp för att spara aktivt kalkylblad som PDF-fil
  • När du arbetar i Microsoft Excel kan du möta problemet med att spara aktivt kalkylblad som PDF-fil. I den här artikeln kan du lära dig hur du sparar aktivt kalkylblad som PDF-fil med VBA-kod via en kommandoknapp. Och om du också vill spara ett intervall eller varje kalkylblad i aktiv arbetsbok som enskild PDF-fil kan den här artikeln också hjälpa dig.
  • Dela upp ett stort bord i flera små bord
  • Om du har ett stort kalkylblad som innehåller flera kolumner och hundratals eller tusentals rader, vill du nu dela upp den här stora tabellen i flera små tabeller baserat på kolumnvärdet eller antalet rader för att få följande resultat. Hur kunde du hantera den här uppgiften i Excel?
  • Dela upp en arbetsbok för att separera Excel-filer
  • Du kan behöva dela upp en stor arbetsbok för att separera Excel-filer genom att spara varje arbetsblad i arbetsboken som en enskild Excel-fil. Du kan till exempel dela upp en arbetsbok i flera enskilda Excel-filer och sedan leverera varje fil till olika personer för att hantera den. Genom att göra det kan du få vissa personer att hantera specifika data och hålla dina data säkra. Den här artikeln presenterar sätt att dela en stor arbetsbok för att separera Excel-filer baserat på varje kalkylblad.

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (5)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
jag redigerar och uppdaterar mina data i pdf explorer och jag har redan mina data i excel-ark så nu vill jag exportera till min excel-logg till pdf explorer hur
Denna kommentar minimerades av moderatoren på webbplatsen
Detta är perfekt för det jag letade efter. Tack för att du delar med dig. Jag brukade konvertera excel-fil till PDF-fil med Acethinker PDF Creator, en efter en, inte så snabbt, dela den här som en alternativ lösning.
Denna kommentar minimerades av moderatoren på webbplatsen
vba är riktigt bra och tjänar mitt syfte väl. men kan den här koden inte ändras för att skapa pdf från ett visst ark för flera Excel-filer (säg det tredje kalkylbladet av alla 3 excel-arbetsböcker jag har).
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket för den här koden.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, det här kan vara för mycket, men finns det ett sätt att göra en VBA som skulle separera flera arbetsböcker kalkylblad till sin egen pdf-fil och för varje rubrik att vara en text i en viss cell i kalkylblad för var och en?
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL