EXPORTAR DATAGRIDVIEW EM TXT FIXO

FERNANDOCTRLC 01/02/2013 14:34:25
#418577

Boa Tarde a Todos.

Estou desenvolvendo uma aplicação conversão de arquivos
eu recebo um arquivo em excel padrao todos os meses e preciso convertelo em txt fixo

O processo e o seguinte
Carrego a Planilha de execel no grid
verifico as informações se estão1
123
todas corretas
depois exporto em txt
o problema e a rotina de exportação em txtfixo que eu nao estou conseguindo

o meu layout de exportação e assim

[Ô]http://img705.imageshack.us/img705/3525/capturarwp.png[Ô]

Todo meu codigo esta assim
[Ô]Imports System.Data.OleDb
Imports System.IO

Public Class Form1

Private da As OleDbDataAdapter
Private dt As DataTable


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim conexao_Excel As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=[Ô] + TextBox1.Text + [Ô];Extended Properties=Excel 8.0;[Ô]

[ô] cria um novo dataadapter
da = New OleDbDataAdapter([Ô]SELECT * FROM [Plan1$][Ô], conexao_Excel)
[ô]
[ô] preenche a tabela com dados da planilha Excel
dt = New DataTable
da.Fill(dt)
[ô] define a chave primaria
[ô] dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
[ô] registros somente podem ser inseridos usando esta tecnica
dt.DefaultView.AllowDelete = False
dt.DefaultView.AllowEdit = True
dt.DefaultView.AllowNew = True

[ô] vincula o modo de visao padrão da tabela ao datagrid
dgExcel.DataSource = dt.DefaultView

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
OpenFileDialog1.Filter = [Ô]Arquivos do Excel 2003 (*.xls)|*.xls[Ô]
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName

End Sub
End Class
[Ô]

Dede ja Muinto Obrigado a todos pela ajuda