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]Comando Shell para abrir um arquivo excel ou outro comando?

    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Empty Comando Shell para abrir um arquivo excel ou outro comando?

    Mensagem  Clebergyn 21/12/2012, 05:40

    Quero abrir um arquivo excel usando um
    pat= Application.CurrentProject.path & "\Serviços-Materiais-" & Forms![Orçamento]![numprojeto]

    tenho usar o call shell(pat) ou call shell(pat & ".xls") ou call shell("exel.exe " & pat) e nao da certo, acho que é a pasta que eu tenho (programa n1) que tem espaços e esta cortanto... ou se tiver jeito pelo hiperlink pois tento tb e nao da certo

    nao sei por outro jeito mas se alguem souber como abrir um arquivo excel usando comando vba e usando um path, eu agradeço
    RafaelZorzo
    RafaelZorzo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 92
    Registrado : 25/08/2011

    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Empty Re: [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando?

    Mensagem  RafaelZorzo 21/12/2012, 07:31

    Não sei se é isso que desejas, mas dê uma olhada, veja se atende ao seu pedido.

    Código:
     Option Compare Database
    '--------------------------------------------------------------------------------------------
    'Do fórum Máximo Access
    'Sala de Repositórios de Exemplos
    '-----------------------------------------------------------------

    Function AbreExcel()
     Dim Exc As Object  'Excel.Application
     Dim xl As Object    'Excel.Workbook
     Set Exc = CreateObject("Excel.application")
     Set xl = Exc.workbooks.Open(CurrentProject.Path & "\Teste.xls")
     Exc.Visible = True
    End Function
    '-----------------------------------------------------------------
    'Para abrir um arquivo dentro da pasta do aplicativo utilize
    'Set xl = Exc.workbooks.Open(CurrentProject.Path & "\Teste.xls")
    'Para abrir um arquivo em um local específico utilize:
    'Set xl = Exc.Workbooks.Open ("c:\seuarquivo.xls")
    'Para abrir um arquivo em branco utilize:
    'Set xl = Exc.Workbooks.Add
    'Não esqueça que o arquivo aberto fica por baixo do BD
    '-----------------------------------------------------------------


    '-----------------------------------------------------------------
    'No evento ao clicar, em um botão coloque
    Private Sub Excel_Click()
    Call AbreExcel
    End Sub
    '-----------------------------------------------------------------


    .................................................................................
    Aprendi muito aqui...
    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? 45
    Arrow Regras do Fórum
    Arrow Faça uma busca no Fórum...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Empty Re: [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando?

    Mensagem  JPaulo 21/12/2012, 09:09

    Utilize a busca do fórum;

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

    http://maximoaccess.forumeiros.com/t8422-resolvidoabrir-planilha-protegida-pelo-access

    http://maximoaccess.forumeiros.com/t1323-abrir-word-ou-excel-sem-marcar-referencias



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Folder_announce_new Instruções SQL como utilizar...
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Empty Re: [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando?

    Mensagem  Clebergyn 22/12/2012, 03:37

    valeu, obrigado a toods!

    Conteúdo patrocinado


    [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando? Empty Re: [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 23:13