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


2 participantes

    [Resolvido]Gravando arquivo em C:

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Gravando arquivo em C: Empty Gravando arquivo em C:

    Mensagem  Robert_2012 9/4/2012, 12:27

    Caros,

    Bom dia

    Estou precisando de mais uma ajuda para fazer o seguinte com meu arquivo.

    Tenho uma planilha em excel que acessa o banco de dados utilizando o VBA.

    Nome da Planilha ( Planej.xls )

    o que preciso fazer.

    A Planilha fica na Rede H:\Meu_Plan\Planej.xls

    Quando a pessoa abrir a planilha eu preciso checar se essa planilha existe na maquina da pessoa em um diretório chamado C:\Planejando e se a planilha esta nesse diretório.

    Se existir devo emitir uma mensagem para a pessoa informando que ela deverá abrir a planilha que esta em sua maquina, e quando ela der um OK, fechar o arquivo que foi aberto.

    Caso não exista a planilha em sua maquina, gostaria que fosse criado a pasta chamada C:\Planejando e automaticamente salvasse esse arquivo que esta aberto nesse diretório. acabando de salvar fechar o arquivo.

    Será que é muito complicado fazer isso?

    Alguém já fez algo assim?



    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Gravando arquivo em C: Empty Re: [Resolvido]Gravando arquivo em C:

    Mensagem  criquio 9/4/2012, 13:12

    Olá! É bem simples. Mas, não seria melhor verificar se o arquivo local existe e caso existir, já abri-lo e caso não exista, copiar do outro local? O usuário nem precisa saber o que está acontecendo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Gravando arquivo em C: Empty Gravando arquivo em C:

    Mensagem  Robert_2012 9/4/2012, 13:24

    Pode ser sim,

    Como ficaria o código para fazer isso?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Gravando arquivo em C: Empty Re: [Resolvido]Gravando arquivo em C:

    Mensagem  criquio 9/4/2012, 13:46

    Em um módulo global:

    Código:
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    No botão que vai abrir o documento:

    Código:
    Dim cDoc As String, dRemoto As string, dLocal As String

    If Len(Dir("C:\Planejando\Planej.xls", vbArchive)) = 0 Then
        If Len(Dir("C:\Planejando\", vbDirectory)) = 0 Then
            MkDir "C:\Planejando\"
        Else
            dRemoto = "H:\Meu_Plan\Planej.xls"
            dLocal = "C:\Planejando\Planej.xls"
            FileCopy dRemoto, dLocal
        End If
    End If
        cDoc = "C:\Planejando\Planej.xls"
        Call ShellExecute(0, vbNullString, cDoc, vbNullString, vbNullString, 1)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Gravando arquivo em C: Empty Re: [Resolvido]Gravando arquivo em C:

    Mensagem  Robert_2012 9/4/2012, 14:28

    Criquio,

    Ele cria o diretorio no C: mas na hora de copiar o arquivo

    FileCopy dRemoto, dLocal

    ela da mesagem de erro

    erro em tempo de execução 70
    permissão negada.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Gravando arquivo em C: Empty Re: [Resolvido]Gravando arquivo em C:

    Mensagem  criquio 9/4/2012, 14:48

    Talvez precise rever as permissões de gravação da pasta. Ela é compartilhada com permissão de gravação? Tambem pode tentar criar um objeto Excel, abrir o documento de origem e gravá-lo no novo caminho. Algo assim:

    Código:
        Dim cDoc As String, dExcel As Object
    If Len(Dir("C:\Planejando\Planej.xls", vbArchive)) = 0 Then
        If Len(Dir("C:\Planejando\", vbDirectory)) = 0 Then
            MkDir "C:\Planejando\"
        Else
            Set dExcel = CreateObject("Excel.Application")
            dExcel.workbooks.Open "H:\Meu_Plan\Planej.xls"
            dExcel.Visible = False
            dExcel.ActiveWorkbook.SaveAs "C:\Planejando\Planej.xls"
            dExcel.Application.Quit
            Set dExcel = Nothing
        End If
    End If
        cDoc = "C:\Planejando\Planej.xls"
        Call ShellExecute(0, vbNullString, cDoc, vbNullString, vbNullString, 1)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Gravando arquivo em C: Empty Gravando arquivo em C:

    Mensagem  Robert_2012 10/4/2012, 12:38

    Criquio,

    Deu certo

    Muito obrigado pela ajuda.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Gravando arquivo em C: Empty Re: [Resolvido]Gravando arquivo em C:

    Mensagem  criquio 10/4/2012, 17:06

    Grato pelo retorno.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Gravando arquivo em C: Empty Re: [Resolvido]Gravando arquivo em C:

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:29