Wir haben ein Projekt bei dem wir die Daten eines Photospektrometers über die

Serielle Schnittstelle auswerten müssen . Dabei sollen die eingehenden Daten in eine Tabelle geschrieben werden.

Dass problem besteht nun darin mit VB ein funktion zu erstellen welche die Daten nicht nur in ein Zelle hineinschreibt, sondern aus dem geliefgertem Material eine komplette Excel Tabelle erstellt. Eine möglichtkeit wäre es die annkommenden Trennzeichen dazu zu benutzen, der funktion zu sagen :"schreibe dass folgende Wort bzw. Zahl in eine neue Tabellenspalte bzw. Zeile".

Kann uns vielleicht irgendjemand sagen wo wir informationen dazu finden bzw. wie diese funktion aussehen könnte.:confused:

- Wenn Du das Excel-Dateiformat nicht kennst, kannst Du selbst keine Excel-Dateien erzeugen.

- Wenn auf dem PC Excel installiert ist, kannst Du Excel "fernsteuern".

- Vermutlich reicht Euch eine CSV-Datei. Diese Dateien kannst Du auch in Excel einlesen.

- Wenn Ihr es nicht hinbekommt, dann wendet Euch an mich

PS: Dieser Thread sollte besser in die Programmier-Ecke verschoben werden.

PS: Dieser Thread sollte besser in die Programmier-Ecke verschoben werden.

Stimmt.

*schieb*

[OT]ich hatte mal das vergnügen mit einem ICP-MS - geiles gerät *sabba*[/OT]

abhängig davon, wie euer detektorkasten die daten anliefert, könnt ihr diese

- mittels excel-automation aufbereiten;

- direkt aus dem dateisystem zeilenweise auslesen, zeilen mittels split in zellen aufteilen, und jede zelle separat eintragen;

- oder aber (dies sollte mit CSV ohne umwege gehen) direkt mit excel öffnen.

ein kleiner ansatz, weder vollständig noch wirklich funktionstüchtig: :floet:

Sub Read_CSV()


F = FreeFile(0)

fname = InputBox("Enter the filename with Path:", _

"Please Enter Input File Name:")

If fname <> False Then

'hier wird die eingabedatei geöffnet

Open fname For Input As #F

Set Rng = ActiveCell.CurrentRegion

'anpassen auf aktuelle zellen

FCol = Rng.Columns(1).Column

LCol = Rng.Columns(Rng.Columns.Count).Column

Frow = Rng.Rows(1).Row

Lrow = Rng.Rows(Rng.Rows.Count).Row

'alle zeilen durchgehen

For i = Frow To Lrow

outputLine = ""

'alle spalten durchgehen

For j = FCol To LCol

If j <> LCol Then

'ebenfalls an zellen anpassen

outputLine = outputLine & Cells(i, j) & ";"

Else

outputLine = outputLine & Cells(i, j)

End If

Next j

Read #F, inputLine

Next i

'datei schliessen

Close #F

End If


End Sub

s'Amstel

- direkt aus dem dateisystem zeilenweise auslesen, zeilen mittels split in zellen aufteilen, und jede zelle separat eintragen;

genau dass isses was wir mit vb versuchen. wir suchen halt nur befehle dafür. es müsste nur noch gesplittet und aufgeteilt werden . der rest is schon gemacht :marine

string[] = split(<trennzeichen>, <zuZerlegenderString)

in VB genau umgekehrt

Split (Ausdruck, [Trennzeichen, [Anzahl, [Vergleichen]]] )

s'Amstel

Danke für die ganzen hinweise. Dass mit der Split Funktion haben wir auch schon (gestern in irgendeinem vb forum gelesen). jetzt stellt sich nur noch die frage wie wir die einzelnen zeilen die wir gesplittet haben von vb in die nächste zeile schreiben lassen können. also der befehl

schreib jede gesplittete zeile in eine neue tabellenzeile.

Dass ganze geschieht übrigens in excel

Und Danke nochmal