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