Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Repetir macro (Loop...
 
Notifications
Clear all

Repetir macro (Looping)

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
1,940 Visualizações
RSS
 Celso Yano
(@celso-yano)
Posts: 6
Active Member
Topic starter
 

Boa tarde.
Eu criei uma macro que exporta os dados de uma planilha para um arquivo txt.
No entanto, minha pasta de trabalho tem qse 50 planilhas a ser exportada.
gostaria de complementar o código de forma que qdo eu execute ela ... a macro repetisse o código até a ultima planilha automaticamente criando um looping

Sub SALVAR()
NOME = ActiveSheet.Name
ChDir ThisWorkbook.Path
ActiveWorkbook.SaveAs NOME & "" & ".PRN", FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveSheet.Next.Select
End Sub

Alguem pode me ajudar?

 
Postado : 19/12/2011 4:15 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Celso, use :

    Sub SALVAR()
    
    Dim ws As Worksheet
    
    ChDir ThisWorkbook.Path
    
        For Each ws In ThisWorkbook.Worksheets
            ws.Activate
            NOME = ws.Name
        
            ActiveWorkbook.SaveAs NOME & "" & ".PRN", FileFormat:=xlTextPrinter, CreateBackup:=False
        
        Next ws
        
    End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/12/2011 10:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico