textbox a excel

Hola coservitel

Para crear y manipular un archivo Excel desde tu código, en primer lugar
añade a tu proyecto las referencias a las librerías: Microsoft Office 11.0
Object Library y Microsoft Excel 11.0 Object Library, que están en la pestaña
COM del cuadro de diálogo de añadir referencias.

A continuación declara e instancia un objeto Excel.Application, le añades un
nuevo libro de trabajo y mediante la propiedad Range del objeto Excel, vas
añadiendo los valores a las celdas.

Te adjunto un bloque de código de ejemplo:

'///////////////////////////////////////
Dim oExcel As Excel.Application = New Excel.Application
oExcel.Visible = True
oExcel.WindowState = Excel.XlWindowState.xlNormal
oExcel.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)

oExcel.Range("A1", "A1").Value = "Código:"
oExcel.Range("B1", "B1").Value = Me.txtCodigoZona.Text

oExcel.Range("A2", "A2").Value = "Nombre:"
oExcel.Range("B2", "B2").Value = Me.txtNombreZona.Text
'
'///////////////////////////////////////

Espero que te sea de utilidad para lo que necesitas.

Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"" wrote:

hola amigos tengo este codigo el cual crea un archivo txt con los datos
de una columna de un abd especifica los cuales estan mostrados en unos
texboxs alguien sabe una manera de hacer los mismo pero en vez de
guardarlos en un archivo de text los guarde en una hoja de excel o pdf
gracias

imports system.io
imports.system.data.sqlclient
Private Sub btimprimir_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btimprimir.Click
Dim SaveFileDialog1 As New SaveFileDialog
With SaveFileDialog1
.Filter = "Archivo plano de texto (*.txt)|*.txt"
.Title = "Grabar registro actual a *.txt"
.OverwritePrompt = False
End With
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK
Then
Dim fs As New FileStream(SaveFileDialog1.FileName,
FileMode.Append)
Dim sr As New StreamWriter(fs)
sr.WriteLine("codigo: " & txtcodigozona.Text)
sr.WriteLine("Nombre: " & txtnombrezona.Text)
sr.WriteLine("Fecha Alta: " & dtpaltazona.Value)
sr.WriteLine("Detalles: " & txtdetallezona.Text)
sr.WriteLine(" ")
sr.WriteLine("")
sr.WriteLine(" ")
sr.Close()
End If
End Sub