Wilt u liever controle hebben over gebruikers die bestanden importeren, in plaats van dat ze de Excel-functies gebruiken om dit te doen? Heeft u meer controle over uw import nodig voor validatie of wijziging bij import? Er zijn meerdere manieren om dit te doen en net zoveel variaties in vereisten, maar hier zijn enkele van de bouwstenen om mee te beginnen.
1. Plaats de volgende code in een module en voer deze uit:
'Definieer variabelen' 'Open gemeenschappelijk dialoogvenster en krijg bestandsnaam 'Controleer annuleren is niet geklikt' 'Importeer bestand Einde subPublieke Sub CustomImport()
Dim importbestand als string
Dim ImportTitle As String
Dim Tabnaam As String
Dim ControlFile As String
ImportFile = Application.GetOpenFilename( _
"Excel-bestanden, *.xls, Alle bestanden, *.*")
Importtitel = _
Mid(ImportFile, InStrRev(ImportFile, "\") + 1)
Als ImportFile = "False" Dan
Sluit sub
Stop als
TabName = "MijnAangepasteImport"
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=Bestand importeren
ActiveSheet.Name = TabName
Bladen (tabblad). Kopieer _
Voor:=Werkmappen (ControlFile). Bladen(1)
Windows (Titel importeren). Activeren
ActiveWorkbook.Close SaveChanges:=False
Windows(ControlFile).Activeren
Kanttekening: dit werkt goed voor *.xls-, *.xlsx-, *.xlsm-, *.csv- en *.txt-bestanden. U kunt code toevoegen of oproepen vóór de End Sub om de geïmporteerde gegevens te wijzigen voordat de gebruiker deze kan aanraken.