Napište popis
Zapisuje data do sekvenčního souboru.
Napište syntaxi
| 1 | Napsat #FileNumber, [OutputList] |
Příkaz Write obsahuje 2 argumenty:
Číslo souboru: Libovolné platné číslo souboru.
Výstupní seznam: Volitelný. Jeden nebo více číselných výrazů oddělených čárkami nebo řetězcových výrazů pro zápis do souboru.
Příklady funkce zápisu Excel VBA
| Jméno | Příjmení | Stáří | Rod |
| Robert | Stepp | 20 | mužský |
| Jennifer | Mariscal | 33 | ženský |
| David | Romig | 35 | mužský |
| Karmel | Ingram | 26 | ženský |
K výstupu rozsahu („A2: D5“) v listu, jako je výše uvedený obrázek, do souboru můžete použít následující kód.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile jako řetězec, rng jako rozsah)Dim řádek jako rozsah, buňka jako rozsahDim FileNumber As IntegerFileNumber = FreeFileOtevřete strFile pro výstup jako #FileNumberPro každý řádek v rng.RowsPro každou buňku v řádku.BunkyPokud cell.Column = row.Cells.Count ThenNapište #FileNumber, buňkaJinýNapište #FileNumber, buňka,Konec IfDalší buňkaDalší řadaZavřít #FileNumberEnd SubSub Write_Example ()Dim strFolder jako řetězecDim strFile jako řetězecDim dlgFolder As FileDialogDim rng As RangeNastavit dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)If dlgFolder.Show = True ThenstrFolder = dlgFolder.SelectedItems (1)JinýUkončit dílčíKonec IfNastavit rng = rozsah ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
Výstup do souboru „Write_Output.txt“:
| 12345 | „Křestní jméno“, „Příjmení“, „Věk“, „Pohlaví“„Robert“, „Stepp“, „20“, „Muž“„Jennifer“, „Mariscal“, „33“, „Žena“„David“, „Romig“, „35“, „Muž“„Carmel“, „Ingram“, „26“, „Žena“ |
