Programmieren - alles kontrollieren 4.940 Themen, 20.676 Beiträge

Verfolgung starten Optionen

VBA-Access-Excel

Edgar Rau / 7 Antworten / Flachansicht Nickles

Hallo zusammen,

ich habe in Access (VBA) einen kleinen Code geschrieben, der Werte verschiedener Felder des aktuellen Datensatzes in bestimmte Zellen einer Excel Datei kopiert. Das klappt auch alles sehr gut.

Leider öffnet sich die Excel-Datei nur minimiert (das Excel-Symbol befindet sich in der Taskleiste und blinkt).

Wie kann ich es anstellen, dass sich die Excel-Datei sofort maximiert öffnet?

Hier der VBA-Code:

Dim xlApp As Object, xlBook As Object, xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("Z:\werkstatt\auftragDurchsicht.xlt")
Set xlSheet = xlBook.Sheets("Tabelle1")
xlSheet.Cells(4, 8).value = Me.Angebotsnummer
xlSheet.Cells(10, 8).value = Me.KM_Stand
xlSheet.Cells(10, 1).value = Me.PKW
xlSheet.Cells(12, 1).value = Me.Kw_PS
xlSheet.Cells(12, 3).value = Me.HSN
xlSheet.Cells(12, 4).value = Me.TSN
xlSheet.Cells(12, 7).value = Me.Erstzulassung

Mein Betriebssystem ist Win7 64bit.

Vielen Dank im Voraus.

Gruß Edgar

Wer brauchen ohne zu gebraucht, braucht brauchen gar nicht zu gebrauchen
bei Antwort benachrichtigen
Hallo Edgar, hilft Dir der Link weiter? ... hddiesel
Edgar Rau hddiesel „Hallo Edgar, hilft Dir der Link weiter? http://support.microsoft.com/kb/510042/de“
Optionen

Hallo Karl,

vielen Dank für Dein Interesse, aber bei Deinem Link handelt es sich um das maximierte Öffnen von Datenbanken; ich suche allerdings nach einer Möglichkeit, die Exceldatei maximiert zu öffnen.

Folgendes habe ich schon ausprobiert:

Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
ActiveWindow.WindowState = xlNormal
Application.DisplayFullScreen = True

alles ohne Erfolg

Ob es nur bei Win7 so ist, kann ich erst am Montag sagen; dann wird es auf einem XP-Rechner ausprobiert. Wenn es da klappt, ist ja alles in Ordnung, denn da sollen die Datenbank und die Excel-Datei eingesetzt werden.

Gruß Edgar

Wer brauchen ohne zu gebraucht, braucht brauchen gar nicht zu gebrauchen
bei Antwort benachrichtigen
Nur als Tipp etwas code-kosmetik: Das: xlSheet.Cells 4, 8 .value ... neanderix
Nachtrag Edgar Rau
Stimmt, aber es scheint wirklich quot nur quot Kosmetik zu sein es sind zwar ... neanderix
Ich persönliche lehne .With ab mal so nebenbei. xlApp.Visible false ... PaoloP
Ich persönliche lehne With ab mal so nebenbei. Verrätst du auch, warum? ... neanderix