De Excel a Texto pasando por un DataGridView


” Crear un archivo de texto con el contenido
” de las celdas de un DataGridView de los
” datos cargados de una hoja de excel.


Hoja



Imports System.Data.OleDb

Public Class Form1
    ‘Definir conexion,adaptador y Dataset
    Private MiConexion As New OleDbConnection _
    (“Provider=Microsoft.Jet.OLEDB.4.0;” + _
     “Extended Properties = ‘Excel 8.0’;” + _
     “Data Source=|DataDirectory|\libro1.xls;”)
    Private MiAdaptador As New OleDbDataAdapter(“SELECT * FROM [Hoja1$]”, MiConexion)
    Private MiDataSet As New DataSet()

    Private Sub Form1_Load() Handles MyBase.Load
        ‘Abrir y llenar el DGV con la hoja de excel
        MiConexion.Open()
        MiAdaptador.Fill(MiDataSet)
        Me.DataGridView1.DataSource = MiDataSet.Tables(0)
        ‘Crear un documento de texto
        Dim ATexto = IO.File.CreateText(“MiExport.txt”)
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                ‘Añadir una entrada por celda
                ATexto.Write(row.Cells(col.Index).Value)
                ‘separar con un tabulador
                ATexto.Write(Chr(Keys.Tab))
            Next
            ‘Añadir una linea por fila
            ATexto.WriteLine()
        Next
        ATexto.Close()
    End Sub

End Class

Bloc
🙂
 

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.