mit Vb.net daten aus SQL in Excel importieren

[Tsubaru87]

Hallo,

ich hab folgende idee: Ich möchte mit hilfe von VB.Net ein SQL Statement zusammen setzten und es danach in einer Excel Tabelle reinschreiben.

Bis zu dem Punkt in dem man diesen schreib vorgang macht habe ich alles.
Also die Daten für das SQL liegen mir in form eines recordsets vor.

Ich weiß nur nicht wie ich die in eine vorhandene Excel Tabelle schreiben soll.

Vllt habt ihr einen Tipp für mich.
Vielen Dank schon mal im vorraus.

MfG Tsubaru

[Womble]

Im Thread von mark01 sieht man wie man eine Exceltabelle öffnet, das schreiben sollte dann kein Problem mehr sein.

Gruß Stephan

[Tsubaru87]

ich lese aus einer Excel-datei Umsatzwerte in eine DataTable. Dieses Table wird dann in einem Datagrid angezeigt (insgesamt ca. 15000 Sätze). Das einlesen und anzeigen klappt gut.

Das ist das erste was man zu lesen bekommt.
Und so wie ich es rauslese, sucht er die Daten aus der Excel Tabelle und sammelt sie ein einem Datagrid.

Also nicht so wirklich des was ich suche.
Ich habe meine Daten in einer SQL-Datenbank die ich per vb.net in ein Recordset speicher um sie später in eine Excel Tabelle zu schreiben.

[Womble]

Das war ja nur als Hinweis gedacht wie man Prinzipiell auf ein Exceldokument zugreift, ich bin schon davon ausgegangen das Du den Insert selbst hin bekommst.

Gruß Womble

[Kyrrho]

Dieses Problem hatte ich schonmal gelöst. Also, wenn deine Daten sich in einer Datentabelle, nehmen wir an sie heißt dTab, befinden, könntest du etwa so vorgehen:

' Erstellen einer Excel-Arbeitsumgebung
	Dim xlApp As New Excel.Application
	Dim xlBuch As Excel.Workbook = xlApp.Workbooks.Open("DateinameDeinerExcelDatei")
	Dim xlBlatt As Excel.Worksheet = CType(xlBuch.ActiveSheet, Excel.Worksheet)
	Dim GesamtZeilen As Integer = dTab.Rows.Count
	Dim GesamtSpalten As Integer = dTab.Columns.Count
' Erstellen eines Arrays, damit die Daten schnell ins Arbeitsblatt kopiert werden können
	Dim Export(GesamtZeilen - 1, GesamtSpalten - 1) As Object
	For Zeile As Integer = 0 To GesamtZeilen - 1
		For Spalte As Integer = 0 To GesamtSpalten - 1
			Export(Zeile, Spalte) = dTab.Rows(Zeile).Item(Spalte)
		Next Spalte
	Next Zeile
' Array in das Arbeitsblatt schieben
	xlBlatt.Range("A2").Resize(GesamtZeilen, GesamtSpalten).Value = Export
' Und ansehen. Fertig.
	xlApp.Visible = True

[Tsubaru87]

Dieses Problem hatte ich schonmal gelöst. Also, wenn deine Daten sich in einer Datentabelle, nehmen wir an sie heißt dTab, befinden, könntest du etwa so vorgehen:

' Erstellen einer Excel-Arbeitsumgebung
	Dim xlApp As New Excel.Application
	Dim xlBuch As Excel.Workbook = xlApp.Workbooks.Open("DateinameDeinerExcelDatei")
	Dim xlBlatt As Excel.Worksheet = CType(xlBuch.ActiveSheet, Excel.Worksheet)
	Dim GesamtZeilen As Integer = dTab.Rows.Count
	Dim GesamtSpalten As Integer = dTab.Columns.Count
' Erstellen eines Arrays, damit die Daten schnell ins Arbeitsblatt kopiert werden können
	Dim Export(GesamtZeilen - 1, GesamtSpalten - 1) As Object
	For Zeile As Integer = 0 To GesamtZeilen - 1
		For Spalte As Integer = 0 To GesamtSpalten - 1
			Export(Zeile, Spalte) = dTab.Rows(Zeile).Item(Spalte)
		Next Spalte
	Next Zeile
' Array in das Arbeitsblatt schieben
	xlBlatt.Range("A2").Resize(GesamtZeilen, GesamtSpalten).Value = Export
' Und ansehen. Fertig.
	xlApp.Visible = True

Danke dafür, werde ich mal Testen.