Scrieți descrierea
Scrie date într-un fișier secvențial.
Scrieți sintaxă
1 | Scrie #FileNumber, [OutputList] |
Instrucțiunea Write 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 scriere 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 („A2: D5”) într-o foaie ca imaginea de mai sus într-un fișier, puteți utiliza următorul cod.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (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 AtunciScrieți #FileNumber, celulăAltfelScrieți #FileNumber, celulă,End IfUrmătoarea celulăUrmătorul rândÎnchideți #FileNumberSfârșitul SubSub Scriere_Exemplu ()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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngSfârșitul Sub |
Ieșirea în fișierul „Write_Output.txt”:
12345 | „Prenume”, „Nume”, „Vârstă”, „Sex”„Robert”, „Stepp”, „20”, „Bărbat”„Jennifer”, „Mariscal”, „33”, „Femeie”„David”, „Romig”, „35”, „Bărbat”„Carmel”, „Ingram”, „26”, „Femeie” |