Я пытаюсь экспортировать таблицу данных в Excel и открыть электронную таблицу Excel (не СОХРАНИТЬ рабочую таблицу). Вот как далеко я продвинулась ...
Заранее спасибо!
Public Sub ExcelRpt (ByVal DgvName As GridView, ByVal url As String)
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
xlApp = New Microsoft.Office.Interop.Excel.Application
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = CType(xlWorkBook.Sheets(1), Worksheet)
For i = 0 To DgvName.Rows.Count - 2
For j = 0 To DgvName.Columns.Count - 1
For k As Integer = 1 To DgvName.Columns.Count
xlWorkSheet.Cells(1, k) = DgvName.Columns(k - 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = DgvName.Columns(j, i).Value.ToString()
Next
Next
Next
НЕОБХОДИМ НЕКОТОРЫЙ КОД ЗДЕСЬ !!!!
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
End Sub