Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/09/2011, 19:45
Avatar de moradazo
moradazo
 
Fecha de Ingreso: julio-2008
Ubicación: [email protected]
Mensajes: 355
Antigüedad: 15 años, 9 meses
Puntos: 2
Exportar DataGrid a Excel, Visual Basic 2003

Hola amigos.

Tengo un código que me sirve para Visual Basic 2005 pero no con Visual Basic 2003.

Necesito exportar un DataGrid de Visual Basic 2003 a Excel, pero no se precisamente cual sería el código correcto. Tengo este código de VB 2005:

Código vb:
Ver original
  1. Dim xlApp As Excel.Application
  2.         Dim xlWorkBook As Excel.Workbook
  3.         Dim xlWorkSheet As Excel.Worksheet
  4.         Dim misValue As Object = System.Reflection.Missing.Value
  5.  
  6.         Dim i As Int16, j As Int16
  7.  
  8.         xlApp = New Excel.ApplicationClass
  9.         xlWorkBook = xlApp.Workbooks.Add(misValue)
  10.         xlWorkSheet = xlWorkBook.Sheets("Hoja1")
  11.  
  12.         For C As Integer = 0 To DataGridView1.Columns.Count - 1
  13.             xlWorkSheet.Cells(1, C + 1).value = DataGridView1.Columns(C).HeaderText
  14.         Next
  15.         For i = 0 To DataGridView1.RowCount - 1
  16.             For j = 0 To DataGridView1.ColumnCount - 1
  17.                 xlWorkSheet.Cells(i + 2, j + 1).value = DataGridView1.Item(j, i).Value
  18.             Next
  19.         Next
  20.         xlWorkBook.SaveAs("C:\prueba.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, _
  21.          Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue)
  22.         xlWorkBook.Close(True, misValue, misValue)
  23.         xlApp.Quit()


Quería ver si me pueden ayudar a transformarlo para Visual Basic 2003, que me deje guardar, es que me da error en DataGridView1.Columns.Count, en DataGridView1.RowCount



Gracias!!!