Πίνακας περιεχομένων
Εκτύπωση Περιγραφή
Γράφει δεδομένα μορφοποιημένα σε οθόνη σε ένα διαδοχικό αρχείο.
Εκτύπωση σύνταξης
| 1 | Τυπώνω #FileNumber, [OutputList] |
Η δήλωση Εκτύπωση περιέχει 2 ορίσματα:
Αριθμός φακέλου: Οποιοσδήποτε έγκυρος αριθμός αρχείου.
OutputList: Προαιρετικός. Μία ή περισσότερες αριθμητικές εκφράσεις ή εκφράσεις συμβολοσειρών που ορίζονται με κόμματα για εγγραφή σε ένα αρχείο.
Παραδείγματα της λειτουργίας εκτύπωσης Excel VBA
| Ονομα | Επίθετο | Ηλικία | Γένος |
| Ροβέρτος | Στεπ | 20 | Αρσενικός |
| Τζένιφερ | Mariscal | 33 | Θηλυκός |
| Δαβίδ | Ρόμιγκ | 35 | Αρσενικός |
| Καρμέλ | Ingram | 26 | Θηλυκός |
Για να εξάγετε το εύρος ("A1: D5") σε ένα φύλλο όπως η παραπάνω εικόνα σε ένα αρχείο, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng As RangeΟρισμός dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Εάν dlgFolder.Show = True ΤότεstrFolder = dlgFolder.SelectedItems (1)ΑλλούΈξοδος SubΤέλος εανΡύθμιση rng = Εύρος ("A1: D5")'ΤυπώνωstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngΤέλος υποSub PrintRangeToFile (strFile As String, rng As Range)Χαμηλή σειρά ως εύρος, κελί ως εύροςDim FileNumber As IntegerFileNumber = FreeFileΑνοίξτε το strFile για έξοδο ως #FileNumberΓια κάθε σειρά σε rng. ΣειρέςΓια κάθε κελί στη σειρά. ΚελιάΑν κελί.Στήλη = σειρά.Κελιά. Μετρήστε Στη συνέχειαΕκτύπωση #Αριθμός αρχείου, κελίΑλλούΕκτύπωση #FileNumber, cell,Τέλος εανΕπόμενο κελίΕπόμενη σειράΚλείσιμο #FileNumberΤέλος υπο |
Η έξοδος στο αρχείο "Print_Output.txt":
| 12345 | Όνομα Επώνυμο Ηλικία ΦύλοRobert Stepp 20 ΆντραςJennifer Mariscal 33 ΓυναίκαDavid Romig 35 ΑρσενικόCarmel Ingram 26 Γυναίκα |
