Página 1 de 1
Abrir pasta de trabalho secundária
Enviado: 16 Mai 2016 às 10:05
por thiagoypu
Bom dia Senhores,
estou engatinhando em programação VBA e não tenho conhecimento suficiente para isso que pedirei auxílio.
Quero realizar um código aonde eu abra uma PASTA DE TRABALHO PRINCIPAL, e ao abri-la, outra PASTA DE TRABALHO, uma secundária, também abra e fique oculta.
Poderiam me ajudar?
Abçs!
Abrir pasta de trabalho secundária
Enviado: 16 Mai 2016 às 10:27
por Parkeless
Opa!
Tenta isso:
Código: Selecionar todosPrivate Sub Workbook_Open()
Dim Endereço As String
Dim Planilha As Workbook
'Coloque o endereço completo da planilha aqui
Endereço = "C:\Users\user\Desktop\MinhaPlanilha.xlsx"
Application.ScreenUpdating = False
Set Planilha = Workbooks.Open(Endereço)
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub
Obs.: O código não deve ser colado em um módulo, mas na própria Workbook, como demonstrado abaixo:
Abrir pasta de trabalho secundária
Enviado: 16 Mai 2016 às 11:34
por thiagoypu
Robson,
cara, sem palavras, acabou de me ajudar a resolver algo que estava tentando fazer sem VBA.
Vlw meu caro!!!
ABRIR PASTA DE TRABALHO SECUNDÁRIA II
Enviado: 16 Mai 2016 às 12:25
por thiagoypu
Robson,
tenho uma dúvida em relação ao tópico anterior que você me auxiliou. Infelizmente reparei isto depois que o concluí como resolvido.
O código está perfeito, o que reparei é que quando fecho a PLANILHA PRINCIPAL, o Excel me pergunta se quero salvar o arquivo, se digo que sim, quando retorno a abri-lo, não mais enxergo a Planilha, para que eu continue visualizando, tenho que clicar em não salvar.
Existe a possibilidade de criar um código em que quando eu feche a planilha não haja a pergunta? e deixá-lo, claro, como NÃO SALVAR?
Criei um exemplo que segue em anexo.
Abrir pasta de trabalho secundária
Enviado: 16 Mai 2016 às 13:11
por Kledison
Boa tarde,
Thiago, fundi os dois tópicos que você criou, se ao marcar resolvido em algum tópico e aparecer dúvidas relacionadas ao mesmo, fineza entrar em contato com os Moderadores/Administrador solicitando o destrancamento do tópico.
Att
Moderador
Abrir pasta de trabalho secundária
Enviado: 16 Mai 2016 às 13:53
por Parkeless
Olá Thiago!
Tenta substituir o código anterior por esse:
Código: Selecionar todosOption Explicit
Public Planilha As Workbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Planilha.Close (False)
End Sub
Private Sub Workbook_Open()
Dim Endereço As String
Endereço = "C:\Users\rlucas\Desktop\TiraICOPs.xlsx"
Application.ScreenUpdating = False
Set Planilha = Workbooks.Open(Endereço)
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub
Abrir pasta de trabalho secundária
Enviado: 16 Mai 2016 às 14:11
por thiagoypu
Primeiramente,
Klédison, obrigado por reabrir o tópico e desculpas pelo ocorrido. Estou bem habituado as diretrizes do forum e realmente me passei.
Robson,
Obrigado mais uma vez, ficou excelente e realmente o que precisava.
Abçs a todos!!!