Excel export, Anzeigebereich Variablen

[Marinjo]

Hallo zusammen,
bin neu und abseluter Anfänger mit VBS.

Habe folgende Probleme:
Prob 1:
Möchte Variablen und Texte in eine Exceldatei schreiben. Was ich bis jetzt hinbekommen habe ist das ein Exceldatei erstellt wird und meine Daten jeweils in eine neu Zeile geschrieben werden:

Auslesen:

Code:

Dim intHandle, intCount, intErr
intHandle = TextFileOpen(MyFolders(2)&VOr&"\"&VOr&".xls",tfCreate OR tfWrite OR tfANSI)
  intErr= TextfileWriteLn(intHandle, 256)
  intErr= TextfileWriteLn(intHandle, "Text Zeile 2")
intErr = TextFileclose(intHandle)

Einlesen:

Code:

intHandle = TextFileOpen(MyFolders(2)&VOr&"\"&VOr&".xls", TfRead)
  Xwert = TextFileReadLn(intHandle)
  Xtext=TextFileReadLn(intHandle)
intErr = TextFileClose(intHandle)

Wie schaffe ich es, dass ich das in eine gewünschte Zelle (z.B. B3) schreibe und von dieser wieder auslese?

Prob 2 (Hab ich selber inzwischen gelöst! ):
Ich möchte ein Teil unterschiedliche Variablen (z.B. von 0,01 bis 555,55) ausgeben die immer 2 Kommastellen haben sollen.
Bisher hab ich das meist so gemacht:

Code:

msgbox mid(MeineZahl,1,4)

Allerdings verschiebt sich das Komma ab und zu bei unterschiedlichen Werten (z.B. Bei 33,444444 -> 33,44 und 3,444444 -> 3,444)

Desweiteren hab ich ein Problem mit der Umrechnung in Exponentialanzeige:
Ich berechne z.B:

Code:

AbwVmesMSneg=((396.2/396.4)-1)*100
msgbox AbwVmesMSneg

Er wandelt die Zahl dann in -5,0454E-02 um und in der Anzeige steht dann -5,04 statt -0,05
Wie kann ich das unterbinden?

Lösung Prob 2:FormatNumber(Zahl,2)

Bin über die googelsuche auf den Befehl gestossen



Wäre schön wenn mir jemand die passenden Befehle nennen könnte!

Gruß Marinjo

[M.Schneiders]

Hallo Marinjo,
in diesem Beitrag hat Bruno im Beitrag #22 gezeigt, wie man Excel mittels OLE mit Daten versorgen kann. Damit ist es dann auch Möglich, in jeder gewünschten Reihenfolge Daten in eine Exceldatei zu schreiben.

Gruß
M.Schneiders