Executar um macro dentro de outro macro.
Enviado: 15 Jun 2021 às 14:39
Boa tarde pessoal,
Estou querendo automatizar uns processos, só que para isto eu preciso executar um macro dentro de outro macro. Estou com dificuldade para conseguir fazer isto.
Segue um exemplo do que preciso. Deixei a parte que estou com problemas em negrito.
Sub abrir_fechar_planilha_geral_valores()
'
' abrir_fechar_planilha_geral_valores Macro
' Abri e fechar a planilha geral de valores para atualizar itens principais.
'
'
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
ActiveWorkbook.Save
ActiveWindow.Close
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
EXECUTAR MACRO ABRIR SALVAR FECHAR
ActiveWorkbook.Save
ActiveWindow.Close
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
ActiveWorkbook.Save
ActiveWindow.Close
End Sub.
O macro abrir salvar e fechar é este abaixo. Ele pode demorar uns 10 minutos abrindo e fechando arquivos, tenho que prever este tempo em algum lugar para o macro acima?
Estou querendo automatizar uns processos, só que para isto eu preciso executar um macro dentro de outro macro. Estou com dificuldade para conseguir fazer isto.
Segue um exemplo do que preciso. Deixei a parte que estou com problemas em negrito.
Sub abrir_fechar_planilha_geral_valores()
'
' abrir_fechar_planilha_geral_valores Macro
' Abri e fechar a planilha geral de valores para atualizar itens principais.
'
'
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
ActiveWorkbook.Save
ActiveWindow.Close
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
EXECUTAR MACRO ABRIR SALVAR FECHAR
ActiveWorkbook.Save
ActiveWindow.Close
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
ActiveWorkbook.Save
ActiveWindow.Close
End Sub.
O macro abrir salvar e fechar é este abaixo. Ele pode demorar uns 10 minutos abrindo e fechando arquivos, tenho que prever este tempo em algum lugar para o macro acima?
Código: Selecionar todos
Sub Abrir_salvar_fechar()
'
'
'
Range("A3:A999").Select
For Each Cell In Selection
If Not IsEmpty(Cell.Value) Then
Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close
End If
Next Cell
End Sub
