2 tehokasta tapaa erän muuntaa useita Excel-työkirjoja PDF Asiakirjat

Joskus saatat haluta muuntaa useita Excel-työkirjoja PDF tiedostot. Tässä tässä artikkelissa esitellään 2 tapaa saada se erissä.

Joissakin tapauksissa sinun on ehkä muunnettava Excel-työkirja a PDF tiedosto siinä a PDF muut eivät voi muokata tiedostoa helposti. Kuten me kaikki tiedämme, Excel-työkirja on huomattavasti helppo muuntaa PDF, joka voidaan saavuttaa alkuperäisellä "Tallenna nimellä" -ominaisuudella, kuten seuraava menetelmä 1. Jos kuitenkin on paljon muunnettavia työkirjoja PDF, sinulla oli parempi käyttää jäljempänä esitettyä menetelmää 2, joka on paljon tehokkaampi. Lue nyt saadaksesi ne yksityiskohtaisesti.

Tapa 1: Muunna yksi kerrallaan

1. Avaa ensin Excel-työkirja, johon haluat muuntaa PDF tiedosto.
2. Siirry sitten "Tiedosto" -valikkoon ja napsauta "Tallenna nimellä" -vaihtoehtoa.
3. Valitse seuraavaksi Tallenna nimellä -ikkunassaPDF”Avattavasta” Tallenna nimellä ”-luettelosta.
4. Napsauta sen jälkeen "Tallenna nimellä" -ikkunassa "Asetukset" -painiketta.
5. Valitse sitten seuraavassa "Asetukset" -valintaikkunassa "Koko työkirja".
6. Viimeistele muuntaminen napsauttamalla OK ja Tallenna.
7. Tällä tavalla voit muuntaa muut Excel-työkirjat PDF tiedostot yksitellen manuaalisesti.

Tapa 2: Erämuunnos VBA: n kautta

1. Kerää alusta alkaen kaikki muunnettavat Excel-työkirjat PDF samassa Windows-kansiossa.
2. Käynnistä sitten Excel-sovellus.
3. Seuraavaksi avaa Excel VBA -editori viittaamallaKuinka suorittaa VBA-koodi Excelissä".
4. Laita sitten seuraava koodi moduuliin tai projektiin.

Sub BatchOpenMultiplePSTFiles()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       'Open the windows folder
       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
   End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objExcelFile As Object
    Dim objWorkbook As Excel.Workbook
    Dim strWorkbookName As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "xls" Or LCase(strFileExtension) = "xlsx" Then
           Set objExcelFile = objFile
           Set objWorkbook = Application.Workbooks.Open(objExcelFile.Path)

           strWorkbookName = Left(objWorkbook.Name, (Len(objWorkbook.Name) - Len(strFileExtension)) -1)
           objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & strWorkbookName & ".pdf"

           objWorkbook.Close False
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

5. Napsauta sen jälkeen ensimmäistä alirutiinia ja paina “F5” -näppäintä.
6. Valitse ponnahdusikkunassa tietty Windows-kansio, johon Excel-tiedostot kerätään.
7. Napsauta sitten “OK”.
8. Kun makro on valmis, Windows-kansio avautuu, jossa näet PDF tiedostot, kuten seuraava kuvakaappaus.

Vertailu

Excel-tiedoston vioittumisen yhteydessä

Useat Excel-käyttäjät ovat koskaan kokeneet Excel-tiedostojen vioittumista. Toisinaan Excelin natiivi palautustoiminto voi palauttaa korruptoitunut Excel tiedosto. Toisinaan se ei kuitenkaan voi. Siksi on erittäin suositeltavaa valmistaa tehokas Excel-korjaustyökalu, kuten DataNumen Excel Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com