Napíšte popis
Zapisuje údaje do sekvenčného súboru.
Napíšte syntax
1 | Napíšte #FileNumber, [OutputList] |
Príkaz Write obsahuje 2 argumenty:
Číslo zložky: Akékoľvek platné číslo súboru.
OutputList: Voliteľné. Jeden alebo viac numerických výrazov alebo reťazcových výrazov oddelených čiarkou na zápis do súboru.
Príklady funkcie zápisu Excel VBA
Krstné meno | Priezvisko | Vek | rod |
Robert | Stepp | 20 | Muž |
Jennifer | Mariscal | 33 | Žena |
Dávid | Romig | 35 | Muž |
Karmel | Ingram | 26 | Žena |
Na výstup rozsahu („A2: D5“) v hárku, ako je obrázok vyššie, do súboru môžete použiť nasledujúci kód.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile ako reťazec, rng ako rozsah)Stmaviť riadok ako rozsah, bunka ako rozsahDim FileNumber As IntegerČíslo súboru = Voľný súborOtvorte strFile pre výstup ako #FileNumberPre každý riadok v rng.RowsPre každú bunku v riadku. BunkyAk cell.Column = row.Cells.Count ThenNapíšte #FileNumber, bunkaInakNapíšte #FileNumber, bunka,Koniec AkĎalšia bunkaĎalší riadokZatvorte #FileNumberKoniec podPodpis zápisu_Priklad ()Dim strFolder ako reťazecDim strFile ako reťazecDim dlgFolder as FileDialogDim rng As RangeNastaviť dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ak dlgFolder.Show = True PotomstrFolder = dlgFolder.SelectedItems (1)InakUkončiť subKoniec AkNastaviť rng = rozsah ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngKoniec pod |
Výstup do súboru „Write_Output.txt“:
12345 | „Krstné meno“, „Priezvisko“, „Vek“, „Pohlavie“„Robert“, „Stepp“, „20“, „Muž“„Jennifer“, „Mariscal“, „33“, „žena“„David“, „Romig“, „35“, „Muž“„Carmel“, „Ingram“, „26“, „Žena“ |