У наставку ћемо погледати програм у Екцел ВБА то чита податке из текстуалне датотеке. Ова датотека садржи неке географске координате које желимо увести у Екцел.
Ситуација:
1. Прво преузмите текстуалну датотеку и додајте је у „Ц: \ тест \“
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
2. Декларишемо четири променљиве. миФиле типа Стринг, текст типа Стринг, текстуални ред типа Стринг, посЛат типа Интегер и посЛонг типа Интегер.
Дим миФиле Ас Стринг, тект Ас Стринг, тектлине Ас Стринг, посЛат Ас Интегер, посЛонг Ас Интегер
3. Морамо да иницијализујемо променљиву миФиле са пуном путањом и именом датотеке.
миФиле = "Ц: \ тест \ географске координате.ткт"
или
користите методу ГетОпенФиленаме објекта Апплицатион за приказ стандардног оквира за дијалог Опен и изаберите датотеку (без отварања датотеке).
миФиле = Апплицатион.ГетОпенФиленаме ()
Напомена: празан део између заграда значи да Екцел ВБА не дајемо ништа као улаз. Поставите курсор на ГетОпенФиленаме у уређивачу Висуал Басиц -а и кликните Ф1 за помоћ у аргументима.
4. Додајте следећи кодни ред:
Отворите миФиле за унос као #1
Напомена: ова изјава дозвољава читање датотеке. Током остатка нашег кода можемо да називамо датотеку #1.
5. Додајте следеће редове кода:
Уради до ЕОФ (1)
Лине Инпут #1, тектлине
текст = текст & текстуални ред
Лооп
Напомена: до краја датотеке (ЕОФ), Екцел ВБА чита једну линију из датотеке и додељује је текстуалној линији. Оператор & користимо за спајање (спајање) свих појединачних редова и складиштење у променљиви текст.
6. Затворите датотеку.
Затвори #1
7. Затим тражимо положај речи географска ширина и дужина у тексту променљиве. Користимо функцију Инстр.
посЛат = ИнСтр (текст, "географска ширина")
посЛонг = ИнСтр (текст, "географска дужина")
8. Користимо ове позиције и функцију Мид да извучемо координате из текста променљиве и упишемо координате у ћелију А1 и ћелију А2.
Опсег ("А1"). Вредност = средина (текст, посЛат + 10, 5)
Опсег ("А2"). Вредност = средина (текст, посЛонг + 11, 5)
9. Тестирајте програм.
Резултат:
