Wie steuerst du denn.,...
15.04.2003 16:00:45
Ramses
Hallo,bisher hast du noch keinen Code gezeigt, aus dem man sehen kann wie du EXCEL ansprichst.
Es genügt nicht, das Makro aus Excel einfach in PP zu kopieren und zu glauben dann läuft es.
Du willst ein externes Programm steuern, dann musst du das Programm auch entsprechend ansprechen...
Das hier als Ansatz:
Sub Excel_aus_PP_steuern()
Dim myExcel As Object
'Fehlerroutine für die Objectabfrage aktivieren
On Error Resume Next
'Abfragen einer besthenden Excel-Instanz um wiederholtes starten zu verhindern
'9 = Excel 2000, 10 = Excel XP
Set myExcel = GetObject("Excel.Application.10")
If Err.Number <> 0 Then
'Fehlervariable leeren wenn Instanz noch nicht besteht
Err.Clear
'Zuweisung der Instanz
Set myExcel = CreateObject("Excel.Application.10")
'Instanz öffnen
'Um das ganze etwas im Hintergrund laufen zu lassen
'kann man den Status "wdWindowStateMinimize" verwenden
myExcel.Visible = True: objWW.WindowState = wdWindowStateMaximize
Else
'Instanz besteht bereits
myExcel.Activate
'Instanz in der Vordergrund bringen oder
'mit "wdWindowStateMinimize" im Hintergrund ausführen
myExcel.Visible = True: objWW.WindowState = wdWindowStateMaximize
End If
'Hier muss der der Dateiname stehen der verwendet werden soll
'
'
myExcel.Application.workbooks.Open "C:\Test.xls"
'In A1 einen Text schreiben
myExcel.ActiveWorkbook.Worksheets("Tabelle1").Range("A1") = "Kuckuck ich bin da"
usw.
Code eingefügt mit Syntaxhighlighter 1.16
Das ganze könnte man schon noch vereinfachen mit neuen object Variablen, aber dann wird es, zumindest für einen Anfänger, unübersichtlicher.
So ist man gezwungen das zu schreiben was man machen will :-))
Gruss Rainer