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

🙂