Hallo zusammen,
ich habe 2 unterschiedliche Berichte (rdlc) erstellt.
Diese möchte ich nun zusammen in eine Excelmappe rendern.
Mit einem Bericht funktioniert das auch wunderbar.
Ich bekomme nur den 2. nicht rein.
Anbei der Code:
'Deklaration
Dim warnings As Microsoft.Reporting.WinForms.Warning() = Nothing
Dim path As String
path = Application.StartupPath
Dim streamids As String() = Nothing
Dim mimeType As String = String.Empty
Dim encoding As String = String.Empty
Dim extension As String = String.Empty
Dim bytes As Byte() = Nothing
Dim bytes1 As Byte() = Nothing
Dim sfd As SaveFileDialog
sfd = New SaveFileDialog()
sfd.InitialDirectory = ""
sfd.Filter = "xls (*.xls)|*.xls"
sfd.Title = "Wählen Sie den Speicherort für die Auswertung aus"
'Bytes aus 1. Bericht auslesen
bytes = Testkurz.ReportViewer1.LocalReport.Render("Excel", DBNull.Value.ToString(), mimeType, encoding, extension, streamids, warnings)
'Bytes aus 2. Bericht auslesen
bytes1 = Test.ReportViewer1.LocalReport.Render("Excel", DBNull.Value.ToString(), mimeType, encoding, extension, streamids, warnings)
'Bytes zusammenführen
Array.Resize(bytes, bytes.Length + bytes1.Length)
Array.Copy(bytes1, 0, bytes, bytes.Length - bytes1.Length, bytes1.Length)
'Filestream
fs = New IO.FileStream(sfd.FileName, System.IO.FileMode.Create, IO.FileAccess.Write)
fs.Write(bytes, 0, bytes.Length)
fs.Close()
Habt Ihr eine Idee?
Vielen Dank!
ich habe 2 unterschiedliche Berichte (rdlc) erstellt.
Diese möchte ich nun zusammen in eine Excelmappe rendern.
Mit einem Bericht funktioniert das auch wunderbar.
Ich bekomme nur den 2. nicht rein.
Anbei der Code:
'Deklaration
Dim warnings As Microsoft.Reporting.WinForms.Warning() = Nothing
Dim path As String
path = Application.StartupPath
Dim streamids As String() = Nothing
Dim mimeType As String = String.Empty
Dim encoding As String = String.Empty
Dim extension As String = String.Empty
Dim bytes As Byte() = Nothing
Dim bytes1 As Byte() = Nothing
Dim sfd As SaveFileDialog
sfd = New SaveFileDialog()
sfd.InitialDirectory = ""
sfd.Filter = "xls (*.xls)|*.xls"
sfd.Title = "Wählen Sie den Speicherort für die Auswertung aus"
'Bytes aus 1. Bericht auslesen
bytes = Testkurz.ReportViewer1.LocalReport.Render("Excel", DBNull.Value.ToString(), mimeType, encoding, extension, streamids, warnings)
'Bytes aus 2. Bericht auslesen
bytes1 = Test.ReportViewer1.LocalReport.Render("Excel", DBNull.Value.ToString(), mimeType, encoding, extension, streamids, warnings)
'Bytes zusammenführen
Array.Resize(bytes, bytes.Length + bytes1.Length)
Array.Copy(bytes1, 0, bytes, bytes.Length - bytes1.Length, bytes1.Length)
'Filestream
fs = New IO.FileStream(sfd.FileName, System.IO.FileMode.Create, IO.FileAccess.Write)
fs.Write(bytes, 0, bytes.Length)
fs.Close()
Habt Ihr eine Idee?
Vielen Dank!