Hola amigos de foros del web, soy nuevo en la programacion en Vb.net y actualmente estoy trabajando con vb.net 2003 y tengo una consulta.
Tengo el siguiente codigo y me gustaria adaptarlo para exportar unos registros de formulario que traigo a partir de una consulta en sql,me explico.
Genero un formulario en vb.net con interfaz web ,que a partir de una consulta trae los datos de un un usuario .
Nombre: Juan
Edad :30
Fecha_de nacimiento:26/09/1981
hasta aqui todo bien, los textbox se llenan con los resultados de la consulta ,pero necesito exportar esos datos a excel, y he tratado de adaptar el siguiente codigo que recorre los registros de un datagrid y los exporta a excel pero no he tenido buenos resultado.
Agradeceria vuestra ayuda,
CODIGO ORIGINAL
**********
Dim MyEx As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
MyEx.DisplayAlerts = False
MyBook = MyEx.Workbooks.Add
MySheet = MyBook.Sheets.Add
MySheet.Name = "Worksheet Name"
'Entering static values into cells as headers
MySheet.Cells(1, 1) = "Header 1"
MySheet.Cells(1, 2) = "Header 2"
MySheet.Cells(1, 3) = "Header 3"
MySheet.Cells(1, 4) = "Header 4"
MySheet.Cells(1, 5) = "Header 5"
MySheet.Cells(1, 6) = "Header 6"
'Reading through a data set to fill in the rest of the worksheet
For i = 0 To DataSet.Tables(0).Rows.Count - 1
MySheet.Cells(i + 2, 1) = DataSet.Tables(0).Rows(i).Item(0)
MySheet.Cells(i + 2, 2) = DataSet.Tables(0).Rows(i).Item(1)
MySheet.Cells(i + 2, 3) = DataSet.Tables(0).Rows(i).Item(2)
MySheet.Cells(i + 2, 4) = DataSet.Tables(0).Rows(i).Item(3)
MySheet.Cells(i + 2, 5) = DataSet.Tables(0).Rows(i).Item(4)
MySheet.Cells(i + 2, 6) = DataSet.Tables(0).Rows(i).Item(5)
Next
MyBook.SaveAs("FileName.csv", FileFormat:=Excel.XlFileFormat.xlCSV)
MyBook.Close()
MyEx.Quit()
MySheet = Nothing
MyBook = Nothing
MyEx = Nothing
System.GC.Collect()
MI CODIGO
**********
Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
'Dim MyEx As New Excel.Application
'Dim MyBook As Excel.Workbook
'Dim MySheet As Excel.Worksheet
Dim MyEx As New Microsoft.Office.Interop.Excel.Application
Dim MyBook As New Microsoft.Office.Interop.Excel.Workbook
Dim MySheet As New Microsoft.Office.Interop.Excel.Worksheet
MyEx.DisplayAlerts = False
MyBook = MyEx.Workbooks.Add
MySheet = MyBook.Worksheets.Add()
MySheet.Name = "Worksheet_Name"
'Entering static values into cells as headers
MySheet.Cells(1, 1) = "Header 1"
MySheet.Cells(1, 2) = "Header 2"
MySheet.Cells(1, 3) = "Header 3"
MySheet.Cells(1, 4) = "Header 4"
MySheet.Cells(1, 5) = "Header 5"
MySheet.Cells(1, 6) = "Header 6"
MySheet.Cells(1, 6) = "Header 7"
MySheet.Cells(1, 6) = "Header 8"
MySheet.Cells(1, 6) = "Header 9"
MySheet.Cells(1, 6) = "Header 10"
'Reading through a data set to fill in the rest of the worksheet
MySheet.Cells(0 + 2, 1) = txt_fecha_indi.Text
MySheet.Cells(1 + 2, 2) = txt_nombre_int_indi.Text
MySheet.Cells(2 + 2, 3) = txt_rut_int_indi.Text
MySheet.Cells(3 + 2, 4) = txt_nombre_esta_indi.Text
MySheet.Cells(4 + 2, 5) = txt_nombre_depend_indi.Text
MySheet.Cells(5 + 2, 6) = txt_nombre_gestor_caso_indi.Text
MySheet.Cells(6 + 2, 7) = txt_duracion_condena_indi.Text
MySheet.Cells(7 + 2, 8) = txt_fecha_cumpli_indi.Text
MySheet.Cells(8 + 2, 9) = txt_causa_ingreso_indi.Text
MySheet.Cells(9 + 2, 10) = txt_obs_indi.Text
MyBook.SaveAs("FileName.csv", FileFormat:=Excel.XlFileFormat.xlCSV)
MyBook.Close()
MyEx.Quit()
MySheet = Nothing
MyBook = Nothing
MyEx = Nothing
System.GC.Collect()
End Sub
Desde ya muchas Gracias
