PureBoard

Code: Alles auswählen

OpenConsole()                                
    ConsoleTitle ("Konsole") 
    EnableGraphicalConsole(1)

XIncludeFile "comateplus.pbi"

Define ExcelObject.COMateObject
Define Wert1.s, Wert2.s,Wert3.s, Wert4.s,Datum.s,Datensatz.s

ExcelObject = COMate_CreateObject("Excel.Application")

ExcelFile.s = "lagerbestand.xls" 

If ExcelObject
 
  If ExcelObject\Invoke("Workbooks\Open('" + ExcelFile + "')") = #S_OK
   
  	ExcelObject\Invoke("Workbooks(1)\Sheets(1)\Activate") 
  

	  	i = 4
	   	Repeat
	    Wert1 = ExcelObject\GetStringProperty("Cells("+Str(i)+",1)")
	    Wert2 = ExcelObject\GetStringProperty("Cells("+Str(i)+",2)")
	    Wert3 = ExcelObject\GetStringProperty("Cells("+Str(i)+",3)")
	    Wert4 = ExcelObject\GetStringProperty("Cells("+Str(i)+",4)")
	    Datum = ExcelObject\GetStringProperty("Cells(3,3)")
	    If Wert1 = "" 
	    	Break
	    EndIf
	   	Datensatz = Wert1+";"+Wert2+";"+Wert3+";"+Wert4+";"+Datum
	   	PrintN(Datensatz)
	   	Debug Datensatz
	    
	    
	    
	    i = i+1
		Until Wert1 = ""

  Else
   
    Debug "!Workbooks\Open"
    Debug COMate_GetLastErrorDescription()
   
  EndIf
 
  ExcelObject\Invoke("Quit()")
  ExcelObject\Release()
 
Else
 
  Debug "!COMate_CreateObject"
  Debug COMate_GetLastErrorDescription()
 
EndIf
CloseConsole()

Code: Alles auswählen

[...]
  If ExcelObject\Invoke("Workbooks\Open('" + ExcelFile + "')") = #S_OK
     ExcelObject\SetProperty("DisplayAlerts = #False")
[...]