Hallo VB-Fangemeinde!

Ich bin gerade dabei, mich in Visual Basic Studio 2010 einzuarbeiten. Für numerische Anwendungen möchte ich n*n-Matrizen in Excel-Dateien abspeichern. Bei der Suche im Internet bin ich nur teilweise fündig geworden, wie sich so etwas programmieren lässt. Die Überführung der Matrixelement in eine Excel-Tabelle bekomme ich hin:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oXL As Object ' Excel application
Dim oBook As Object ' Excel workbook
Dim oSheet As Object ' Excel Worksheet
Dim oChart As Object ' Excel Chart

Dim iRow As Integer ' Index variable for the current Row
Dim iCol As Integer ' Index variable for the current Row

Const cNumCols = 10 ' Number of points in each Series
Const cNumRows = 2 ' Number of Series

Dim A(0 To cNumRows + 1, 0 To cNumCols + 1) As Integer

'Start Excel and create a new workbook
oXL = CreateObject("Excel.application")
oBook = oXL.Workbooks.Add
oSheet = oBook.Worksheets.Item(1)

' Insert Random data into Cells for the two Series:
Randomize(Now().ToOADate())
For iRow = 1 To cNumRows
For iCol = 1 To cNumCols
A(iRow, iCol) = Int(Rnd() * 50) + 1
Next iCol
Next iRow
oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = A

' Make Excel Visible:
oXL.Visible = True

oXL.UserControl = True
'ActiveWorkbook.Saveas("D:/VB_Test.xls")
End Sub
End Class

Was nicht funktioniert, ist die Abspeicherung der Datei, den drittletzten Befehl habe ich deshalb wieder zum Kommentar gemacht. Für die Abspeicherung werde ich vorab auch auf die Befehle zur Ansicht und Veränderbarkeit verzichten können. Nun meine Fragen:

Wie muss der Befehl/ müssen die Befehle lauten, um die Excel-Datei in einem von mir vorgegebenen Pfad abspeichern und schließen zu können?
Letztlich soll die Abspeicherung der Matrixelemente nach folgendem Muster geschehen: Zelle A1=Größe der Matrix n, Zelle B1=Erstelldatum der Datei, Ab Zelle A2 Ablage der Matrixelemente.

Wie muss die Prozedur im umgekehrten Fall lauten, wenn ich die abgespeicherten Daten in VB wieder einlesen möchte?

Vielen Dank für Eure Hilfe!

LG
Thomas

hallo thomas,
hast du es schon mit oXL.ActiveWorkbook... probiert
lg
Philipp

Hallo Philipp!

Danke für Deine schnelle Antwort. Leider funktioniert das auch nicht (siehe Anlage!). Und wie gesagt, brauche ich auch noch den Befehl zum Schließen der Excel-Tabelle nach dem Speichern und die Prozedur für das Wiedereinladen der abgespeicherten Daten.

LG
Thomas

Gibt es denn diese Datei "D:\//708BFA00" ... das würde ich ja sehr bezweifeln. Da ist wahrscheinlich irgentwas an deinem Pfad falsch.

versuch mal:
Workbook.SaveAs(Filename:="D:\VB_Test.xlsx")
Workbook.Close()
oXl.Quit()

Hallo Shamash,

die Datei existiert nicht, das wunderte mich ohnehin, da der Name keinen Bezug zu dem angegebenen Dateinamen hat. Aber vielleicht lag es an der Endung .xls

Den Code habe ich geändert. Allerdings mussst ich oXL ergänzen, weil die Befehle ohne diesen Zusatz als Fehler angezeigt wurden. Leider ist das auch nicht die Lösung (siehe Anlage!)

LG
Thomas

Achtung du hast einen /Frontslash statt einem \ drinnen im Pfad

gerade gesehen - hast du in der Folge behoben

aber warum hast du jetzt ActiveWorkbook in Workbook umbenannt - Workbook allgemein kann er nicht zuordnen => das ist eine Klasse aber kein Objekt - du könntest oBook statt Workbook probieren
also: oXL.oBook.SaveAs....
oder eigentlich kannst du dir dann das oXL ersparen also oBook.SaveAs

lg Philipp

Danke für den Hinweis! Nur bin ich leider trotzdem noch keinen Schritt weitergekommen.

LG
Thomas

Du hast den Code den du verwendest auch zu 0% verstanden kann das sein?

Dein Workbook heist oBook

das was du am Ende speicherst ist ein neues oXL.Woorkbook daher musst du auch das oXL davor schreiben, das hat aber an der stelle nix zu suchen.

Wie gesagt, bin ich gerade erst dabei, mich in VB einzuarbeiten. Die normalen Befehlsabläufe sind mir aus anderen Basicdialekten weitestgehend bekannt. Bislang hatte es aber noch nicht mit Datenaustausch von Office-Anwendungen zu tun.
Den Sinn habe ich nun verstanden, es funktioniert aber noch immer nicht. Die erste Zeile enthält nach wie vor einen Fehler.

LG
Thomas

Hier ist ein funktionierendes Beispiel das den Inhalt eines DataGridView als Excel abspeichert.

Es bringt mir leider recht wenig, wenn ich nun einen gänzlich neuen Code erhalte, der wie man sehen kann, sofort Fehlermeldungen generiert, weil einzelne Variablen nicht definiert sind oder "Excel.Application" oder "Excel.Woorkbook" gar nicht bekannt ist.

Wenn in meinem Beispiel bereits die Felder eines Excel-Blattes gefüllt werden, dann kann es doch nicht so schwer sein, den Code so zu ergänzen, dass dieses Blatt von VB aus auch gespeichert und geschlossen wird. Oder sehe ich das falsch?

LG
Thomas

Ich habe deinen Code überarbeitet. Jetzt funktioniert er.

Hallo Schamash,

erst einmal Danke für Deine Bemühungen! Ich habe den Code übernommen, den Button wieder umbenannt und den Dateipfad auf D: gelenkt, ansonsten Deine Angaben belassen.
Wie Du sehen kannst, gibt es bereits Probleme mit den Definitionen, die die Excel-Anwendung betreffen, es werden keine Deklarationen als Excel.Application, Excel.Workbook und Excel.Worksheet erkannt. Schau Dir bitte mal die Fehlerliste unten an.
Das Excel-Blatt kann zwar beim Ignorieren der Definitionen erstellt werden, wird aber nicht abgespeichert. Das dürfte also ein Folgefehler sein.

Fehlt bei meinem VB nicht eine grundsätzliche Einstellung/Erweiterung, weshalb die Definitionen als fehlerhaft erkannt werden?

LG
Thomas

Füg zu deinen Referenzen die Microsoft.Office.Interop-Library hinzu.

Im Gegensatz zu dir, der du Late Binding verwendest (CreateObject), arbeiten die Kollegen hier mit Early Binding.
Deshalb muss zur Compilezeit die Bibliothek schon bekannt sein.

Hallo Petaod,

wie mache ich das genau?

Mit LateBinding und Early Binding kann ich leider nichts anfanggen.

LG
Thomas

So

Hallo Petaod,

über den Link konnte ich die Lösung anhand ähnlicher Themen finden! Es ging also nur um das Einfügen folgender Zeile am Anfang:

Imports Excel = Microsoft.Office.Interop.Excel

Merkwürdigerweise wurde diese Zeile nicht durch Projekt, Verweis hinzufügen... eingesetzt. Ich habe sie aus einem anderen Programmcode hineinkopiert.
Nun funktioniert das Schließen und Abspeichern des Excel-Blattes. Vielen Dank schon einmal dafür!
Wie kann ich nun umgekehrt die Daten wieder einlesen und wie beim Abspeichern in A1 n und B1 das Abspeichdatum und ab A2 die Matrix schreiben?

LG
Thomas