Wenn ich das Programm vor Excel geöffnet habe, geht alles gut. Wenn ich aber das Programm schließe, bleibt die Datei in Excel offen. Rufe ich jetzt wieder mein Programm auf und schreibe erneut, wird nochmals dieselbe Datei geöffnet, jedoch mit dem zuletzt gespeichertem Stand. Das möchte ich aber nicht. Ich möchte, daß meine neuen Daten in die bereits geöffnete Datei geschireben werden. Dazu benötige ich einen Verweis auf diese Datei.
Workbooks(name.xls).Activate
Set mwbkExcel = ActiveWorkbook
erzeugt schon in der 1. Zeile einen Laufzeitfehler Nummer 9.
Dim w As Excel.Workbook
For Each w In Workbooks
If w.Name = name.xls Then
Set mwbkExcel = w
Exit For
End If
Next w
Diese Version funktioniert nur, wenn Excel nach meinem Programm geöffnet wurde. Wenn dies umgekehrt stattfindet, überspringt er die Schleife, da anscheinend kein Workbook vorhanden ist. Dies stimmt aber nicht, das kann ich definitiv sagen. Wie komme ich also an den Verweis zur Datei?
Vorausgesetzt, die datei ist schon offen. Kann man die Funktion Open() so konfigurieren, daß die Datei nicht noch einmal geöffnet wird, sondern die bestehende nimmt? Oder existiert eine ähnliche Funktion?
Herzlichen Dank schlon einmal für die Bemühungen. Viele Grüße
Dunja