Pessoal,

 

Preciso exportar dados de uma tabela para um arquivo texto com as seguintes caracteristicas:

 

Peça (Caracter de 1 a 8) parte namber (caracter de 9 a 16) data (caracter de 17 a 27).

Velu galera

 

 

algo mais ou menos assim:

Obs: nunca esqueça de preencher com espaços ou zeros para deixar sempre alinha o arquivo

 

'exportar txt peças
Private Sub Command3_Click()
  Dim rst As Recordset
  Dim strLinha As String
  Set rst = vgdb.OpenRecordset("exportar_txt")
  If rst.RecordCount > 0 Then
    rst.MoveMin
    Open "C:Teste.txt" For Output As #1
    Do While Not rst.EOF
      strLinha = ""
      strLinha = String(8 - Len(rst![peca]), "0") & rst![peca]
      strLinha = strLinha & rst![parte number] & String(8 - Len(rst![parte number]), " ")
      strLinha = strLinha & Format(rst![Data], "dd/mm/yyyy")
      Print #1, strLinha
      rst.MoveNext
    Loop
    Close #1
  End If
  MsgBox "Ok"
End Sub