Código VBA p/ access layout txt

[Mateus Fava]

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