Dividir o arquivo xls em pequenos arquivos xls [closed]

Question

Eu quero dividir o arquivo sample.xlsx (contendo 3 folhas) nos três diferentes sheet1.xlsx sheet2.xlsx sheet3.xlsx arquivos,
Eu tenho repositórios de pacotes John McNamara Perl VERSION = 2.37. Estou adicionando código de amostra de análise do arquivo do Excel

#!/usr/bin/perl

# Xls Parser : command : perl 
BEGIN {
    push (@INC,"/usr/local/buildpkgs/latest/perl");
}
use lib "/usr/local/buildpkgs/latest/perl/lib/site_perl/5.8.8";
use lib "/depot/perl-5.8.9/lib/site_perl/5.8.9";
use lib "/usr/local/buildpkgs/rev9/perl/ExcelWriter/lib/site_perl/5.8.3";

use Excel::Writer::XLSX;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseXLSX;
use Spreadsheet::WriteExcel;
use Spreadsheet::WriteExcel::Utility;

PS: O sample.xlsx não é um arquivo CSV.

    

Answer 1

Você pode executar este código

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
    Next

    Application.ScreenUpdating = True
End Sub

Sub BreakLinks(wb As Workbook)
    Dim lnk As Variant
    For Each lnk In wb.LinkSources(xlExcelLinks)
        wb.BreakLink lnk, xlLinkTypeExcelLinks
    Next
End Sub

Para executar o código, faça o seguinte:

1. Abra o editor de VBA ( Alt + F11 )
2. Na árvore no canto superior esquerdo, clique com o botão direito do mouse em sua pasta de trabalho e insira um novo módulo
3. Copie o código acima para este módulo
4. Feche o editor do VBA
5. No Excel, pressione Alt + F8 para executar as macros e selecione SaveSheets

Para obter mais ajuda sobre adição de VBA .