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
neanderix
Edgar Rau
