2 Excel-ийн олон ажлын номыг багцаар хөрвүүлэх үр дүнтэй аргууд PDF файлууд

Excel шийдэл Аравдугаар сар 3, 2025
Одоо хуваалцах:

Заримдаа та Excel-ийн олон ажлын номыг хөрвүүлэхийг хүсч магадгүй юм PDF файлууд. Энд, энэ нийтлэлд бид үүнийг багц хэлбэрээр авах 2 аргыг танилцуулах болно.

Зарим тохиолдолд та Excel-ийн ажлын номыг а-руу хөрвүүлэх шаардлагатай болж магадгүй юм PDF файлыг а PDF файлыг бусад хүмүүс амархан өөрчлөх боломжгүй. Бидний мэдэж байгаагаар Excel-ийн ажлын номыг хөрвүүлэх нь маш хялбар байдаг PDFүүнийг дараахь арга 1-ийн нэгэн адил уугуул "Хадгалах" функцээр олж авах боломжтой. Гэсэн хэдий ч хөрвүүлэх олон ажлын ном байгаа бол PDF, та дараа нь нэвтрүүлсэн 2-р аргыг ашиглах нь илүү үр дүнтэй болох нь дээр. Одоо тэдгээрийг нарийвчлан авахын тулд уншина уу.

Арга 1: Нэг нэгээр нь хөрвүүлэх

  1. Эхлээд хөрвүүлэхийг хүссэн Excel-ийн ажлын номыг нээнэ үү PDF файл.
  2. Дараа нь "Файл" цэс рүү ороод "Хадгалах" сонголтыг дарна уу.Хадгалах
  3. Дараа нь, "Хадгалах" цонхонд "PDF"" Хэмнэх төрлөөр "унах жагсаалтаас."Сонгох"PDF"Оруул
  4. Үүний дараа "Хадгалах" цонхонд "Сонголт" товчийг дарна уу.
  5. Дараа нь дараагийн "Сонголтууд" харилцах цонхноос "Бүхэл бүтэн ажлын дэвтэр" -ийг сонгоно уу.Бүх ажлын номыг сонгоно уу
  6. Эцэст нь хөрвүүлэлтийг дуусгахын тулд "OK" ба "Save" дээр дарна уу.
  7. Энэ аргаар та бусад Excel-ийн ажлын номыг хөрвүүлэх боломжтой PDF гараар нэг нэгээр нь файл хэлбэрээр хадгалдаг.

Арга 2: VBA-р дамжуулж багцаар хөрвүүлэх

  1. Эхэндээ хөрвүүлэх Excel програмын бүх ажлын номыг цуглуул PDF ижил Windows хавтас дотор.
  2. Дараа нь Excel програмыг ажиллуулна уу.
  3. Дараа нь Excel VBA редактор руу хандаж “VBA кодыг Excel програм дээрээ хэрхэн ажиллуулах вэ".
  4. Дараа нь дараахь кодыг модуль эсвэл төсөлд оруулна уу.
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

VBA код - Олон Excel-ийн ажлын номыг багц болгон хөрвүүлэх PDF файлууд

  1. Үүний дараа эхний дэд програм дээр дарж “F5” товчийг дарна уу.
  2. Попап цонхноос Excel файлуудыг цуглуулдаг тодорхой Windows хавтасыг сонгоно уу.Windows хавтас сонгоно уу
  3. Дараа нь "OK" дээр дарна уу.
  4. Макро дуусахад Windows хавтас нээгдэх бөгөөд үүнд PDF дараахь дэлгэцийн агшин шиг файлууд.Шинэ PDF файлууд

харьцуулалт

Давуу тал Сул тал
Арга 1 Ажиллуулахад хялбар Excel-ийн олон ажлын номыг хөрвүүлэхэд хэтэрхий төвөгтэй байдаг
Арга 2 Олон ажлын ном боловсруулахдаа 1-р аргаас хамаагүй илүү тохиромжтой, хурдан байдаг Хэрэглэгчид гадны хортой макроос болгоомжтой байх хэрэгтэй.

Excel файл эвдэрсэн тохиолдолд

Excel-ийн олон хэрэглэгчид Excel файлын эвдрэлтэй тулгарч байсан. Заримдаа Excel-ийн уугуул сэргээх функц нь авлигад идэгдсэн Excel файл. Гэсэн хэдий ч заримдаа чадахгүй. Тиймээс Excel гэх мэт хүчирхэг засах хэрэгслийг бэлтгэхийг зөвлөж байна DataNumen Excel Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.