Fokus auf Excel setzen Acc10

29/09/2010 - 18:14 von Rolf Maier | Report spam
Hallo NG,

ich öffne mit folgendem Code ein Excel-Sheet:

Public Function NeuesWorksheetAusTemplate(ByVal strTemplate As
String) As Object
Dim objExcel As Excel.Application
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number = 429 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If
objExcel.Visible = True
objExcel.WindowState = xlMaximized
Set NeuesWorksheetAusTemplate = _
objExcel.Workbooks.Add(strTemplate).Worksheets(1)
End Function

Das funktioniert auch unter 2010 sehr gut. Nur wird jetzt nicht mehr
der Fokus auf Excel gesetzt, wass unter 2003 einfach so war.

Hat jemand einen Tipp für mich?

Gruß, Rolf
 

Lesen sie die antworten

#1 Karl Donaubauer
29/09/2010 - 18:33 | Warnen spam
Rolf Maier wrote:
ich öffne mit folgendem Code ein Excel-Sheet:

Public Function NeuesWorksheetAusTemplate(ByVal strTemplate As
String) As Object
Dim objExcel As Excel.Application
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number = 429 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If
objExcel.Visible = True
objExcel.WindowState = xlMaximized
Set NeuesWorksheetAusTemplate = _
objExcel.Workbooks.Add(strTemplate).Worksheets(1)
End Function

Das funktioniert auch unter 2010 sehr gut. Nur wird jetzt nicht mehr
der Fokus auf Excel gesetzt, wass unter 2003 einfach so war.

Hat jemand einen Tipp für mich?



Du kannst es damit versuchen:
http://www.activevb.de/tipps/vb6tip...p0214.html

Servus
Karl
****************
http://www.donkarl.com Access-FAQ
http://www.donkarl.com/?aek 13. Access-Entwickler-Konferenz
Nürnberg: 25./26.9. + 2./3.10.2010, Hannover: 16./17.10.2010

Ähnliche fragen