На рачунарима, датотека дневника је датотека која бележи догађаје који се дешавају у оперативном систему или покретању другог софтвера, или поруке између различитих корисника комуникационог софтвера. Записивање је чин вођења дневника. У најједноставнијем случају, поруке се пишу у једну датотеку дневника.
Размислите о сценарију, апликација бележи податке корисника у датотеку дневника који приступају апликацији.
Датотеке дневника су корисне у различитим ситуацијама, посебно за програмере. Датотеке дневника су датотеке обичног текста које могу да складиште привремене или трајније информације. Не треба вам много кода за креирање датотеке дневника. У овом чланку ћемо се фокусирати на креирање аутоматских датотека дневника у одређеној фасцикли.
Питање: Како могу да направим датотеку бележнице која садржи тренутни датум, време и корисничко име кад год се датотека отвори?
Следи снимак Екцел радне свеске која садржи финансијске информације:
У овом примеру, резултат ће бити у облику текстуалне датотеке. Бележница ће садржати датум, време и друге детаље; отприлике овако:
Да бисмо креирали датотеке евиденције, морамо да следимо доле наведене кораке за покретање ВБ уређивача:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
- Притисните Уметни па Модул
- Ово ће створити нови модул
- Унесите следећи код у Модул
Суб ЛогИнформатион (ЛогМессаге Ас Стринг) Цонст ЛогФилеНаме Ас Стринг = "Д: \ ФОЛДЕРНАМЕ \ ТЕКСТФИЛЕ.ЛОГ" Дим ФилеНум Ас Интегер ФилеНум = ФрееФиле 'следећи број датотеке Отвори ЛогФилеНаме за додавање као #ФилеНум' ствара датотеку ако не постоји Одштампај #ФилеНум, ЛогМессаге 'упиши информације на крају текстуалне датотеке Затвори #ФилеНум' затвори датотеку Енд Суб
Публиц Суб ДисплаиЛастЛогИнформатион () Цонст ЛогФилеНаме Ас Стринг = "Д: \ ФОЛДЕРНАМЕ \ ТЕКСТФИЛЕ.ЛОГ" Дим ФилеНум Ас Интегер, тЛине Ас Стринг ФилеНум = ФрееФиле 'следећи број датотеке Отвори ЛогФилеНаме За приступ улазу Прочитајте дељено као #ф' отворите датотеку за читање До Вхиле Нот ЕОФ (ФилеНум) Лине Лине Инпут #ФилеНум, тЛине 'реад а лине фром тхе тект филе Лооп' док се не прочита последњи ред Цлосе #ФилеНум 'затвори датотеку МсгБок тЛине, вбИнформатион, "Ласт лог информатион:" Енд Суб
Суб ДелетеЛогФиле (ФуллФилеНаме Ас Стринг) Он Еррор Ресуме Нект 'игнориши могуће грешке Килл ФуллФилеНаме' обриши датотеку ако постоји и могуће је Он Еррор ГоТо 0 'бреак он еррорс Енд Суб
Копирајте следећи код у модул ТхисВоркбоок
Привате Суб Воркбоок_Опен () ЛогИнформатион ТхисВоркбоок.Наме & "отворио" & _ Апплицатион.УсерНаме & "" & Формат (Нов, "ииии-мм-дд хх: мм") Енд Суб
- Сада је ВБА код спреман за рад; следећи пут када отворимо екцел радну свеску датум и време ће бити сачувани у бележници; погледајте слику испод:
Макро неће пребрисати податке.
Закључак: Макро ће се покретати сваки пут када се радна свеска отвори на наведеној путањи и фасцикли.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште