Chtěli byste mít raději kontrolu nad uživateli, kteří importují soubory, místo toho, aby k tomu museli používat funkce Excelu? Potřebujete větší kontrolu nad svými importy pro ověření nebo úpravy při importu? Existuje několik způsobů, jak toho dosáhnout, a stejně mnoho variant požadavků, ale zde jsou některé ze stavebních kamenů, ze kterých je třeba začít.
1. Vložte následující kód do modulu a poté jej spusťte
"Definujte proměnné." 'Otevřete společný dialog a získejte název souboru „Nebylo kliknuto na zaškrtávací políčko 'Importovat soubor End SubPublic Sub CustomImport ()
Dim ImportFile jako řetězec
Dim ImportTitle jako řetězec
Dim TabName jako řetězec
Dim ControlFile jako řetězec
ImportFile = Application.GetOpenFilename (_
„Soubory aplikace Excel, *.xls, všechny soubory, *. *“)
ImportTitle = _
Střední (ImportFile, InStrRev (ImportFile, "\") + 1)
If ImportFile = "False" Then
Ukončit dílčí
Konec If
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Sešity. Otevřete název souboru: = ImportFile
ActiveSheet.Name = TabName
Tabulky (TabName). Kopírovat _
Před: = Sešity (ControlFile). Listy (1)
Windows (ImportTitle). Aktivujte
ActiveWorkbook.Close SaveChanges: = False
Windows (ControlFile). Aktivujte
Sidenote: Toto funguje dobře pro soubory *.xls, *.xlsx, *.xlsm, *.csv a *.txt. Před End Sub můžete přidat nebo zavolat kód a upravit importovaná data, než se jich uživatel dotkne.
