Написать описание
Записывает данные в последовательный файл.
Написать синтаксис
| 1 | Напишите #FileNumber, [OutputList] |
Оператор Write содержит 2 аргумента:
Номер дела: Любой допустимый номер файла.
OutputList: По желанию. Одно или несколько числовых выражений с разделителями-запятыми или строковых выражений для записи в файл.
Примеры функции записи Excel VBA
| Имя | Фамилия | Возраст | Пол |
| Роберт | Степп | 20 | Мужчина |
| Дженнифер | Марискаль | 33 | женский |
| Дэйвид | Romig | 35 | Мужчина |
| Кармель | Инграм | 26 | женский |
Чтобы вывести диапазон («A2: D5») на листе, как на рисунке выше, в файл, вы можете использовать следующий код.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile как строка, rng как диапазон)Затемнить строку как диапазон, ячейку как диапазонDim FileNumber как целое числоFileNumber = FreeFileОткройте файл strFile для вывода как #FileNumberДля каждой строки In rng.RowsДля каждой ячейки в строке.Если cell.Column = row.Cells.Count ТогдаНапишите #FileNumber, cellЕщеНапишите #FileNumber, cell,Конец, еслиСледующая ячейкаСледующая строкаЗакройте #FileNumberКонец подпискиSub Write_Example ()Dim strFolder как строкаDim strFile As StringDim dlgFolder как FileDialogDim rng As RangeУстановите dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Если dlgFolder.Show = True, тоstrFolder = dlgFolder.SelectedItems (1)ЕщеВыйти из подводной лодкиКонец, еслиУстановить rng = Range ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngКонец подписки |
Вывод в файл «Write_Output.txt»:
| 12345 | «Имя», «Фамилия», «Возраст», «Пол»«Роберт», «Степп», «20», «Самец»«Дженнифер», «Марискаль», «33», «Женский»«Давид», «Ромиг», «35», «Самец»«Кармель», «Ингрэм», «26», «Женский» |
