Excel mit COMatePlus auslesen und ascii File erstellen

[rebnet]

Erstmal Hallo an die Gemeinde
Als absoluter Anfänger suche ich ein kleines Bsp. Script um ein Excel File auszulesen und eine ASCII Datei zu erstellen. Ich habe mir cometplus installiert und ein Bsp. angeschaut. Leider konnte ich die Hilfedatei (von cometplus) nicht richtig installieren. Demnach kann ich auch die Beispiele nicht richtig interpretieren beziehungsweise den Script nicht erstellen.
Als0, wer hat schon mal sowas gemacht. Wäre sehr dankbar hierfür.

[Kiffi]

Willkommen im Board!

Leider konnte ich die Hilfedatei (von cometplus) nicht richtig installieren.

vielleicht könnte das hier helfen:
http://www.sahanya.de/2008/08/06/kein-z ... chm-datei/

Grüße ... Kiffi

P.S.: COMate; nicht comet

[rebnet]

Hey, hat geklappt die Hilfe läuft !!
Wenn jetzt mir noch einer so ein klitzekleines Scriptchen hätte?
Schande ! natürlich COMatePLUS

[Kiffi]

Wenn jetzt mir noch einer so ein klitzekleines Scriptchen hätte?

was willst Du denn genau machen? Export zu CSV? Im Demos-Ordner von COMate
befinden sich ja schon etliche Beispiele bzgl. Excel. Kannst Du davon nichts gebrauchen?

Grüße ... Kiffi

Noch ein P.S.: Der Begriff 'Script' impliziert, dass der Code durch einen Interpreter
ausgeführt wird. Das ist bei PureBasic nicht der Fall.

[rebnet]

Nun ja, ich werde immer mehr mit Schnittstellenthematiken konfrontiert. Das heisst das Importfile wird meistens als Excel angeliefert. Importieren kann ich in der Regel nur ASCII bzw. muss das ASCII in einer speziellen Struktur zusammen bauen. Bis anhin habe ich mit KiXtart 2010 gescriptet (nicht lachen), konnte aber die Excel Files nicht direkt auslesen. Es werden Bewgungsdaten in ein ERP System eingelesen. Mit einem Script ersparen wir uns Stunden.

[Kiffi]

wenn wir mal von diesem einfachen Excel-Sheet ausgehen:



dann kannst Du beispielsweise mit folgenden Code die Werte auslesen:

Code: Alles auswählen

IncludePath #PB_Compiler_Home + "srod\comateplus\" ; Pfad anpassen!
XIncludeFile "comateplus.pbi"

Define ExcelObject.COMateObject
Define Wert1.s, Wert2.s, Wert3.s

ExcelObject = COMate_CreateObject("Excel.Application")

ExcelFile.s = "myPath\myMap.xls"  ; Pfad anpassen!

If ExcelObject
  
  If ExcelObject\Invoke("Workbooks\Open('" + ExcelFile + "')") = #S_OK
    
    ExcelObject\Invoke("Workbooks(1)\Sheets(1)\Activate") ; Erstes Sheet aktivieren
    
    Wert1 = ExcelObject\GetStringProperty("Cells(1,1)")
    Wert2 = ExcelObject\GetStringProperty("Cells(2,2)")
    Wert3 = ExcelObject\GetStringProperty("Cells(3,3)")
    
    Debug Wert1
    Debug Wert2
    Debug Wert3
    
  Else
    
    Debug "!Workbooks\Open"
    Debug COMate_GetLastErrorDescription()
    
  EndIf
  
  ExcelObject\Invoke("Quit()")
  ExcelObject\Release()
  
Else
  
  Debug "!COMate_CreateObject"
  Debug COMate_GetLastErrorDescription()
  
EndIf

Es führen viele Wege nach Rom. Vielleicht wäre für Dich auch ein CSV-Export
interessant.

Und noch einmal: PB-Code ist kein Script.

Grüße ... Kiffi

[dysti]

.....und ein weiteres Beispiel findest du hier:
http://forums.purebasic.com/german/view ... 63d969edca

[rebnet]

Also PB ist code und dann gibts noch script habe ich begriffen (immer diese Anfänger)
Habe mir das COMatePLUS Manual angeschaut und ...... Bahnhof
Vielen Dank ! Genau das wollte ich. und los......


Grüsse René