Treeview Datei öffnen unterbinden
05.06.2019 15:49:56
biwi
ich benutze eine TreeView in einer Userform mittels der ich per Drag and Drop in das Treeview Feld über eine Import Prozedur (Datenimport) Tabellen importieren kann. Den Code dazu habe ich online gefunden und er läuft soweit auch ganz gut:
Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, _
Shift As Integer, x As Single, y As Single)
Application.EnableEvents = False
Application.ScreenUpdating = False
ExcelPath = Data.Files(1)
Call Datenimport(ExcelPath)
Unload Me
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
In dem Makro Datenimport öffne ich die Excel Datei mittels des Pfades, kopiere die Daten und _
schließe die Datei wieder. Leider wird aber jedesmal wenn das Makro durchgelaufen ist die zu importierende Datei erneut geöffnet. Wie kann ich das unterbinden oder die Datei nach dem "End Sub" automatisch wieder schließen ?
Vielen Dank für eure Hilfe im Voraus!
MFG BIWI
Anzeige