Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

oActivexObject:USEREVENTS := .F.

Code: Alles auswählen

oActivexObject:USEGUITHREAD := .F.

Code: Alles auswählen

#INCLUDE "activex.CH"
#pragma library("ascom10.LIB")

PROCEDURE Main
	oApp := CreateObject( "Excel.Application" )

	IF NIL == oApp
		// Word.Application could not be created.
		? "Error: ", ComLastError()
		? "Description:"
		? ComLastMessage()
		RETURN
	ENDIF

	// Access a property of the Word application
	? oApp:visible
	// Assign a value to a property
	oApp:visible := ! oApp:visible

	*oApp:cells(1,1):="Test"
	oApp:Workbooks():Add()                       //Mappe einfügen
	oApp:Sheets():Add()                          //in der Geöffneten Mappe eine neue Tabelle einfügen
	oApp:WorkSheets():Add()                      //in der Geöffneten Mappe eine neue Tabelle einfügen
	**oApp:Workbooks():Open("C:\MyFolder\MyBook.xls") //Öffnen einer Mappe
	oApp:Worksheets("Tabelle1"):select()         //Auswählen einer Tabelle in der geöffneten Mappe

	oApp:Range("A2"):Value := "Test"             //zuweisen eines Wertes in eine Zelle der aktiven Tabelle

	FOR i := 1 TO 5
		oApp:Cells(1,i):value := i
	NEXT

	oApp:Worksheets("Tabelle2"):select()         //Auswählen einer Tabelle in der geöffneten Mappe

	oApp:Range("A1"):Value := "Nr"               //zuweisen eines Wertes in eine Zelle der aktiven Tabelle
	oApp:Range("A1"):Font():Size := 14           //Schriftgrösse ändern
	oApp:Range("A1"):Font():Name := "Times"      //Schrift festlegen
	oApp:Range("A1"):Font():Bold := .t.
	oApp:Range("B1"):Value := "Wert"             //zuweisen eines Wertes in eine Zelle der aktiven Tabelle
	oApp:Range("B1"):Font():Size := 14           //Schriftgrösse ändern
	oApp:Range("B1"):Font():Name := "Times"      //Schrift festlegen
	oApp:Range("B1"):Font():Bold := .t.
	FOR i := 1 TO 5
		oApp:Cells(i+1,1):value := i
		oApp:Cells(i+1,2):value := i*1000/(i+1)
		*oApp:Cells(i+1,1):Font():Size := 12 + i
		oApp:Cells(i+1,2):NumberFormat = "#.##0,00" //Format für Nummerische Werte festlegen
		IF (i%2)==0
			oApp:Cells(i+1,2):Font():Bold := .t.   //Fett-Schrift in der Zelle einschalten
		ENDIF
	NEXT
	*oApp:Range("A3"):Formula := "=A1+B1"        //eine Formula in der Zelle speichern
	oApp:Range("B7"):Formula := "=summe(B2:B6)"  //eine Formula in der Zelle speichern
	oApp:Range("B7"):Font():Size := 12           //Schriftgrösse ändern
	oApp:Range("B7"):Font():Name := "Arial"      //Schrift festlegen
	oApp:Range("B7"):Font():Bold := .t.
	oApp:Range("A8"):Value := "asjkhdjksahdkjlsahdljsahdsaljdsamcnvnsd"
	oApp:Range("A8:C8"):MergeCells := .t.        //Zellen verbinden
	oApp:Range("A9:C9"):Merge()                  //Zellen verbinden
	wait

	*msgbox(var2char(oApp:Range("A8"):Name))

	oApp:quit()                                  //Excel beenden
	oApp:destroy()

RETURN

Code: Alles auswählen

#include "activex.ch"
#include "excel.ch"

//////////////////////////////////////////////////////////////////////
// Main()-Prozedur der Anwendung
//////////////////////////////////////////////////////////////////////
PROCEDURE main
  LOCAL oExcel, oBook, oSheet
  LOCAL cSDir, cTDir
   local l, c, b, a
  // Erzeugen eines "Excel.Application"-Objektes
  oExcel := CreateObject("Excel.Application")
  IF Empty( oExcel )
    MsgBox( "Excel ist nicht installiert" )
    RETURN
  ENDIF

  // Vermeiden von Nachrichten wie "Die Datei
  // existiert bereits". Sicherstellen, dass
  // die Excel-Anwendung sichtbar ist.
  oExcel:DisplayAlerts := .F.
  oExcel:visible       := .T.

  // Das Quellverzeichnis ist das Verzeichnis mit
  // den DBF-Tabellen der Xbase++-Beispielkollektion.
  // Das Zielverzeichnis ist das Verzeichnis der
  // Anwendung.
  cTDir  := CurDrive()+":\"+CurDir()
  cSDir  := cTDir + "\..\..\data"

  // Eine DBF-Tabelle in einem Workbook oeffnen.
   oBook:= oExcel:workbooks:Open(cSDir+"\customer.dbf")


  // Das Workbook wird mit einem neuen Namen abgespeichert.
  // Ein voll qualifizierter Pfad muss angegeben werden.
  // xlWorkbookNormal erzeugt eine normale Excel-Datei.

    oBook:SaveAs( cTDir+"\MyExcel.xls" , xlWorkbookNormal )
    oBook:close()
    oBook:destroy()
    oBook := NIL
    oExcel:Quit()
    sleep(300)  // Warte 3 Sekunden ....
    oExcel:Destroy()
    oExcel := NIL
    Msgbox("Ende Excel ")  // Ein Blick auf den Blick auf den Taskmanager sollte ergeben, dass Excel.exe beendet wurde
RETURN