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

    Maximizar Excel via VBA

    avatar
    Paulo_CWB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 13/09/2013

    Maximizar Excel via VBA Empty Maximizar Excel via VBA

    Mensagem  Paulo_CWB 13/9/2013, 21:43

    Boa tarde.
    Sempre consulto este fórum, pelo elevado nível dos participantes e das informações. Este é meu primeiro post pois acabei de me cadastrar.

    Tenho uma aplicação em MS Access onde uma rotina em VBA transfere dados de um formulário para uma planilha do excel. O código no Access abre a planilha, transfere os dados, mas.... a planilha fica minimizada na barra de tarefas do windows. Preciso que a planilha seja maximizada, para que o usuário passe a trabalhar nela (ou, ao menos, perceba que a planilha está ativa... pois só ficar piscando na barra de tarefas nem sempre garante que o usuário vai perceber).

    Já tentei algumas coisas, mas sem sucesso.

    Eu abri a planilha assim (VBA dentro do Access):
    ==============================
    Dim LOCAL_01 As String
    LOCAL_01 = "J:\1TdB\##1_Transc\PaperWork_1.XLS"

    Set AUXX = CreateObject("Excel.Application")

    Set FOLDER_01 = AUXX.Workbooks.Open(LOCAL_01)
    AUXX.Visible = True

    (depois disso, faço a transferência dos dados)
    FOLDER_01.Application.Cells(34, 3).Value = FFT
    (etc)
    ===================================

    Alguma sugestão, para que a planilha fica maximizada na tela?

    Abraços a todos.

    Paulo
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Maximizar Excel via VBA Empty Re: Maximizar Excel via VBA

    Mensagem  criquio 13/9/2013, 23:32

    Talvez assim:

    AUXX.Application.WindowState = xlMaximized


    .................................................................................
    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
    Paulo_CWB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 13/09/2013

    Maximizar Excel via VBA Empty Re: Maximizar Excel via VBA

    Mensagem  Paulo_CWB 14/9/2013, 04:02

    Infelizmente ainda não deu certo.
    Aparece mensagem:

    "Erro em tempo de execução 1004.
    Não é possível definir a propriedade WindowState da classe aplicattion".

    Tá estranho ainda.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Maximizar Excel via VBA Empty Re: Maximizar Excel via VBA

    Mensagem  criquio 15/9/2013, 13:13

    Tente no evento "Open" do "Workbook" do xls. Abra-o, pressione Alt+F11, abra o módulo "Esta_pasta_de_trabalho", aonde está "Geral", mude para "Workbook". Irá criar um evento Workbook_Open. Coloque a mesma linha que passei na mensagem anterior sem o AUXX.:

    Application.WindowState = xlMaximized


    .................................................................................
    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


    Maximizar Excel via VBA Empty Re: Maximizar Excel via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2024, 06:00