एक्सेल में एक साथ कई वर्कबुक या वर्कशीट को पीडीएफ फाइलों में कैसे बदलें?

कभी-कभी, आपको अपनी एक्सेल फ़ाइलों को पीडीएफ फाइलों में बदलने की आवश्यकता होती है, ताकि उन्हें दूसरों द्वारा संशोधित न किया जा सके। Excel में, हम Save As फ़ंक्शन का उपयोग करके किसी Excel फ़ाइल को PDF फ़ाइल के रूप में सहेज सकते हैं। लेकिन आप एक्सेल में एक ही समय में एकाधिक कार्यपुस्तिकाओं को पीडीएफ फाइलों में कैसे परिवर्तित करते हैं?

• एक-एक करके कई कार्यपुस्तिकाओं को Save As फ़ंक्शन के साथ पीडीएफ फाइलों में बदलें
• एक साथ कई कार्यपुस्तिकाओं को वीबीए कोड के साथ पीडीएफ फाइलों में बदलें
• एक शक्तिशाली सुविधा के साथ एकाधिक कार्यपुस्तिकाओं को पीडीएफ फाइलों में बदलें
• एक कार्यपुस्तिका से एकाधिक कार्यपत्रकों को वीबीए कोड के साथ अलग-अलग पीडीएफ फाइलों में परिवर्तित करें
• एक आसान सुविधा के साथ एक कार्यपुस्तिका से कई कार्यपत्रकों को अलग-अलग पीडीएफ फाइलों में परिवर्तित करें

एक-एक करके कई कार्यपुस्तिकाओं को Save As फ़ंक्शन के साथ पीडीएफ फाइलों में बदलें

आम तौर पर, Excel में Save As सुविधा आपको संपूर्ण कार्यपुस्तिका को PDF फ़ाइल में सहेजने में मदद कर सकती है, कृपया ऐसा करें:

1. अपनी कार्यपुस्तिका लॉन्च करें जिसे आप पीडीएफ प्रारूप में कनवर्ट करना चाहते हैं।

2। क्लिक करें पट्टिका > इस रूप में सहेजें, और इसमें इस रूप में सहेजें संवाद बॉक्स में, कृपया नई फ़ाइल को सहेजने के लिए एक फ़ोल्डर निर्दिष्ट करें, फिर चयन करें पीडीएफ से प्रकार के रूप में सहेजें ड्रॉप डाउन सूची, और फिर, क्लिक करें ऑप्शंस बटन, स्क्रीनशॉट देखें:

3. फिर, बाहर निकला ऑप्शंस संवाद बॉक्स, जाँचें संपूर्ण कार्यपुस्तिका, स्क्रीनशॉट देखें:

4। और फिर क्लिक करें OK > सहेजें, इस संपूर्ण कार्यपुस्तिका को पीडीएफ फ़ाइल स्वरूप में सहेजा गया है।

एक साथ कई कार्यपुस्तिकाओं को वीबीए कोड के साथ पीडीएफ फाइलों में बदलें

यदि सैकड़ों एक्सेल फाइलों को परिवर्तित करने की आवश्यकता है, तो उपरोक्त विधि परेशानी वाली होगी, यहां, मैं एक साथ कई कार्यपुस्तिकाओं को पीडीएफ फाइलों में परिवर्तित करने के लिए वीबीए कोड के बारे में बात करूंगा, कृपया निम्नलिखित चरणों का पालन करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: एक साथ कई कार्यपुस्तिकाओं को पीडीएफ फाइलों में बदलें

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, एक और विंडो खुल गई है, कृपया एक फ़ोल्डर पथ चुनें जहां आप नई पीडीएफ फाइलों को आउटपुट करना चाहते हैं, स्क्रीनशॉट देखें:

5. और फिर, क्लिक करें OK, रूपांतरण पूरा करने के बाद, आप परिवर्तित परिणाम का पूर्वावलोकन करने के लिए निर्दिष्ट फ़ोल्डर में जा सकते हैं, स्क्रीनशॉट देखें:

एक शक्तिशाली सुविधा के साथ एकाधिक कार्यपुस्तिकाओं को पीडीएफ फाइलों में बदलें

यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने प्रारूप कनवर्टर उपयोगिता, आप एक साथ कई कार्यपुस्तिकाओं को पीडीएफ फाइलों में तुरंत परिवर्तित कर सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1। क्लिक करें कुटूल्स प्लस > कार्यपुस्तिका > प्रारूप कनवर्टर, स्क्रीनशॉट देखें:

2. और एक प्रॉम्प्ट बॉक्स यह याद दिलाने के लिए पॉप आउट हो जाता है कि आपको उन कार्यपुस्तिकाओं को बंद करना होगा जिन्हें आप कनवर्ट करना चाहते हैं।

3। क्लिक करें OK, फिर, में फ़ाइलफ़ॉर्मेट कनवर्टर संवाद, निम्नलिखित विकल्प निर्दिष्ट करें:

• के नीचे कनवर्ट प्रकार ड्रॉप डाउन सूची, चयन करें एक्सेल वर्कबुक को पीडीएफ में बदलें;
• तब क्लिक करो   जिन Excel फ़ाइलों को आप कनवर्ट करना चाहते हैं उन्हें जोड़ने के लिए बटन, आप आवश्यकतानुसार अपने कंप्यूटर डिस्क या OneDrive से कार्यपुस्तिकाएँ जोड़ सकते हैं; 

4. जिन कार्यपुस्तिकाओं को आप कनवर्ट करना चाहते हैं उन्हें डालने के बाद भी फ़ाइल स्वरूप परिवर्तक संवाद बॉक्स, कृपया क्लिक करें परिवर्तित फ़ाइलों को आउटपुट करने के लिए एक फ़ोल्डर पथ चुनने के लिए बटन, और फिर संवाद बॉक्स के निचले भाग में आपके लिए आवश्यक कुछ संचालन निर्दिष्ट करें, स्क्रीनशॉट देखें:

5। तब दबायें OK कनवर्ट करना शुरू करने के लिए, जब सभी निर्दिष्ट एक्सेल फाइलें पीडीएफ फाइलों में परिवर्तित हो जाएं, तो आप परिवर्तित परिणाम का पूर्वावलोकन करने के लिए निर्दिष्ट फ़ोल्डर में जा सकते हैं, स्क्रीनशॉट देखें:

एक कार्यपुस्तिका से एकाधिक कार्यपत्रकों को वीबीए कोड के साथ अलग-अलग पीडीएफ फाइलों में परिवर्तित करें

कुछ मामलों में, आप कार्यपुस्तिका में प्रत्येक कार्यपत्रक को अलग-अलग पीडीएफ फाइलों में परिवर्तित करना चाह सकते हैं, यदि आपकी कार्यपुस्तिका में बहुत सारी पत्रक हैं, तो नीचे दिया गया वीबीए कोड आपको प्रत्येक कार्यपत्रक को एक बार में पीडीएफ फाइल के रूप में सहेजने में मदद कर सकता है।

1. वह कार्यपुस्तिका खोलें जिसे आप कनवर्ट करना चाहते हैं, और फिर उसे दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: एक कार्यपुस्तिका से कई कार्यपत्रकों को अलग-अलग पीडीएफ फाइलों में परिवर्तित करें

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 इस कोड को चलाने के लिए कुंजी, और एक विंडो खुलती है, कृपया परिवर्तित पीडीएफ फाइलों का पता लगाने के लिए एक फ़ोल्डर पथ चुनें, स्क्रीनशॉट देखें:

4। तब दबायें OK बटन, वर्तमान कार्यपुस्तिका के भीतर सभी कार्यपत्रकों को अलग-अलग पीडीएफ फाइलों में परिवर्तित कर दिया गया है, स्क्रीनशॉट देखें:

एक आसान सुविधा के साथ एक कार्यपुस्तिका से कई कार्यपत्रकों को अलग-अलग पीडीएफ फाइलों में परिवर्तित करें

एक्सेल के लिए कुटूल एक उपयोगी सुविधा का भी समर्थन करता है - विभाजित कार्यपुस्तिका, इस सुविधा के साथ, आप अपनी आवश्यकता के अनुसार Excel फ़ाइल, Txt फ़ाइल, CSV फ़ाइल और PDF फ़ाइल को अलग करने के लिए कार्यपुस्तिका के भीतर कई कार्यपत्रकों को सहेज सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. वह कार्यपुस्तिका खोलें जिसे आप प्रत्येक शीट को पीडीएफ फ़ाइल के रूप में सहेजना चाहते हैं, और फिर क्लिक करें कुटूल प्लस > कार्यपुस्तिका > विभाजित कार्यपुस्तिका, स्क्रीनशॉट देखें:

2. में विभाजित कार्यपुस्तिका संवाद बॉक्स में, उस शीट की जाँच करें जिसे आप सहेजना चाहते हैं, और फिर चुनें पीडीएफ (* .pdf) से प्रकार के रूप में सहेजें ड्रॉप डाउन सूची, और फिर क्लिक करें विभाजित करें बटन, में फ़ोल्डर का चयन करें विंडो, परिवर्तित फ़ाइलों को रखने के लिए एक फ़ोल्डर निर्दिष्ट करें, स्क्रीनशॉट देखें:

3. और फिर, वर्तमान कार्यपुस्तिका में सभी चयनित कार्यपत्रकों को व्यक्तिगत रूप से पीडीएफ फाइलों में सहेजा गया है, स्क्रीनशॉट देखें:

अधिक संबंधित लेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖	कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
	लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
	सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
	उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
	स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
	फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
	शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

अधिक पढ़ें... मुफ्त डाउनलोड...

---

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...