Преглед садржаја
Напишите опис
Записује податке у секвенцијалну датотеку.
Напишите синтаксу
1 | Пишите #Број датотеке, [ОутпутЛист] |
Наредба Врите садржи 2 аргумента:
Број датотеке: Било који важећи број датотеке.
ОутпутЛист: Опционо. Један или више нумеричких израза раздвојених зарезима или низова за писање у датотеку.
Примери Екцел ВБА функције писања
Име | Презиме | Старост | Пол |
Роберт | Степп | 20 | Мушки |
Јеннифер | Марисцал | 33 | Женско |
Давид | Ромиг | 35 | Мушки |
Цармел | Инграм | 26 | Женско |
За излаз Ранге (“А2: Д5”) на листу попут горње слике у датотеку, можете користити следећи код.
12345678910111213141516171819202122232425262728293031323334353637 | Суб ВритеРангеТоФиле (стрФиле као низ, рнг као опсег)Затамни ред као опсег, ћелија као опсегДим ФилеНумбер Ас ИнтегерФилеНумбер = ФрееФилеОтворите стрФиле за излаз као #ФилеНумберЗа сваки ред У рнг.РовсЗа сваку ћелију у реду.ћелијеАко је целл.Цолумн = ров.Целлс.Цоунт ЗатимНапишите #Број датотеке, ћелијаИначеНапишите #Број датотеке, ћелија,Крај АкоСледећа ћелијаСледећи редЗатворите #Број датотекеЕнд СубПримјер под_записивања ()Дим стрФолдер Ас СтрингДим стрФиле Ас СтрингЗатамните длгФолдер као ФилеДиалогДим рнг Ас РангеПостави длгФолдер = Апплицатион.ФилеДиалог (мсоФилеДиалогФолдерПицкер)Ако је длгФолдер.Схов = ТачнострФолдер = длгФолдер.СелецтедИтемс (1)ИначеЕкит СубКрај АкоПостави рнг = опсег ("А1: Д5")стрФиле = "Врите_Оутпут.ткт"ВритеРангеТоФиле стрФолдер & "\" & стрФиле, рнгЕнд Суб |
Излаз у датотеку „Врите_Оутпут.ткт“:
12345 | „Име“, „Презиме“, „Године“, „Пол“"Роберт", "Степп", "20", "Мале""Јеннифер", "Марисцал", "33", "Фемале""Давид", "Ромиг", "35", "Мале""Кармел", "Инграм", "26", "Женски" |