MaximoAccess

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

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
    avatar
    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.
    avatar
    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 28 Jun 2017, 18:30