Excel Tabelle öffnen

Franz

Level-1
Beiträge
75
Reaktionspunkte
0
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,
ich beschäftige mich etwas mit VBS für WinCCflex 2008. Und habe diesen Code in der Hilfe gefunden:

Dim ExcelTabelle[FONT=&quot]Set ExcelTabelle = CreateObject("Excel.Sheet")[/FONT]
' Excel über das Application-Objekt sichtbar machen.
ExcelTabelle.Application.Visible = True
'Text in die ersten Zelle der Tabelle einfügen.
ExcelTabelle.ActiveSheet.Cells(1,1).Value = "Das ist Spalte A, Zeile 1"
' Tabelle speichern.
ExcelTabelle.SaveAs "C:\Eigene Dateien\TEST.XLS"
' Excel über die Quit-Methode des Application-Objekts beenden.
ExcelTabelle.Application.Quit
' Objektvariable freigeben.
Set ExcelTabelle = Nothing



Bin jetzt davon ganz Blauäugig ausgegangen das das Funktioniert. Habe diese Funktion auf einen Schaltfläche gelegt.

Was ist den da nicht richtig????????????
 
Zuletzt bearbeitet:
Hallo Franz,
du hast noch kein Workbook geöffnet ...

Die Sequenz müßte so aussehen :
Code:
[SIZE=2][/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] appExcel = CreateObject ("EXCEL.Application")
[/SIZE][SIZE=2][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] wbExcel = appExcel.Workbooks.Open (Verzeichnis + Datei_Neu)
[/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] wsExcel = wbExcel.Worksheets("Daten")
[/SIZE][/COLOR][/SIZE][SIZE=2]wsExcel.Range("B5") = Now [/SIZE]
[SIZE=2] 
[/SIZE][SIZE=2][SIZE=2]wbExcel.Close [/SIZE][SIZE=2][COLOR=#0000ff]true[/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][SIZE=2]appExcel.Quit ()
[/SIZE][/SIZE]
... ich habe das jetzt mal aus einem meiner Scripts herauskopiert ...
Alle Variablen, die ich mit "Set" zuweise müssen natürlich vorher mit "Dim" erzeugt werden.

Gruß
LL
 
Hallo,

habe noch ein kleines Problem.
Ich wollte auf einem OP 270 einen Ordner Anlegen. Habe mir Eure anderen Beträge angesehen.

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(
"c:\Neuer Ordner")

ODER

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(
"My Computer\Neuer Ordner")

es wird aber kein Ordner Erzeugt:confused:
 
Hallo,
gibt es bei WinCe die Möglichkeit bei einer Erzeugten csv Datei.

eine feste Zelle zu beschreiben und zu lesen, wie bei dem Unterstehenden Programm.


Set appExcel = CreateObject ("EXCEL.Application")
Set wbExcel = appExcel.Workbooks.Open (Verzeichnis + Datei_Neu)
Set wsExcel = wbExcel.Worksheets("Daten")
wsExcel.Range("B5") = Now

wbExcel.Close true
appExcel.Quit ()
 
Hallo Franz,
diese Möglichkeit besteht nur, wenn du eine CSV-Datei erzeugst, die entsprechend viele Zeilen und Spalten beinhaltet und du den Wert dann an die richtige Position schreibst (sehr mühsam).

Gruß
LL
 
Leider kann ich dir dazu nichts sagen ... probier es aus ...
Ich kann es mir aber ehrlich gesagt nicht so recht vorstellen. Es wäre aber schön, wenn du darüber schreibst, falls es mit dem Befehl gehen sollte ...

Gruß
LL
 
So habe es getestet. Ist nicht so wie ich mir das erwünscht hätte. Aber es geht.

Dim fso, f, fwModeAppend

Set fso = CreateObject("filectl.FileSystem")
Set f = CreateObject("FileCtl.File")

Dim sData()
ReDim sData(3)

sData (0)= "Wert0"
sData (1)= "Wert1"
sData (2)= "Wert2"

f.Open "Storage Card USB\Daten\Messung.csv",8
f.WriteFields sData
f.Close

======================================
Darstellung in Excel Zelle 1,A

Wert0,"Wert1","Wert2",
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,
gibt es bei WinCe die Möglichkeit bei einer Erzeugten csv Datei.

eine feste Zelle zu beschreiben und zu lesen, wie bei dem Unterstehenden Programm.


Set appExcel = CreateObject ("EXCEL.Application")
Set wbExcel = appExcel.Workbooks.Open (Verzeichnis + Datei_Neu)
Set wsExcel = wbExcel.Worksheets("Daten")
wsExcel.Range("B5") = Now

wbExcel.Close true
appExcel.Quit ()
vorraussetzung das du direkt in eine excel-datei schreiben kannst ist, das excel installiert ist.
das gilt natürlich auch für ähnliche anwendungen.

ich habe auf meinem navi (wince5) ein proggi ala excel laufen.
google mal nach SpreadCE bzw sprenage
ob man diese anwendung allerdings über das .application-objekt ansprechen kann müsstetes du probieren.
 
Ich habe ein OP 270 unter WinCCflex 2008 und da ist Windows CE Version 3.0 Installiert.

Werde mal sehen was es dafür gibt.
 
Zurück
Oben