EXPORTAR TXT LARGURA FIXA

ALTAIR148 11/02/2011 20:35:45
#365201

Olha consegui resolver com esse código, tá meio bagunçado, mas vê ai se entende, desse jeito ai resolveu meu problema, qualquer coisa basta vc adptar. Se tiver com dificuldades dá um grito ai que eu te ajudo.

Private Sub Comando0_Click()
Dim DB As DAO.Database
Dim RSP As DAO.Recordset
Dim strSQL As String
Dim Sai As String
Dim RSP2 As DAO.Recordset
Dim strSQL2 As String
Dim Sai2 As String
Dim RSP3 As DAO.Recordset
Dim strSQL3 As String
Dim Sai3 As String
Dim ventrada1 As String * 4
Dim vsaida1 As String * 4
Dim ventrada2 As String * 4
Dim vsaida2 As String * 4
Dim Sai4 As String
Dim vhorario_geracao As String * 4


Dim vNome As String * 10
Dim vNome_empresa As String * 150
Dim vcodigo_funcionario As String * 10
Dim vCNPJ As String * 14
Dim vCEI_empregador As String * 12
Dim vdata_comeco As String * 8
Dim vdata_final As String * 8

Set DB = CurrentDb

strSQL = [Ô]SELECT nome_funcionario from cad_funcionario[Ô]
Set RSP = DB.OpenRecordset(strSQL)
strSQL = Application.CurrentProject.Path
Open strSQL & [Ô]\Teste.txt[Ô] For Output As #1

strSQL2 = [Ô]SELECT empresa, cnpj_empresa, cei_empresa from cad_empresa[Ô]
Set RSP2 = DB.OpenRecordset(strSQL2)
strSQL2 = Application.CurrentProject.Path


strSQL3 = [Ô]SELECT entrada1, saida1, entrada2, saida2 from cad_horarios[Ô]
Set RSP3 = DB.OpenRecordset(strSQL3)
strSQL3 = Application.CurrentProject.Path






[ô]Print #1, Sai2
With RSP2
teste1 = cont + 1
vCNPJ = (RSP2!cnpj_empresa)
vdata_comeco = Format(comeco, [Ô]DDMMYYYY[Ô])
vdata_final = Format(final, [Ô]DDMMYYYY[Ô])
vhorario_geracao = Format(horario_geracao, [Ô]hhmm[Ô])
[ô]vCEI_empregador = (RSP2!cei_empresa)
vNome_empresa = (RSP2!empresa)
Sai2 = Format(teste1, [Ô]000000000[Ô]) & 1 & 2 & vCNPJ & vCEI_empregador & vNome_empresa & vdata_comeco & vdata_final & vhorario_geracao
Print #1, Sai2
End With
[ô]Print #1, Sai4

With RSP3
.MoveFirst
Do While Not .EOF
cont2 = teste1 + 1
ventrada1 = (RSP3!entrada1)
vsaida1 = (RSP3!saida1)
ventrada2 = (RSP3!entrada2)
vsaida2 = (RSP3!saida2)
Sai4 = Format(cont2, [Ô]00000000[Ô]) & Format(ventrada1, [Ô]HMS[Ô]) & Format(vsaida1, [Ô]HMS[Ô]) & Format(ventrada2, [Ô]HMS[Ô]) & Format(vsaida2, [Ô]HMS[Ô])
Print #1, Sai4
teste1 = cont2
.MoveNext
Loop
End With

With RSP
.MoveFirst
Do While Not .EOF
cont1 = teste1 + 1
vNome = (RSP!nome_funcionario)
Sai = Format(cont1, [Ô]00000000[Ô]) & vNome
Print #1, Sai
teste1 = cont1
Sai3 = Format(teste1 + 1, [Ô]00000000[Ô])
.MoveNext
Loop
End With
Print #1, Sai3






MsgBox [Ô]Exportado com Sucesso, verifique junto ao banco...[Ô]
Set DB = Nothing
Set RSP = Nothing
Set RSP2 = Nothing
Close #1
Exit Sub
End Sub


Obrigado.
Abraços...