Da ich mit der Klasse von Microsoft irgendwie nicht klar komme ( ), wollte ich fragen, ob ihr mir ein paar einfache Befehle für den Anfang als Beispiel hier schreiben könnt.
Mittlerweile bin ich immerhin schon soweit, dass ich Excel sichtbar machen kann.
Ich hatte schonmal mit ner COM - Schnittstelle mit einem anderen Programm zu tun, da war aber die Beschreibung um Längen besser (und verständlicher).
Bei Microschrott muss man ja im Prinzip noch VB oder C# können, um zu verstehen, was die da schreiben.
Also mein Einstieg bisher :
Code: Alles auswählen
********************************************************************************
* Für ActiveX - Word - Control *
********************************************************************************
#pragma library( "ascom10.lib" )
********************************************************************************
* Normale Include-Dateien *
********************************************************************************
#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
#include "Font.ch"
PROCEDURE AppSYS
RETURN
PROCEDURE Main
LOCAL oExcel
oExcel := CreateObject("Excel.Application")
IF Empty( oExcel )
MsgBox( "Microsoft Excel ist nicht installiert" )
ELSE
oExcel:visible := .T.
ENDIF
**********************************************
* Eventschleife *
**********************************************
nEvent := xbe_None
WHILE nEvent != xbeP_Close
nEvent := AppEvent ( @mp1, @mp2, @oXbp )
oXbp:HandleEvent ( nEvent, mp1, mp2 )
IF nEvent == xbeP_Quit
QUIT // AppQuit()
ENDIF
ENDDO
RETURN
1) Öffnen einer existierenden Datei
2) Öffnen einer neuen Arbeitsmappe
3) Schreiben in Zelle A1
4) Kopieren von Zelle A1 zu Zelle B1
5) Ausführen eines Makros
6) Zeichnen eines Diagramms (geht das ???)
7) Drucken auf bestimmtem Drucker
Datei speichern
9) Datei speichern unter
Ich weiß, dass manche dieser Dinge schon in anderen Threads besprochen wurden, allerdings fehlt mir da immer der Einstieg und ein kleiner Ausschnitt, dass es funktioniert, was ich sehr demotivierend finde
Vielen Dank schonmal im Voraus!