Descriere tipărire
Scrie date formatate pe afișaj într-un fișier secvențial.
Sintaxă de tipărire
| 1 | Imprimare #FileNumber, [OutputList] |
Declarația Print conține 2 argumente:
Numărul fișierului: Orice număr de fișier valid.
Lista de ieșire: Opțional. Una sau mai multe expresii numerice delimitate prin virgule sau expresii șir pentru a scrie într-un fișier.
Exemple de funcții de imprimare Excel VBA
| Nume | Nume | Vârstă | Gen |
| Robert | Stepp | 20 | Masculin |
| Jennifer | Mariscal | 33 | Femeie |
| David | Romig | 35 | Masculin |
| Carmel | Ingram | 26 | Femeie |
Pentru a transmite Range („A1: D5”) într-o foaie ca imaginea de mai sus într-un fișier, puteți utiliza următorul cod.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder As StringDim strFile As StringDim dlgFolder Ca FileDialogDim rng As RangeSetați dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Dacă dlgFolder.Show = True AtuncistrFolder = dlgFolder.SelectedItems (1)AltfelIeșiți din SubEnd IfSetați rng = Range ("A1: D5")'ImprimarestrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngSfârșitul SubSub PrintRangeToFile (strFile As String, rng As Range)Reduceți rândul ca interval, celula ca intervalDim Număr fișier ca întregFileNumber = FreeFileDeschideți strFile pentru ieșire ca #FileNumberPentru fiecare rând În rng.RowsPentru fiecare celulă din rând.CeluleDacă cell.Column = row.Cells.Count AtunciImprimați #FileNumber, celulăAltfelImprimați # Număr fișier, celulă,End IfUrmătoarea celulăUrmătorul rândÎnchideți #FileNumberSfârșitul Sub |
Ieșirea în fișierul „Print_Output.txt”:
| 12345 | Prenume Nume Vârstă SexRobert Stepp 20 bărbatJennifer Mariscal 33 FemeieDavid Romig 35 MasculinCarmel Ingram 26 Feminin |
