Распечатать Описание
Записывает данные в формате отображения в последовательный файл.
Синтаксис печати
| 1 | Распечатать #FileNumber, [OutputList] |
Оператор Print содержит 2 аргумента:
Номер дела: Любой допустимый номер файла.
OutputList: По желанию. Одно или несколько числовых выражений с разделителями-запятыми или строковых выражений для записи в файл.
Примеры функции печати Excel VBA
| Имя | Фамилия | Возраст | Пол |
| Роберт | Степп | 20 | Мужчина |
| Дженнифер | Марискаль | 33 | женский |
| Дэйвид | Romig | 35 | Мужчина |
| Кармель | Инграм | 26 | женский |
Чтобы вывести диапазон («A1: D5») на листе, как на рисунке выше, в файл, вы можете использовать следующий код.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_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 = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngКонец подпискиSub PrintRangeToFile (strFile как строка, rng как диапазон)Затемнить строку как диапазон, ячейку как диапазонDim FileNumber как целое числоFileNumber = FreeFileОткройте файл strFile для вывода как #FileNumberДля каждой строки In rng.RowsДля каждой ячейки в строке.Если cell.Column = row.Cells.Count ТогдаПечать #FileNumber, cellЕщеРаспечатать #FileNumber, cell,Конец, еслиСледующая ячейкаСледующая строкаЗакройте #FileNumberКонец подписки |
Вывод в файл «Print_Output.txt»:
| 12345 | Имя Фамилия Возраст ПолРоберт Степп 20 МужскойДженнифер Марискаль 33 ЖенщинаДэвид Ромиг 35 МужчинаКармел Инграм 26, сука |
