Vai vēlaties, lai jūs kontrolētu failus importējošos lietotājus, nevis ļautu viņiem izmantot Excel funkcijas? Vai jums ir nepieciešama lielāka kontrole pār importētajiem produktiem, lai tos pārbaudītu vai mainītu? Ir vairāki veidi, kā to izdarīt, un tikpat daudz prasību variāciju, taču šeit ir daži pamatelementi, no kuriem sākt.
1. Ievietojiet šādu kodu modulī un palaidiet to
'Definējiet mainīgos "Atveriet parasto dialoglodziņu un iegūstiet faila nosaukumu 'Pārbaudīt atcelšanu netika noklikšķināts 'Importēt failu Beigu apakšPubliskais apakšpielāgotā importēšana ()
Dim ImportFile kā virkne
Dim ImportTitle kā virkne
Dim cilnes nosaukums kā virkne
Dim ControlFile kā virkne
ImportFile = Application.GetOpenFilename (_
"Excel faili, *.xls, visi faili, *. *")
ImportTitle = _
Mid (ImportFile, InStrRev (ImportFile, "\") + 1)
Ja ImportFile = "False" Tad
Iziet no apakšnodaļas
Beigas Ja
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Darbgrāmatas. Atvērt Faila nosaukums: = ImportFile
ActiveSheet.Name = Cilnes nosaukums
Izklājlapas (TabName). Kopēt _
Pirms: = darbgrāmatas (ControlFile). Lapas (1)
Windows (ImportTitle). Aktivizēt
ActiveWorkbook.Close SaveChanges: = Nepareizi
Windows (ControlFile). Aktivizēt
Sidenote: tas labi darbojas failiem *.xls, *.xlsx, *.xlsm, *.csv un *.txt. Jūs varat pievienot vai piezvanīt kodam pirms beigu apakšdaļas, lai mainītu importētos datus, pirms lietotājs var tiem pieskarties.