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
Início