Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Código VBA Excel P/ Access

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Mateus Fava



Mensagens : 1
Data de inscrição : 16/07/2012

MensagemAssunto: Código VBA Excel P/ Access   Seg Jul 16, 2012 8:36 pm

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

lol!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Código VBA Excel P/ Access
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Importar Dados Do Excel Para o Access - DAO
» Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo
» Passar código VBA em Excel para Access
» Executar Macro excel pelo Access
» Importação automatizada de excel para access

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: