Table des matières
Écrire la description
Écrit les données dans un fichier séquentiel.
Écrire la syntaxe
1 | Écrivez #FileNumber, [OutputList] |
L'instruction Write 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'écriture 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 ("A2:D5") dans une feuille comme l'image ci-dessus dans un fichier, vous pouvez utiliser le code suivant.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (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 ThenÉcrivez #FileNumber, celluleAutreÉcrivez #FileNumber, cellule,Fin siCellule suivanteLigne suivanteFermer #FileNumberFin du sous-marinSous Write_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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngFin du sous-marin |
La sortie dans le fichier "Write_Output.txt":
12345 | "Prénom", "Nom de famille", "Âge", "Sexe""Robert","Stepp","20","Homme""Jennifer","Mariscal","33","Femme""David","Romig","35","Homme""Carmel","Ingram","26","Femme" |