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

Coservitel,

Ya respondieron como guardar datos a una hoja de Excel.
Si deseas hacer lo mismo pero con PDF, puedes hacerlo con un programa
gratuito como CutePDF http://www.cutepdf.com
Una vez instalado solo le envias los parametro via shell desde .net y
transformara tus documentos en PDF.

Saludos

On Oct 8, 8:13 pm, 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

Conservitel,

Un ejemplo de como hacer lo que indique en mi otro post:

Private Sub Print_PDF()

Dim lRetVal As Long
Dim hKey As Long
Dim sValue As String
lRetVal = RegCreateKeyEx(HKEY_CURRENT_USER, "Software\Custom PDF
Printer", _
0&, vbNullString, REG_OPTION_NON_VOLATILE,
KEY_ALL_ACCESS, _
0&, hKey, lRetVal)
sValue = "C:\Sample.pdf"
RegSetValueExString hKey, "OutputFile", 0&, REG_SZ, sValue,
Len(sValue)
sValue = "1"
RegSetValueExString hKey, "BypassSaveAs", 0&, REG_SZ, sValue,
Len(sValue)
Dim worddoc As Word.Document
Set worddoc = wordapp.Documents.Open("C:\Sample.doc")
wordapp.ActivePrinter = "Custom PDF Printer"
wordapp.PrintOut
worddoc.Close

sValue = "0"
RegSetValueExString hKey, "BypassSaveAs", 0&, REG_SZ, sValue,
Len(sValue)
RegCloseKey (hKey)

End Sub


Saludos.

On Oct 8, 8:13 pm, 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

muchisimas gracias amigos de verdad estoy muy agradecido, solo una
pregunta mas, ya esta el ejemplo a excel y pdf , hay manera de pasarlo
a un documento html y a un docujmento pdf sin utilizar software de
terceros gracias de antemano