Views

Histats

Vitrine

VBA Excel - Criando novas Planilhas a partir das pastas existentes em uma planilha.

Como criar várias planilhas diferentes a partir das pastas dentro da minha planilha?

Sub SavePlansAtWorkBook()
    Dim
nPath As String
    Dim nExt as String
    Dim nWS As Worksheet

    Let nPath = "P:\A&A\"
    Let nExt = ".xls"

    For Each nWS In ThisWorkbook.Worksheets
   
    nWS.Copy

   
    ActiveWorkbook.SaveAs _
        Filename:=nPath & nWS.Name & nExt

   
    ActiveWindow.Close
    Next nWS
End Sub

André Luiz Bernardes

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...