✅ VBA - sukurkite pasirinktinę importo sąsają

Turinys

Ar norėtumėte kontroliuoti failus importuojančius vartotojus, o ne leisti jiems naudoti „Excel“ funkcijas? Ar jums reikia daugiau kontroliuoti importuojamą produktą, kad jis būtų patvirtintas ar pakeistas importuojant? Yra daug būdų tai padaryti ir tiek pat reikalavimų, tačiau čia yra keletas elementų, nuo kurių reikia pradėti.

1. Įdėkite šį kodą į modulį ir paleiskite jį

Viešas antrinis CustomImport ()

„Apibrėžkite kintamuosius Dim ImportFile kaip eilutė „Dim ImportTitle“ kaip eilutė „Dim Tab“ pavadinimas kaip eilutė „Dim ControlFile“ kaip eilutė


„Atidarykite bendrą dialogo langą ir gaukite failo pavadinimą
ImportFile = Application.GetOpenFilename (_
„„ Excel “failai, *.xls, visi failai, *. *“)
ImportTitle = _
Vidutinis (ImportFile, InStrRev (ImportFile, "\") + 1)
„Čekio atšaukimas nebuvo spustelėtas
Jei ImportFile = "False" Tada
Išeiti iš Sub
Pabaiga Jei
„Importuoti failą
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Darbaknygės. Atidarykite Failo pavadinimas: = ImportFile
ActiveSheet.Name = Skirtuko pavadinimas
Skaičiuoklės (skirtuko pavadinimas). Kopijuoti _
Prieš: = Darbaknygės („ControlFile“). Lakštai (1)
„Windows“ („ImportTitle“). Aktyvinti
ActiveWorkbook.Clos SaveChanges: = Netiesa
„Windows“ („ControlFile“). Aktyvinti

Pabaiga Sub
Papildoma pastaba: tai gerai tinka *.xls, *.xlsx, *.xlsm, *.csv ir *.txt failams. Galite pridėti arba paskambinti kodu prieš „End Sub“, kad pakeistumėte importuotus duomenis, kol vartotojas gali juos paliesti.