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