MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Módulo VBA para exportar dados

    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Módulo VBA para exportar dados Empty [Resolvido]Módulo VBA para exportar dados

    Mensagem  Belobo 22/9/2015, 04:08

    Olá
    Tenho uma consulta que traz Dados para imprimir códigos de barra
    O layout é Código / Nome / qtde
    Gostaria de gerar uma exportação que transformasse as linhas em arquivos individuais TXT
    Ou seja para os 2 exemplos abaixo seriam gerados 2 arquivos contendo os dados da tabela
    O nome do arquivo poderia enumerados de 1 a infinito conforme a qtde de dados da tabela
    00001 camisa 10
    00002 calça. 20
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Módulo VBA para exportar dados Empty Re: [Resolvido]Módulo VBA para exportar dados

    Mensagem  Fernando Bueno 22/9/2015, 11:10

    Bom dia;

    Procure na sala de repositório por código de barras, vai encontrar alguns exemplos.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Módulo VBA para exportar dados 16rzeq
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Módulo VBA para exportar dados Empty Re: [Resolvido]Módulo VBA para exportar dados

    Mensagem  Belobo 22/9/2015, 12:41

    Prezado Fernando
    Talvez tenha me expressado mal
    Hoje já tenho uma rotina que faz os códigos de barra e já funciona.
    O que preciso é exportar os dados de uma tabela para arquivos individuais
    Ou seja se a tabela possuir 10 registros estes serão exportados em arquivos separados automaticamente
    Ou seja vou parar de fazer isto manualmente !!
    Estuardo
    Estuardo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 24/09/2014

    [Resolvido]Módulo VBA para exportar dados Empty Re: [Resolvido]Módulo VBA para exportar dados

    Mensagem  Estuardo 7/10/2015, 15:05

    Boa Tarde,
    Não sei como vas implementar a solução... mas o seguinte extracto faz o que pretendes:

    Código:

    Private Const Barcodedir As String = "c:\BarcodeFiles\"


    Public Function RowToFile()
        On Error GoTo Err_Handler
        Dim rst As ADODB.Recordset
       
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        Dim oFile As Object
       
        Dim i As Integer
        Dim t As Integer
        Dim strFileName As String
        Dim strRow As String
        Dim strHeader As String

        Set rst = New ADODB.Recordset
        rst.ActiveConnection = CurrentProject.Connection
        rst.CursorType = adOpenStatic
        rst.LockType = adLockReadOnly

        rst.Open "Select codigo, nome, qtde  From tblYourTable", Options:=adCmdText
        t = rst.RecordCount
       
        strHeader = "Código" & VBA.vbTab & VBA.vbTab & "Nome" & VBA.vbTab & VBA.vbTab & "Qde"

        For i = 1 To t
              strFileName = Barcodedir & "BarCode_" & i & "_" & NewGuid & ".txt"
              Set oFile = fso.CreateTextFile(strFileName)
              strRow = rst("codigo") & VBA.vbTab & VBA.vbTab & rst("Nome") & VBA.vbTab & VBA.vbTab & rst("Qde")
              oFile.WriteLine strHeader
              oFile.WriteLine "======================================================================"
              oFile.WriteLine strRow
              oFile.Close
              rst.MoveNext
        Next i
     
     
       
    Exit_Handler:
        rst.Close
        Set rst = Nothing
        Set fso = Nothing
        Set oFile = Nothing
        Exit Function
    Err_Handler:
        VBA.MsgBox Err.Description, , "Error in function RowToFile"
        Resume Exit_Handler
    End Function


    [color=#33ff00]'Esta função é opcional, neste caso é para ter certeza que no vou ter nome de ficheiros duplicados[/color]
    Public Function NewGuid() As String

    NewGuid = VBA.Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)


    End Function
    Repara que estou a utilizar ADO e não DAO, pelo que, se ainda não tens uma referência para ADO deves acrecentar uma.
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Módulo VBA para exportar dados Empty Re: [Resolvido]Módulo VBA para exportar dados

    Mensagem  Belobo 7/10/2015, 22:48

    Obrigado Estuardo

    Seu codigo funcionou dentro do que esperava. Agora tenho que fazer minhas atualizacoes de acordo com a minha base. Muito Grato!!
    Estuardo
    Estuardo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 24/09/2014

    [Resolvido]Módulo VBA para exportar dados Empty Re: [Resolvido]Módulo VBA para exportar dados

    Mensagem  Estuardo 7/10/2015, 23:44

    Um prazer meu caro.

    Conteúdo patrocinado


    [Resolvido]Módulo VBA para exportar dados Empty Re: [Resolvido]Módulo VBA para exportar dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:43