MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exportar Consulta em .txt para local na rede

    Compartilhe

    LeoStar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 18/05/2010

    [Resolvido]Exportar Consulta em .txt para local na rede

    Mensagem  LeoStar em Ter 10 Fev 2015, 17:12

    Caros colegas do fórum,

    Estou com um problema que agradecia uma resposta tão breve quanto possível.

    Pretendo exportar para uma localização na rede uma consulta do access 2010 sob a forma de ficheiro .txt.

    Mas essa consulta tem que ao ser exportada assumir um determinado nome para o ficheiro que vai ser criado.

    O código que deveria fazê-lo funciona em termos de criação do ficheiro e exportação,  mas com um problema: não consigo atribuir ao ficheiro o nome desejado.

    No parâmetro da função que atribui o nome ao ficheiro indico o caminho da localização na rede mas depois precisava que o nome do ficheiro assumisse o valor da variável, no caso concreto o valor da variável "strNomeFich". Só que  não estou a conseguir pois ele escreve o nome da variável e não o seu valor. Depois também tentei definindo uma outra variável (strFichFinal) que me desse o caminho completo mas não funciona também pois atribui ao ficheiro o nome da variável e exporta para a minha máquina e não para a localização devida. Como devo fazer???

    Bem haja antecipadamente pelo vosso tempo e pela vossa "expertise"!!!!

    Aqui segue o código para análise e correcção:

    Private Sub Macro2()
    On Error GoTo Macro2_Err

       Const Caminho = "\\ETJAD003\Users\Public\GESCOLATESTES\"

       Dim strNomeFich As String

       Dim strFichFinal As String


       strNomeFich = Forms!FormOperacoesMensais!TxtFichSIS

       strFichFinal = Caminho & strNomeFich
       
    1ª Tentativa: DoCmd.OutputTo acOutputQuery, "Consulta SISCOLAR EXPORTFILE FINAL", "MS-DOSText(*.txt)", "\\ETJAD003\Users\Public\GESCOLATESTES\ & strNomeFich",  False, "", 1, acExportQualityPrint

    2ª Tentativa: DoCmd.OutputTo acOutputQuery, "Consulta SISCOLAR EXPORTFILE FINAL", "MS-DOSText(*.txt)", "strFichFinal", False, "", 1, acExportQualityPrint


    Macro2_Exit:
       Exit Sub

    Macro2_Err:
       MsgBox Error$
       Resume Macro2_Exit

    End Sub

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Exportar Consulta em .txt para local na rede

    Mensagem  Roberto_1977 em Ter 10 Fev 2015, 17:27

    Boa tarde,

    Experimente adaptar código abaixo para sua necessidade....

    Private Sub Command253_Click()
    Dim strArquivo As String ' Nome que voce quer dar ao seu ficheiro txt
    Dim strLocal As String 'Caminho onde vai ficar seu ficheiro txt
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    strArquivo = "NovoNomeFicheiro" & ".txt"
    strLocal = "C:" & "\" & strArquivo
    DoCmd.OutputTo acOutputReport, "SeuRelatório", acFormattxt, strLocal, False
    MsgBox "Arquivo criado com sucesso.", vbInformation, "Enviar para " & strArquivo
    End Sub

    Caso preciso poste aqui sua BD para dar um help...

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

    LeoStar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 18/05/2010

    Exportar Consulta em .txt para local na rede

    Mensagem  LeoStar em Ter 10 Fev 2015, 18:07

    Caro colega Roberto_1977

    Bem haja pela sua pronta resposta e óptima solução!!!

    Abraço.

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Exportar Consulta em .txt para local na rede

    Mensagem  Roberto_1977 em Ter 10 Fev 2015, 18:58

    Boa tarde,

    Ainda bem que pude ajudar...

    Abraço.... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qua 07 Dez 2016, 18:16