olá Tenho um código em VBA que utilizo atualmente para criação de arquivo txt segundo layout. Porem, algumas fontes de dados precisam ser tratadas e editadas. Estou com os dados já importados para dentro do Access. Alguém poderia me auxilar o que devo fazer para alterar estes códigos VBA, que uso em excel postados abaixo, para rodarem em planilha de dados do access? Obrigado. Segue linha Vba em excel, p/ conversão e rodar em Access. Sub ExportarParaTXT() Dim i As Long Dim Arquivo As String Dim Wf As WorksheetFunction Dim Dt As Date Dim Debito As String Dim Credito As String Dim Valor As String Dim Historico As String Dim Compl As String Dim mf As String Dim compl1 As String Dim Sequencial As Long Set Wf = WorksheetFunction Arquivo = "C:\Temp\Teste.txt" Sequencial = 1 Open Arquivo For Output As #1 For i = 1 To ActiveSheet.UsedRange.Rows.Count Dt = Cells(i, "A").Value Conta1 = Format(Cells(i, "B").Value, Wf.Rept("0", 7)) Conta2 = Format(Cells(i, "C").Value, Wf.Rept("0", 7)) Valor2 = Format(Cells(i, "D").Value * 100, Wf.Rept("0", 15)) Conta3 = Format(Cells(i, "E").Value, Wf.Rept("0", 7)) Compl = Cells(i, "F").Value mf = Format(Cells(i, "g").Value, Wf.Rept("0", 7)) Print #1, "02" & Format(Sequencial, Wf.Rept("0", 7)) & "X" & Dt & _ "vagner" & Wf.Rept(" ", 30 - Len("vagner")) _ & branco; Wf.Rept(" ", 100 - Len(branco)) Sequencial = Sequencial + 1 Print #1, "03" & Format(Sequencial, Wf.Rept("0", 7)) & Debito & _ Credito & Valor & Historico & Compl & Wf.Rept(" ", 512 - Len(Compl)) _ & mf & compl1 & Wf.Rept(" ", 100 - Len(compl1)) Sequencial = Sequencial + 1 Next Print #1, "9"; Wf.Rept("9", 99) Close End Sub
