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
- Konvertera flera arbetsböcker till PDF-filer med VBA-kod på en gång
- Konvertera flera arbetsböcker till PDF-filer med en kraftfull funktion
- Konvertera flera kalkylblad från en arbetsbok för att separera PDF-filer med VBA-kod
- Konvertera flera kalkylblad från en arbetsbok för att separera PDF-filer med en praktisk funktion
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.
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.
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:
- 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.
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.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!
