Πίνακας περιεχομένων
Γράψτε Περιγραφή
Γράφει δεδομένα σε ένα διαδοχικό αρχείο.
Γράψτε σύνταξη
1 | Γράφω #FileNumber, [OutputList] |
Η πρόταση Γράψτε περιέχει 2 επιχειρήματα:
Αριθμός φακέλου: Οποιοσδήποτε έγκυρος αριθμός αρχείου.
OutputList: Προαιρετικός. Μία ή περισσότερες αριθμητικές εκφράσεις ή εκφράσεις συμβολοσειρών που ορίζονται με κόμματα για εγγραφή σε ένα αρχείο.
Παραδείγματα συνάρτησης εγγραφής Excel VBA
Ονομα | Επίθετο | Ηλικία | Γένος |
Ροβέρτος | Στεπ | 20 | Αρσενικός |
Τζένιφερ | Mariscal | 33 | Θηλυκός |
Δαβίδ | Ρόμιγκ | 35 | Αρσενικός |
Καρμέλ | Ingram | 26 | Θηλυκός |
Για να εξάγετε το εύρος ("A2: D5") σε ένα φύλλο όπως η παραπάνω εικόνα σε ένα αρχείο, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile As String, rng As Range)Χαμηλή σειρά ως εύρος, κελί ως εύροςDim FileNumber As IntegerFileNumber = FreeFileΑνοίξτε το strFile για έξοδο ως #FileNumberΓια κάθε σειρά σε rng. ΣειρέςΓια κάθε κελί στη σειρά. ΚελιάΑν κελί.Στήλη = σειρά.Κελιά. Μετρήστε Στη συνέχειαΓράψτε #Αριθμός αρχείου, κελίΑλλούΓράψτε #FileNumber, cell,Τέλος εανΕπόμενο κελίΕπόμενη σειράΚλείσιμο #FileNumberΤέλος υποSub Write_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 = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngΤέλος υπο |
Η έξοδος στο αρχείο "Write_Output.txt":
12345 | "Όνομα", "Επώνυμο", "Ηλικία", "Φύλο""Robert", "Stepp", "20", "Male""Jennifer", "Mariscal", "33", "Female""David", "Romig", "35", "Male""Carmel", "Ingram", "26", "Female" |