VBA - Vytvořte si vlastní importní rozhraní

Obsah

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

Public Sub CustomImport ()

"Definujte proměnné."
Dim ImportFile jako řetězec
Dim ImportTitle jako řetězec
Dim TabName jako řetězec
Dim ControlFile jako řetězec

'Otevřete společný dialog a získejte název souboru
ImportFile = Application.GetOpenFilename (_
„Soubory aplikace Excel, *.xls, všechny soubory, *. *“)
ImportTitle = _
Střední (ImportFile, InStrRev (ImportFile, "\") + 1)

„Nebylo kliknuto na zaškrtávací políčko
If ImportFile = "False" Then
Ukončit dílčí
Konec If

'Importovat soubor
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

End Sub
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.

wave wave wave wave wave