VisualBasic Array in Excel Tabelle

[cuco]

Hallo,

ich versuche schon seit einer Weile ein Array (L, 10) in eine Excel Datei zu schreiben.
Das soll eine Art Temp Datei sein, die dann von einem anderen Makro wieder in ein Array eingelsen wird. Die Programme müssen getrennt sein, damit Sie selbstständig arbeiten können, wenn der Bedarf besteht.
Die Makros laufen in Catia V5.

Folgen Code habe ich für diesen Abschnitt momentan:

Set objExcel = CreateObject("excel.application")
Set objWB = objExcel.Workbooks.Open("d:\TempArray.xls")
For u = 0 To L
For t = 0 To 10
objWB.Sheets("Sheet1").Cells(u, t) = Messpunkte(u, t)
Next t
Next u

objWB.Close SaveChanges:=True
Set objWB = Nothing
objExcel.Quit
Set objExcel = Nothing

Irgend etwas kann an dem Code aber nicht stimmen. Ich habe eine Error Abfrage drin und er springt in der roten Zeile in raus.
Vielleicht kann mir ja einer von euch weiter helfen. Ich bin mitlerweile ratlos. Ich bin nicht so der VB Spezialist. Habe auch schon einiges im Internet gesucht und ausprobiert, leider ohne Erfolg.

Danke sehr und Grüße

 

[Wehrwolf]

Also in C# müßte es Set objWB = objExcel.Workbooks.Open("d:\\TempArray.xls") heißen, mit doppeltem \\. Keine Ahnung ob das ion VB auch so ist?

 

[cuco]

kann sein, leider ist der fehler immernoch da.

oder muss es:
Set objWB = objExcel.Workbooks.Create("d:\TempArray.xls")

heißen? Die XLS Dtaie soll ja hier erst erzeugt werden.

 

[Wehrwolf]

Wenn die Datei noch nicht existiert muß sie natürlich erst angelegt werden. Du mußt natürlich auch NTFS Berechtigungen und unter Vista/Win7 UAC die tollen neuen Sicherheitsfeatures beachten.

 

[cuco]

erzeugt ist sie. ich hab den code nun folgendermaßen angepasst.

Set XL = CreateObject("Excel.Application")
XL.Workbooks.Add
XL.ActiveWorkbook.SaveAs ("D:\TestArray.xls")
For u = 0 To L
For t = 0 To 10
XL.Sheets("Sheet1").Cells(u, t) = Messpunkte(u, t)
Next t
Next u
XL.Close SaveChanges:=True
XL.Application.Quit
Set XL = Nothing

leider haut es mich immernoch ohne begründung raus.