Scribd
Upload
148 views3 pages

Exportar Datos a Excel desde TXT

This document contains code for importing data from an Excel file into a DataGridView in Visual Basic. It includes a method to export data from a DataGridView to an Excel file, and a button click event handler to open a file dialog and import the data from the selected Excel file into a DataTable, which is then set as the data source for the DataGridView.

Uploaded by

Belkiss Caceres
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
148 views3 pages

Exportar Datos a Excel desde TXT

This document contains code for importing data from an Excel file into a DataGridView in Visual Basic. It includes a method to export data from a DataGridView to an Excel file, and a button click event handler to open a file dialog and import the data from the selected Excel file into a DataTable, which is then set as the data source for the DataGridView.

Uploaded by

Belkiss Caceres
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Libreria:

Imports [Link]

Public Class Form1

Public Sub Exportar_Excel(ByVal dgv As DataGridView, ByVal pth As String)

Dim xlApp As Object = CreateObject("[Link]")

'crear una nueva hoja de calculo

Dim xlWB As Object = [Link]

Dim xlWS As Object = [Link](1)

'exportamos los caracteres de las columnas

For c As Integer = 0 To [Link] - 1

[Link](1, c + 1).value = [Link](c).HeaderText

Next

'exportamos las cabeceras de columnas

For r As Integer = 0 To [Link] - 1

For c As Integer = 0 To [Link] - 1

[Link](r + 2, c + 1).value = [Link](c, r).Value

Next

Next

'guardamos la hoja de calculo en la ruta especificada

[Link](pth)

xlWS = Nothing

xlWB = Nothing

[Link]()

xlApp = Nothing
End Sub

Private Sub GenerarEXCEL_Click(sender As Object, e As EventArgs) Handles


[Link]

Dim save As New SaveFileDialog

[Link] = "Archivo Excel | *.xlsx"

If [Link] = [Link] Then

Exportar_Excel(EMPLEADOSDataGridView, [Link])

End If

End Sub

Codigo de boton

Private Sub Button1_Click(sender As Object, e As EventArgs)

Dim stRuta As String = ""

Dim openFD As New OpenFileDialog

With openFD

.Title = "Seleccionar archivos"

.Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*xlsx|Todos los archivos(*.*)|*.*"

.Multiselect = False

.InitialDirectory = [Link]

If .ShowDialog = [Link] Then

stRuta = .FileName

End If

End With

Try

Dim stConexion As String = ("Provider=[Link].12.0;" & ("Data Source=" &


(stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";")))

Dim cnConex As New OleDbConnection(stConexion)


Dim Cmd As New OleDbCommand("Select * From [Hoja1$]")

Dim Ds As New DataSet

Dim Da As New OleDbDataAdapter

Dim Dt As New DataTable

[Link]()

[Link] = cnConex

[Link] = Cmd

[Link](Ds)

Dt = [Link](0)

[Link] = Dt

Catch ex As Exception

MsgBox([Link], [Link], "Error")

End Try

End Sub

End Class

You might also like