Möchten Sie lieber die Kontrolle über Benutzer haben, die Dateien importieren, anstatt dass sie dafür die Excel-Funktionen verwenden? Benötigen Sie mehr Kontrolle über Ihre Importe zur Validierung oder Änderung beim Import? Dafür gibt es mehrere Möglichkeiten und ebenso viele Anforderungsvariationen, aber hier sind einige der Bausteine, mit denen Sie beginnen können.
1. Fügen Sie den folgenden Code in ein Modul ein und führen Sie es aus
'Variablen definieren 'Allgemeinen Dialog öffnen und Dateinamen abrufen "Überprüfen, ob "Abbrechen" nicht angeklickt wurde 'Datei importieren End SubÖffentlicher Sub CustomImport()
Dim ImportFile As String
Dim ImportTitle As String
Dim TabName als String
Dim ControlFile As String
ImportFile = Application.GetOpenFilename(_
"Excel-Dateien, *.xls, Alle Dateien, *.*")
ImportTitel = _
Mid(ImportFile, InStrRev(ImportFile, "\") + 1)
Wenn ImportFile = "False" Then
Abo beenden
Ende Wenn
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=ImportFile
ActiveSheet.Name = TabName
Sheets(TabName).Kopieren _
Vorher:=Arbeitsmappen (ControlFile).Sheets(1)
Windows(ImportTitle).Aktivieren
ActiveWorkbook.Close SaveChanges:=False
Windows(ControlFile).Aktivieren
Randbemerkung: Dies funktioniert gut für *.xls-, *.xlsx-, *.xlsm-, *.csv- und *.txt-Dateien. Sie können vor dem End Sub einen Code hinzufügen oder aufrufen, um die importierten Daten zu ändern, bevor der Benutzer sie berühren kann.