Отпечатайте описание
Записва форматирани на дисплея данни в последователен файл.
Синтаксис за печат
| 1 | Печат #FileNumber, [OutputList] |
Изявлението Print съдържа 2 аргумента:
FileNumber: Всеки валиден номер на файл.
OutputList: По избор. Един или повече числови изрази, разделени със запетая или низови изрази за запис във файл.
Примери за Excel VBA функция за печат
| Първо име | Фамилия | Възраст | Пол |
| Робърт | Степ | 20 | Мъжки |
| Дженифър | Марискал | 33 | Женски пол |
| Дейвид | Ромиг | 35 | Мъжки |
| Кармел | Инграм | 26 | Женски пол |
За да изведете Range (“A1: D5”) в лист като горната картина във файл, можете да използвате следния код.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_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 = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile As String, rng As Range)Затъмнете реда като диапазон, клетката като диапазонDim FileNumber As IntegerFileNumber = FreeFileОтворете strFile за извеждане като #FileNumberЗа всеки ред В rng.RowsЗа всяка клетка в ред. КлеткиАко cell.Column = row.Cells.Count ТогаваПечат #номер на файл, клеткаИначеПечат #номер на файл, клетка,Край АкоСледващата клеткаСледващият редЗатворете #FileNumberEnd Sub |
Изходът към файла „Print_Output.txt“:
| 12345 | Име Фамилия Възраст ПолРобърт Степ 20 МъжДженифър Марискал 33 жениDavid Romig 35 МъжКармел Инграм 26 Жена |
