como salvar uma pasta de trabalho do excel com várias planilhas em vários arquivos csv correspondentes no excel 2013?

Question

Eu tenho uma pasta de trabalho do Excel que tem cerca de 125 planilhas e eu preciso ser capaz de salvar cada uma dessas 125 planilhas em arquivos csv (para que eu acabe com um total de 125 arquivos CSV)

atualmente é possível fazer isso manualmente (arquivar > salvar como tipo de arquivo > csv), mas apenas de tal maneira: 1ª planilha - > 1º csv 2ª planilha - > 2º csv . . e assim por diante

Existe uma maneira de salvar a pasta de trabalho inteira de uma só vez, em vez de salvar apenas a planilha ativa no momento e, em seguida, passar para a próxima ....?

    

Answer 1

De Use a macro VBA para salvar cada planilha do Excel como uma pasta de trabalho separada da Sorceri:

Mantendo a planilha na pasta de trabalho existente e criando uma nova pasta de trabalho com uma cópia

Dim path As String
Dim dt As String
dt = Now()
path = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Calendars " & Replace(Replace(dt, ":", "."), "/", ".")
MkDir path
Call Shell("explorer.exe" & " " & path, vbNormalFocus)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets 'SetVersions
    If ws.Name <> "How-To" And ws.Name <> "Actg_Prd" Then
        Dim wb As Workbook
        Set wb = ws.Application.Workbooks.Add
        ws.Copy Before:=wb.Sheets(1)
        wb.SaveAs path & ws.Name, Excel.XlFileFormat.xlOpenXMLWorkbook
        Set wb = Nothing
    End If
Next ws

Outra solução pode ser encontrada em Crie uma pasta de trabalho em cada planilha em sua pasta de trabalho :

This macro will copy every visible worksheet in a new workbook and save the workbook with the name of the sheet in a newly created folder in the same path as the workbook with this macro.