Table des matières
Imprimer la description
Écrit les données au format d'affichage dans un fichier séquentiel.
Syntaxe d'impression
| 1 | Imprimer #FileNumber, [OutputList] |
L'instruction Print contient 2 arguments :
Numéro de dossier: Tout numéro de dossier valide.
Liste de sortie : Optionnel. Une ou plusieurs expressions numériques délimitées par des virgules ou expressions de chaîne à écrire dans un fichier.
Exemples de fonction d'impression Excel VBA
| Prénom | Nom de famille | Âge | Genre |
| Robert | Stepp | 20 | Homme |
| Jennifer | Mariscal | 33 | Femelle |
| David | Romig | 35 | Homme |
| Carmel | Ingram | 26 | Femelle |
Pour sortir Range ("A1:D5") dans une feuille comme l'image ci-dessus dans un fichier, vous pouvez utiliser le code suivant.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example()Dim strFolder en tant que chaîneDim strFile As StringDim dlgFolder As FileDialogDim rng As RangeDéfinir dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Si dlgFolder.Show = True AlorsstrFolder = dlgFolder.SelectedItems(1)AutreQuitter le sousFin siDéfinir rng = Range("A1:D5")'ImprimerstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngFin du sous-marinSub PrintRangeToFile (strFile As String, rng As Range)Dim ligne As Range, cellule As RangeDim FileNumber en tant qu'entierNuméro de fichier = Fichier libreOuvrir strFile pour la sortie en tant que #FileNumberPour chaque ligne dans rng.RowsPour chaque cellule de la ligne.CellulesSi cell.Column = row.Cells.Count ThenImprimer #FileNumber, celluleAutreImprimer #FileNumber, cellule,Fin siCellule suivanteLigne suivanteFermer #FileNumberFin du sous-marin |
La sortie vers le fichier "Print_Output.txt":
| 12345 | Prénom Nom Âge SexeRobert Stepp 20 HommeJennifer Mariscal 33 FemmeDavid Romig 35 HommeCarmel Ingram 26 Femme |
