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