Office 360 Excel

Forumthread: Office 360 Excel

Office 360 Excel

22.08.2019 12:54:45

Marc

Hi,
ich probiere gerade einige Excel2010 Programme auf Office 365 umzusetzen.
Hier laufe ich in ein Problem.
Appplication.visible = false funktioniert nicht bei
- Öffnen von Dateien mit workbook.open
- Erstellen einer neuer Arbeitsmappe per workbook.add
Da taucht plötzlich hinter den eigentlich nur sichtbaren Userformen die Excel Anwendung auf.
Gibt es hierfür eine Lösung?
Mit bitte um Hilfe, vielen Dank.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Office 360 Excel

22.08.2019 13:08:00

Werner
AW: Office 360 Excel

22.08.2019 14:36:01

Marc
AW: Office 360 Excel

22.08.2019 15:05:10

Werner
AW: Office 365 Excel

23.08.2019 08:43:36

Marc

AW: Office 360 Excel

22.08.2019 13:08:00

Werner

Hallo,
so:

Dim WBopen As Workbook
'Datei im Hintergrund öffnen
Application.ScreenUpdating = False
Set WBopen = Workbooks.Open("C:\...\...\...\Dateiname.xlsx")
ActiveWindow.Visible = False
'...dein weiterer Code
'unsichtbare Datei ohne speichern wieder schließen
Workbooks("Dateiname.xlsx").Close False

Gruß Werner

AW: Office 360 Excel

22.08.2019 14:36:01

Marc

Hallo Werner,
vielen Dank für Deine Antwort.
Leider funktioniert es nur teilweise.
open funktioniert prima, nichts poppt auf
Bei dem close Befehl wird die Haupttabelle wieder sichtbar
Anbei mal mein Code (auszugsweise), habe ich irgendetwas übersehen ?
Vom Ablauf:
Msgbox x:\ wird sichtbar
Daten werden geladen
Msgbox close wird sichtbar
Dann poppt Excel mit der Haupttabelle (nicht die die hier geladen wurde) auf
Msgbox Done taucht auf


Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Server Suchliste ?ffnen
MsgBox "X:\Reparaturen\RepaDB\Suchliste.xlsx"
Dim WBopen As Workbook
Set WBopen = Workbooks.Open("X:\Reparaturen\RepaDB\Suchliste.xlsx")
ActiveWindow.Visible = False
'Datenverarbeitung
'Server Datenliste schliessen
MsgBox "Close Suchliste.xlsx"
Workbooks("Suchliste.xlsx").Close False
Application.DisplayAlerts = True
MsgBox "Done"

Ideen ?

AW: Office 360 Excel

22.08.2019 15:05:10

Werner

Hallo,
was ist denn, wenn du einfach nochmal ein ActiveWindow.Visible = False setzt?

Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Server Suchliste ?ffnen
MsgBox "X:\Reparaturen\RepaDB\Suchliste.xlsx"
Dim WBopen As Workbook
Set WBopen = Workbooks.Open("X:\Reparaturen\RepaDB\Suchliste.xlsx")
ActiveWindow.Visible = False
'Datenverarbeitung
'Server Datenliste schliessen
MsgBox "Close Suchliste.xlsx"
Workbooks("Suchliste.xlsx").Close False
ActiveWindow.Visible = False
Application.DisplayAlerts = True
MsgBox "Done"

Gruß Werner

AW: Office 365 Excel

23.08.2019 08:43:36

Marc

Hallo Werner,
das funktioniert leider nicht.
Es gibt einen Error:
Objektvariable oder with-Block nicht definiert
P.S.: Ich habe nun einen workaround gefunden.
Suchliste.xlsx manuell öffnen und dann per "Ansicht - Fenster ausblenden" unsichtbar machen, schliessen und beim schliessen speichern
Das verhindert beim workbook.close das aufpoppen der Haupttabelle.
Man muss allerdings "ActiveWindow.Visible = False" auch beim ".open" rausnehmen, sonst wirft es den oben genannten Error.
Das ist jetzt nicht wirklich eine schöne Lösung, aber funktioniert erstmal. Falls jemand eine elegantere und praktikablere Lösung anbieten kann wäre das Klasse. Vielen Dank im voraus.
Nächste Frage: Bei workbook.add taucht excel auch im Hintergrund auf.
Kann man hier von vorneherein die "Fenster ausblendn" Option beim .add setzen ?

Beliebteste Forumthreads (12 Monate)

Forumthread: Office 360 Excel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread