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