Lang L: none (table-of-contents)
Kirjutage kirjeldus
Kirjutab andmed järjestikku faili.
Kirjutage süntaks
1 | Kirjutage #FileNumber, [OutputList] |
Lause Write sisaldab 2 argumenti:
Faili number: Iga kehtiv failinumber.
Väljundloend: Valikuline. Üks või mitu komaga eraldatud numbrilist avaldist või stringiväljendit faili kirjutamiseks.
Excel VBA kirjutamisfunktsiooni näited
Eesnimi | Perekonnanimi | Vanus | Sugu |
Robert | Stepp | 20 | Mees |
Jennifer | Mariscal | 33 | Naine |
David | Romig | 35 | Mees |
Karmel | Ingram | 26 | Naine |
Vahemiku („A2: D5”) väljastamiseks sellisele lehele nagu ülaltoodud pilt failile saate kasutada järgmist koodi.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile kui string, rng kui vahemik)Dim rida kui vahemik, lahter kui vahemikHämarda failinumber täisarvunaFileNumber = FreeFileAvage strFile väljundiks #FileNumberIga rea jaoks rng. RidadIga lahtri jaoks reas. LahtridKui lahter. Veerg = rida. Lahtrid. Loendage seejärelKirjutage lahtrisse #FailiNumberMuiduKirjutage #FileNumber, lahter,Lõpp KuiJärgmine lahterJärgmine ridaSulgege #FileNumberEnd SubSub Write_Example ()Dim strFolder stringinaDim strFile kui stringDim dlgFolder kui FileDialogDim rng As RangeMäära dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Kui dlgFolder.Show = True SiisstrFolder = dlgFolder.SelectedItems (1)MuiduVälju subLõpp KuiMäära rng = vahemik ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
Väljund failile „Write_Output.txt”:
12345 | "Eesnimi", "Perekonnanimi", "Vanus", "Sugu""Robert", "Stepp", "20", "mees""Jennifer", "Mariscal", "33", "naine""David", "Romig", "35", "mees""Carmel", "Ingram", "26", "Naine" |