Salvar DataSet a excel
Publicado por Gil (94 intervenciones) el 08/10/2004 00:15:16
Hola:
Como puedo guardar un data set en un archivo de excel... actualmente tengo el siguiente codigo, que lo que me permite es generar un archivo que no es de tipo excel que es el que requiero...........
De antemano gracias
Dim strFilename As String
Try
SaveFileDialog1.FileName = "Descarga"
SaveFileDialog1.DefaultExt = ".xls"
strFilename = SaveFileDialog1.FileName
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim fs As New System.IO.FileStream(strFilename, System.IO.FileMode.Create)
Dim xtw As New System.Xml.XmlTextWriter(fs, System.Text.Encoding.Unicode)
'xtw.WriteProcessingInstruction("xml", "version='1.0'")
dsTrims.WriteXml(xtw)
OleDbConnection1.Close()
MsgBox("Los datos del cliente se han exportado a " + SaveFileDialog1.FileName)
OleDbConnection1.Close()
fs.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
Como puedo guardar un data set en un archivo de excel... actualmente tengo el siguiente codigo, que lo que me permite es generar un archivo que no es de tipo excel que es el que requiero...........
De antemano gracias
Dim strFilename As String
Try
SaveFileDialog1.FileName = "Descarga"
SaveFileDialog1.DefaultExt = ".xls"
strFilename = SaveFileDialog1.FileName
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim fs As New System.IO.FileStream(strFilename, System.IO.FileMode.Create)
Dim xtw As New System.Xml.XmlTextWriter(fs, System.Text.Encoding.Unicode)
'xtw.WriteProcessingInstruction("xml", "version='1.0'")
dsTrims.WriteXml(xtw)
OleDbConnection1.Close()
MsgBox("Los datos del cliente se han exportado a " + SaveFileDialog1.FileName)
OleDbConnection1.Close()
fs.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
Valora esta pregunta


0