Workbook open ohne Makros
09.02.2017 17:56:25
Kian
kurz zum Problem. Ich habe ein Makro programmiert, dass sich aus einer anderen Datei von zwei Tabellenblättern kopiert, diese in die neue Datei kopiert und anschließend die Datei wieder schließt. Nachfolgend der Code:
Sub Datenimport()
Dim WBZiel As Workbook, ExportDatei As Variant, lDatum As Long
Dim WBQuelle As Workbook, WSZiel As Worksheet, lZeile As Long
lZeile = Sheets("Datenbank").[A65536].End(xlUp).Row
Range(Cells(8, 1), Cells(lZeile, 15)).ClearContents
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
Application.EnableEvents = False
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsm*", , "Bitte die Datei zum _
_
Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'kopieren des Blattinhaltes und Schließen der Quell-Datei
With WBQuelle
lDatum = .Sheets("Datenbank").[B65536].End(xlUp).Row
.Sheets("Hilfsdaten").Range("D3:J3").Copy WBZiel.Sheets("Hilfsdaten").Range("D3:J3")
.Sheets("Hilfsdaten").Range("W2:W5").Copy WBZiel.Sheets("Hilfsdaten").Range("W2:W5")
.Sheets("Datenbank").Range("A8:O" & .Sheets("Datenbank").[B65536].End(xlUp).Row).Copy _
Destination:=WBZiel.Sheets("Datenbank").Range("A8")
.Close savechanges:=False
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Das funktioniert auch alles einwandfrei. Problem ist jetzt nur, dass es sich bei den Dateien, _
aus denen kopiert wird, um 32Bit gecodete handelt. Da steckt in der userform noch der DTPicker drin,
der ja unter 64Bit nicht mehr läuft.
Die Userform startet automatisch beim öffnen der Datei. Jetzt die Preisfrage.
Wie kann ich die Datei öffnen, von den Sheets was kopieren und die Datei wieder
schließen OHNE die Userform zu starten.
Ich habe es (s. Code) schon mit Application.enableEvents probiert,
aber es gibt dann trotzdem den Kompatibilätsfehler wegen des DTPicker.
Habe im Internet mal Ansätze von wegen im safety mode öffnen gefunden,
kann damit aber nichts anfangen. Jemand einen Geistesblitz ?!
Vielen Dank und Beste Grüße!