ActiveX OWC11 (Excel Spreadsheet)

[moep.at]

Hallo,
spiel mich grad bissl mit Active X rum und bin jetzt auf das oben genannte OWC11 gestoßen und würde jetzt gerne dieses nutzen um ein Tab getrenntes CSV-File zu laden und zu verändern und einfach wieder abzuspeichern.

das ganze mach ich unter DIAdem welches eine VB-Scriptsprache verwendet!

Vlt kennt sich jemand damit aus bzw kennt ne gute seite wo man mal zu den ActiveX Elementen eine anständige beschreibung hat


hier mal mein snippet mit welchem ich bis jetzt einlese...

Sub s_ReadFile(path)
loaded = 0
  Dim arrFileLines()
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f, i, x, y
  i = 0
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(path, ForReading, True)
    Do Until f.AtEndOfStream
    Redim Preserve arrFileLines(i)
      arrFileLines(i) = Split(f.ReadLine, vbTab)
      For x = 0 To UBound(arrFileLines(i))
        OWC112.X.Rows.Item(i+1).Cells(x+1).Value = arrFileLines(i)(x)
      Next
      i = i + 1
    Loop
loaded = 1
End Sub

is bestimmt in keiner art und weise effektiv oder gut gecoded bin mehr oder weniger Anfänger auf dem Gebiet!

Aber vlt kann mir da ja jemand helfen

mfg
moep.at