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

Πώς να χρησιμοποιήσετε το κουμπί εντολής για να αποθηκεύσετε το ενεργό φύλλο εργασίας ως αρχείο PDF στο Excel;

Ενώ εργάζεστε στο Microsoft Excel, ενδέχεται να αντιμετωπίσετε το πρόβλημα της αποθήκευσης του ενεργού φύλλου εργασίας ως αρχείου PDF. Σε αυτό το άρθρο, μπορείτε να μάθετε πώς μπορείτε να αποθηκεύσετε ενεργό φύλλο εργασίας ως αρχείο PDF με κώδικα VBA μέσω ενός κουμπιού εντολών. Και αν θέλετε επίσης να αποθηκεύσετε μια περιοχή ή κάθε φύλλο εργασίας σε ενεργό βιβλίο εργασίας ως μεμονωμένο αρχείο PDF, αυτό το άρθρο μπορεί επίσης να σας βοηθήσει.

Χρησιμοποιήστε το κουμπί εντολών για να αποθηκεύσετε το ενεργό φύλλο εργασίας ως αρχείο PDF με κώδικα VBA
Αποθηκεύστε εύκολα ενεργό ή κάθε φύλλο εργασίας ως μεμονωμένο αρχείο PDF με το Kutools για Excel


Χρησιμοποιήστε το κουμπί εντολών για να αποθηκεύσετε το ενεργό φύλλο εργασίας ως αρχείο PDF με κώδικα VBA

Μπορείτε να εκτελέσετε τον ακόλουθο κώδικα VBA για να αποθηκεύσετε ένα ενεργό φύλλο εργασίας ως αρχείο PDF κάνοντας κλικ σε ένα κουμπί εντολής. Κάντε τα εξής:

1. Πρώτον, πρέπει να δημιουργήσετε ένα φάκελο με το όνομα PDF για να αποθηκεύσετε το νέο αρχείο PDF που μετατράπηκε. Εδώ δημιουργώ αυτόν τον φάκελο στον τοπικό μου δίσκο (C :).

2. Εισαγάγετε ένα κουμπί εντολής κάνοντας κλικ Εργολάβος > Κύριο θέμα > Κουμπί εντολών (ActiveX Control). Δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, σχεδιάστε ένα κουμπί εντολής στο φύλλο εργασίας που πρέπει να προσθέσετε νέες σειρές, κάντε δεξί κλικ στο κουμπί εντολών και κάντε κλικ στο κουμπί Ιδιοκτησίες από το μενού με δεξί κλικ.

3. Στο Ιδιοκτησίες στο πλαίσιο διαλόγου, εισαγάγετε το εμφανιζόμενο κείμενο του κουμπιού εντολών στο Λεζάντα πλαίσιο κάτω από το Κατηγοριοποίηση και στη συνέχεια κλείστε το πλαίσιο διαλόγου.

Μπορείτε να δείτε ότι το εμφανιζόμενο κείμενο του κουμπιού εντολών αλλάζει όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

4. Κάντε δεξί κλικ στο κουμπί εντολών ξανά και, στη συνέχεια, κάντε κλικ στο κουμπί Προβολή κωδικού από το μενού με δεξί κλικ.

5. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντικαταστήστε τον αρχικό κωδικό στο παράθυρο Κωδικός με τον ακόλουθο κώδικα VBA.

Κωδικός VBA: Κουμπί εντολών για αποθήκευση ενεργού φύλλου εργασίας ως PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Note: Στον κώδικα, CommandButton1 είναι το όνομα του κουμπιού εντολής που θα χρησιμοποιήσετε για να αποθηκεύσετε το ενεργό φύλλο ως αρχείο PDF. Το "C: \ PDF \ Export.pdf" είναι η διαδρομή και το όνομα του αποθηκευμένου αρχείου PDF.

6. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στη συνέχεια, απενεργοποιήστε το Λειτουργία σχεδίασης σύμφωνα με το Εργολάβος Tab.

Τώρα, κάντε κλικ στο κουμπί εντολών, το ενεργό φύλλο εργασίας θα αποθηκευτεί ως αρχείο PDF που ονομάζεται Εξαγωγή και θα βρίσκεται στην καθορισμένη θέση.


Αποθηκεύστε κάθε φύλλο εργασίας ως μεμονωμένο αρχείο PDF του ενεργού βιβλίου εργασίας με το Kutools για Excel

Εδώ προτείνουμε το Διαχωρισμός βιβλίου εργασίας χρησιμότητα του Kutools για Excel για να αποθηκεύσετε εύκολα το ενεργό φύλλο εργασίας ως αρχείο PDF. Εκτός αυτού, μπορείτε επίσης να αποθηκεύσετε κάθε φύλλο εργασίας στο τρέχον βιβλίο εργασίας ως μεμονωμένο αρχείο PDF με αυτό το βοηθητικό πρόγραμμα.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Στο βιβλίο εργασίας πρέπει να αποθηκεύσετε κάθε φύλλο εργασίας ως μεμονωμένο αρχείο PDF και, στη συνέχεια, κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:

2. Στο Διαχωρισμός βιβλίου εργασίας πλαίσιο διαλόγου, διαμορφώστε τα εξής:

2.1) Ελέγξτε μόνο το όνομα του ενεργού φύλλου στο Όνομα φύλλου εργασίας κουτί;
2.2) Επιλέξτε PDF (* .pdf) Επιλογή από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα;
2.3) Κάντε κλικ στο Σπλιτ κουμπί, τότε a Επιλογή φακέλου εμφανίζεται το παράθυρο διαλόγου, καθορίστε ένα φάκελο για αποθήκευση του αρχείου PDF.

Στη συνέχεια, το επιλεγμένο φύλλο εργασίας αποθηκεύεται αμέσως ως αρχείο PDF.

Notes:

1. Μπορείτε να ελέγξετε πολλά ονόματα φύλλων εργασίας στο πλαίσιο Όνομα φύλλου εργασίας για να τα αποθηκεύσετε ως μεμονωμένο αρχείο pdf ταυτόχρονα.
2. Εκτός από την αποθήκευση του φύλλου εργασίας ως αρχείων pdf, μπορείτε να αποθηκεύσετε τα φύλλα εργασίας ως txt. ή csv. αρχείο όπως χρειάζεστε.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημέρα) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Επίδειξη: Αποθηκεύστε την επιλογή ή κάθε φύλλο εργασίας ως PDF με το Kutools για Excel


Σχετικά Άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (33)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Πώς θα επιτρέψει κανείς στον χρήστη να εισαγάγει το όνομα του αρχείου σε αντίθεση με το "Export.pdf"; Ευχαριστώ, Ίαν
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub SaveAsPDF()
Εφαρμογή.Ενημέρωση οθόνης = Λάθος
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
Όνομα αρχείου:=Application.InputBox("Εισαγωγή ονόματος αρχείου")

strExcelPath = "H:\My Documents"

Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω ένα παρόμοιο αίτημα Θέλω το αρχείο να έχει το ίδιο όνομα με ένα συγκεκριμένο κελί στην καρτέλα , IE: G19 (Αυτός είναι ο αριθμός τιμολογίου και θέλω το αρχείο να αποθηκευτεί ως PDF με αυτό το όνομα) ; . Κατάφερα να λειτουργήσει το export.pdf, αλλά αυτό δεν θα λειτουργήσει σε πολλαπλές αποθηκευμένες ρυθμίσεις. Οποιεσδήποτε σκέψεις, ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να λύσετε το πρόβλημα. Επιλέξτε το κελί G19 στο αναδυόμενο παράθυρο διαλόγου Kutoos for Excel μετά την εκτέλεση του κώδικα. Σας ευχαριστούμε για το σχόλιό σας.

Private Sub CommandButton1_Click ()
Dim xRg ως εύρος
Dim xName As String
On Error Συνέχιση Επόμενη
Application.ScreenUpdating = False
Set xRg = Application.InputBox("Επιλέξτε το κελί που θα ονομάσετε το PDF με την τιμή του κελιού:", "Kutools for Excel", Selection.Address, , , , , 8)
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
xName = xRg(1).Τιμή
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
Όνομα αρχείου:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = Λάθος
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Άλλαξα τη διαδρομή στη μονάδα δίσκου D, αλλά δεν αποθηκεύεται στη μονάδα δίσκου D. Τι να κάνω?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Akshay MN,
Εάν έχετε τροποποιήσει την παραπάνω διαδρομή στη μονάδα δίσκου D, βεβαιωθείτε ότι υπάρχει ένας φάκελος με το όνομα PDF στη μονάδα δίσκου D.
Εάν θέλετε να αποθηκεύσετε μόνο το αρχείο στη μονάδα δίσκου D χωρίς να δημιουργήσετε έναν υποφάκελο, χρησιμοποιήστε αυτήν τη διαδρομή φακέλου: "C:\" & xName & ".pdf"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να μετατρέψω τα αρχεία μου σε PDF τώρα με ένα κουμπί εντολής, αλλά μπορώ επίσης να λάβω την ίδια λειτουργία για να επιτρέψω διαφορετικό όνομα σε κάθε αρχείο; με βάση μια υπάρχουσα αριθμητική δομή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Randy,
Συγγνώμη που δεν μπορώ να βοηθήσω με αυτό, καλώς ήλθατε να δημοσιεύσετε οποιαδήποτε ερώτηση στο φόρουμ μας: https://www.extendoffice.com/forum.html για να λάβετε περισσότερες υποστηρίξεις Excel από τον επαγγελματία μας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΔΕΙΧΝΕΙ το σφάλμα χρόνου εκτέλεσης "1004"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Nzee,
Πρέπει να γνωρίζω την έκδοση του Excel. Σας ευχαριστούμε για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
plz επικολλήστε κωδικοποίηση για κουμπί αποθήκευσης ως pdf στο microsoft excel
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το κάνω αυτό για το MS Word; Έχω ένα σωρό ερωτήσεις με επιλογές κουμπιών επιλογής ως απαντήσεις. Θέλω λοιπόν να δημιουργήσω ένα κουμπί εντολής για την έξοδο των ερωτήσεων με τις επιλεγμένες απαντήσεις μόνο σε άλλο έγγραφο του Word. Πώς το κάνω αυτό? Ένας κωδικός θα βοηθούσε πραγματικά! Θα σας στείλω το έγγραφο εάν το χρειάζεστε. Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή σας μέρα,
Λυπάμαι, δεν μπορώ να σας βοηθήσω ακόμα σε αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Εμφάνιση sNazwaPliku, 57

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ακολούθησα τον κώδικα, αυτό είναι που έχω:

Private Sub CommandButton2_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
Όνομα αρχείου:=Εύρος ("P2"), _
OpenAfterPublish:=Αλήθεια
Application.ScreenUpdating = True
Sub End

Χρειάζομαι το αρχείο για αποθήκευση στη θέση που βρίσκεται το αρχικό αρχείο. χρειάζεται επίσης ένα αντίγραφο του αρχείου excel για αποθήκευση και με το ίδιο όνομα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Matt Bentley,
Ο κώδικας λειτουργεί τέλεια. Σε ευχαριστώ που μοιράστηκες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

kann jemand mir helfen;

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird:

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
Όνομα αρχείου:="C:\PDF\Export.pdf", _
OpenAfterPublish: = Λάθος
Application.ScreenUpdating = True
Sub End

Σας ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
Kann mir jemand ein Tipp geben;


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
Όνομα αρχείου:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Λάθος
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Σάσα,
Ο παρακάτω κώδικας μπορεί να βοηθήσει. Πριν εφαρμόσετε τον κωδικό, αλλάξτε το 'C:\Users\Win10x64Test\Documents\PDF' στην τέταρτη γραμμή προς τη δική σας διαδρομή φακέλου προορισμού.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Что это за кнопка - "другой" + Q клавиши одновременно" ?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ντιάνα,
Είναι το πλήκτρο "Alt" στο πληκτρολόγιό σας. Το Microsoft Excel επιτρέπει στους χρήστες να πατήσουν τα πλήκτρα "Alt" + "Q" για να κλείσουν το παράθυρο της Microsoft Visual Basic για εφαρμογές και να επιστρέψουν στο φύλλο εργασίας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Goededag

είναι het mogelijk om een ​​filmpje of een voorbeeld excelblad te maken voor de Command-Knop Om Een Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kom er niet helemaal uit met de codes.
ευχαριστώ alvast
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
himax,
Συγγνώμη δεν καταλαβαίνω τι εννοείς. Ίσως χρειαστεί να επισυνάψετε ένα στιγμιότυπο οθόνης αυτού που προσπαθείτε να κάνετε. Συγγνώμη για την ταλαιπωρία.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου ομάδα,

Απλώς αναρωτιέστε αν κάποιος θα μπορούσε να βοηθήσει με την αλλαγή του προορισμού του δημιουργημένου αρχείου στην επιφάνεια εργασίας οποιουδήποτε χρήστη; Η εταιρεία μου δεν επιτρέπει την πρόσβαση στο C: οπότε το σενάριο δεν λειτουργεί.

ΠΟΛΛΑ ΠΟΛΛΑ ΠΟΛΛΑ Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ben Stoddart,
Απλώς πρέπει να ανοίξετε οποιονδήποτε φάκελο στην επιφάνεια εργασίας σας και να αντιγράψετε τη διαδρομή φακέλου στο πλαίσιο διεύθυνσης και, στη συνέχεια, να αντικαταστήσετε τη διαδρομή φακέλου στον κώδικα VBA με τη διαδρομή που αντιγράψατε.
Εδώ είναι η νέα γραμμή ονόματος αρχείου (αντικαταστήστε το όνομα χρήστη με το δικό σας όνομα χρήστη), Εξαγωγή.pdf είναι το όνομα και η επέκταση αρχείου του αρχείου PDF:
Όνομα αρχείου:="C:\Users\Username\Desktop\PDF\Export.pdf", _
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κάθε φορά που το εκτελώ, αποθηκεύει ένα PDF στην τοπική μονάδα δίσκου όπου αποθηκεύονται τα φύλλα excel, πώς μπορώ να σταματήσω την αυτόματη αποθήκευση;

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
OpenAfterPublish:=Αλήθεια
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν εκτελώ τα παρακάτω, δημιουργεί αυτόματα μια τοπική έκδοση του PDF - πώς μπορώ να σταματήσω την αυτόματη αποθήκευση;

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
OpenAfterPublish:=Αλήθεια
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hi James,
Θέλετε να ανοίξει ένα παράθυρο για να επιλέξετε έναν φάκελο για να αποθηκεύσετε το αρχείο PDF με μη αυτόματο τρόπο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal, ιδανικά ναι, ώστε να μπορώ να επιλέξω πού θα αποθηκεύσω το PDF.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
H James,

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να λύσετε το πρόβλημα.
Note: Δεν μπορείτε να χειριστείτε ταυτόχρονα τον προορισμό και το όνομα του αρχείου. Αφού προσθέσετε τον ακόλουθο κώδικα VBA, όταν κάνετε κλικ στο κουμπί, θα εμφανιστεί ένα παράθυρο διαλόγου για να επιλέξετε έναν φάκελο προορισμού. Αφού επιλέξετε έναν φάκελο προορισμού, θα εμφανιστεί ένα πλαίσιο για να δώσετε ένα όνομα στο αρχείο PDF.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei existiert bereits und es soll beendet werden;


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Τύπος:=xlTypePDF, _
Όνομα αρχείου:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Αλήθεια
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Σάσα,
Ο παρακάτω κώδικας VBA μπορεί να βοηθήσει. Δοκιμάστε το.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL