Chcete, aby mali používatelia nad importovaním súborov kontrolu, namiesto toho, aby na to používali funkcie Excelu? Potrebujete väčšiu kontrolu nad svojimi importmi na overenie alebo úpravu pri importe? Existuje niekoľko spôsobov, ako to urobiť, a rovnako veľa variácií požiadaviek, ale tu sú niektoré zo stavebných kameňov, z ktorých môžete začať.
1. Vložte nasledujúci kód do modulu a spustite ho
„Definujte premenné 'Otvorte bežný dialóg a získajte názov súboru 'Na zrušenie kliknutia nebolo kliknuté 'Importovať súbor Koniec podVerejný čiastkový vlastný import ()
Dim ImportFile as String
Dim ImportTitle as String
Dim TabName ako reťazec
Dim ControlFile ako reťazec
ImportFile = Application.GetOpenFilename (_
„Súbory programu Excel, *.xls, všetky súbory, *. *“)
ImportTitle = _
Stredná (ImportFile, InStrRev (ImportFile, "\") + 1)
Ak ImportFile = "False" Potom
Ukončiť sub
Koniec Ak
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Zošity. Otvorte názov súboru: = ImportFile
ActiveSheet.Name = TabName
Tabuľky (TabName). Kopírovať _
Predtým: = Zošity (Kontrolný súbor). Listy (1)
Windows (ImportTitle). Aktivujte
ActiveWorkbook.Close SaveChanges: = False
Windows (ControlFile). Aktivujte
Sidenote: Toto funguje dobre pre súbory *.xls, *.xlsx, *.xlsm, *.csv a *.txt. Môžete pridať alebo zavolať kód pred End Sub a zmeniť importované údaje skôr, ako sa ich používateľ bude môcť dotknúť.