☰

xls 파일을 작은 xls 파일로 분할 [닫기]

tag-icon • tag-icon filesystems perl tcsh
xls 파일을 작은 xls 파일로 분할 [닫기]

sample.xlsx파일(3개 시트 포함)을 3개의 다른 sheet1.xlsx sheet2.xlsx sheet3.xlsx파일 로 분할 하고 싶습니다
. 존 맥나마라Perl 패키지 저장소 버전 = 2.37.
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;


추신: 이것은 sample.xlsxCSV 파일이 아닙니다.

답변1

이 코드를 실행할 수 있습니다.

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

코드를 실행하려면 다음을 수행합니다.

  1. VBA 편집기 열기( Alt+ F11)
  2. 왼쪽 상단에 있는 트리에서 통합 문서를 마우스 오른쪽 버튼으로 클릭하고 새 모듈을 삽입합니다.
  3. 위 코드를 이 모듈에 복사하세요.
  4. VBA 편집기 닫기
  5. Excel에서 Alt+를 눌러 F8매크로를 실행하고 선택합니다.SaveSheets

추가 도움이 필요한 경우VBA 추가.

관련 정보