✅ ВБА - Направите прилагођени интерфејс за увоз

Преглед садржаја

Да ли бисте више волели да имате контролу над корисницима који увозе датотеке, уместо да им дозволите да користе Екцел функције за то? Да ли вам је потребна већа контрола над вашим увозом за валидацију или модификацију увоза? Постоји више начина да се то уради и исто толико варијација захтева, али ево неких од градивних елемената за почетак.

1. Ставите следећи код у модул, а затим га покрените

Јавни под прилагођени увоз ()

'Дефинишите променљиве Дим ИмпортФиле Ас Стринг Дим ИмпортТитле Ас Стринг Дим ТабНаме Ас Стринг Дим ЦонтролФиле Ас Стринг


'Отворите заједнички дијалог и добијте назив датотеке
ИмпортФиле = Апплицатион.ГетОпенФиленаме (_
"Екцел датотеке, *.клс, све датотеке, *. *")
ИмпортТитле = _
Средњи (ИмпортФиле, ИнСтрРев (ИмпортФиле, "\") + 1)
„Отказ чека није кликнут
Ако је ИмпортФиле = "Фалсе" Тада
Екит Суб
Крај Ако
'Увези датотеку
ТабНаме = "МиЦустомИмпорт"
ЦонтролФиле = АцтивеВоркбоок.Наме
Воркбоокс.Опен Филенаме: = ИмпортФиле
АцтивеСхеет.Наме = ТабНаме
Табеле (ТабНаме). Копирај _
Пре: = Радне свеске (ЦонтролФиле). Табеле (1)
Виндовс (ИмпортТитле). Активирајте
АцтивеВоркбоок.Цлосе СавеЦхангес: = Фалсе
Виндовс (ЦонтролФиле) .Активирајте

Енд Суб
Сиденоте: Ово добро функционише за датотеке *.клс, *.клск, *.клсм, *.цсв и *.ткт. Можете додати или позвати код пре Енд Суб -а да бисте изменили увезене податке пре него што их корисник додирне.