Написати опис
Записує дані у послідовний файл.
Напишіть синтаксис
| 1 | Пишіть #FileNumber, [OutputList] |
Оператор Write містить 2 аргументи:
Номер файлу: Будь -який дійсний номер файлу.
OutputList: Необов’язково. Один або кілька числових виразів, розділених комами, або рядкових виразів для запису у файл.
Приклади функцій запису Excel VBA
| Ім'я | Прізвище | Вік | Стать |
| Роберт | Степп | 20 | Чоловічий |
| Дженніфер | Маріскаль | 33 | Жіночий |
| Девід | Роміг | 35 | Чоловічий |
| Кармель | Інграм | 26 | Жіночий |
Щоб вивести діапазон (“A2: D5”) на аркуші, як на малюнку вище, у файл, можна скористатися наступним кодом.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile як рядок, rng як діапазон)Затемнити рядок як діапазон, клітинку як діапазонDim FileNumber As IntegerFileNumber = FreeFileВідкрийте strFile для виведення як #номер файлуДля кожного рядка в rng.RowsДля кожної клітинки в рядкуЯкщо cell.Column = row.Cells.Count ТодіНапишіть #Номер файлу, клітинкуІнакшеНапишіть #Номер файлу, клітинку,Закінчити ЯкщоНаступна клітинаНаступний рядЗакрити #Номер файлуEnd SubSub Write_Example ()Затемнити strFolder As StringDim strFile As StringЗатемнити dlgFolder як FileDialogЗменшити діапазон як діапазонВстановити dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Якщо dlgFolder.Show = True ТодіstrFolder = dlgFolder.SelectedItems (1)ІнакшеВийти з підпЗакінчити ЯкщоВстановити rng = Діапазон ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
Вихідні дані у файл “Write_Output.txt”:
| 12345 | "Ім'я", "Прізвище", "Вік", "Стать""Роберт", "Степ", "20", "Чоловік""Дженніфер", "Маріскаль", "33", "Жінка""Девід", "Роміг", "35", "Чоловік""Кармель", "Інграм", "26", "Жінка" |
