Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
계좌 개설  \/ 
x

or

Excel에서 각 워크 시트를 별도의 새 통합 문서로 내보내고 저장하는 방법은 무엇입니까?

하나 또는 여러 워크 시트를 새 통합 문서로 내보내고 저장하려고한다고 가정 해 보겠습니다. 어떻게 처리 하시겠습니까? 일반적으로 각 워크 시트를 복사하여 새 워크 북에 붙여 넣을 수 있습니다. 그러나 여기서 우리는 그것을 다루는 몇 가지 유용한 트릭을 제공합니다.

이동 또는 복사 명령을 사용하여 워크 시트를 새 통합 문서로 내보내기 및 저장

VBA 코드를 사용하여 워크 시트를 새 통합 문서로 내보내기 및 저장

Excel 용 Kutools를 사용하여 워크 시트를 새 통합 문서로 내보내기 및 저장 좋은 생각 3


화살표 블루 오른쪽 거품 이동 또는 복사 명령을 사용하여 워크 시트를 새 통합 문서로 내보내기 및 저장

를 사용하여 이동 또는 복사 명령을 사용하면 하나 또는 여러 워크 시트를 새 통합 문서로 빠르게 내보내거나 복사 할 수 있습니다.

1 단계 : 탭 표시 줄에서 워크 시트 이름을 선택합니다. 길게 눌러 여러 개를 선택할 수 있습니다. Ctrl 키 열쇠 또는 변화 키.

2 단계 : 워크 시트 이름을 마우스 오른쪽 단추로 클릭하고 이동 또는 복사 상황에 맞는 메뉴에서.
문서 내보내기 시트 1

3 단계 : 이동 또는 복사 대화 상자에서 (새 책) 드롭 다운 목록의 항목 선택한 시트를 책으로 이동.

문서 내보내기 시트 2

4 단계 : 그런 다음 OK, 이제로 전환했습니다. 새 통합 문서 내보내거나 복사 한 워크 시트를 사용하여 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 찜하기 새 통합 문서를 저장합니다.

참고 : . 이동 또는 복사 대화 상자에는 사본 만들기 선택권. 선택하지 않으면 선택한 워크 시트가 원래 통합 문서 밖으로 이동됩니다. 체크하면 선택한 워크 시트를 복사합니다.


Excel에서 여러 워크 시트를 별도의 통합 문서로 빠르게 분할

Microsoft Excel에서는이 워크 시트를 복사하여 새 통합 문서에 붙여 넣어 한 통합 문서의 워크 시트를 새 Excel 파일로 저장하거나 분할 할 수 있습니다. 큰 통합 문서의 각 시트 / 워크 시트를 별도의 Excel, txt, csv, pdf 파일로 분할하려면 번거로운 것 같습니다. 하지만 함께 Excel 용 Kutools통합 문서 분할 유틸리티를 사용하면 신속하게 처리 할 수 ​​있습니다.  모든 기능이 포함된 30일 무료 평가판을 보려면 클릭하세요!
문서 분할 통합 문서 1
 
Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다.

화살표 블루 오른쪽 거품 VBA 코드를 사용하여 워크 시트를 새 통합 문서로 내보내기 및 저장

이 다음 코드는 새 통합 문서에서 보이는 모든 워크 시트를 내보내고 활성 통합 문서와 동일한 경로에 새로 만든 폴더에 원본 시트의 이름으로 통합 문서를 저장합니다. 다음 단계를 따르십시오.

1 단계 : ALT + F11 키가 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

2 단계 : 클릭 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 매크로를 붙여 넣습니다.

VBA : 워크 시트를 새 폴더에 새 통합 문서로 내보내고 저장합니다.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

3 단계 : F5 이 코드를 실행하는 키입니다. 그리고 새로 내 보낸 통합 문서의 위치를 ​​알려주는 프롬프트 상자가 나타나고 원본 통합 문서의 모든 워크 시트가 새 특정 폴더의 원본 시트 이름이 지정된 새로운 별도 통합 문서로 내보내졌습니다. 스크린 샷보기 :

문서 내보내기 시트 7

화살표 블루 오른쪽 거품 Excel 용 Kutools를 사용하여 워크 시트를 새 통합 문서로 내보내기 및 저장

별도의 통합 문서로 저장해야하는 여러 워크 시트가있는 경우 첫 번째 방법은 좋은 선택이 될 수 없습니다. 그리고 VBA 코드는 Excel 초보자에게는 약간 복잡 할 수 있습니다. 여기에서 사용할 수 있습니다 통합 문서 분할 ~의 유용성 Excel 용 Kutools 한 통합 문서의 각 워크 시트를 빠르고 쉽게 내보내고 별도의 새 통합 문서에 저장합니다.

Excel 용 Kutools, 이상과 300 편리한 기능으로 작업이 더 쉬워집니다. 

무료 설치 Excel 용 Kutools는 다음과 같이하십시오.

1 단계 : 클릭 쿠툴즈 플러스 > 통합 문서 > 통합 문서 분할…. 스크린 샷보기 :
문서 내보내기 시트 3

2 단계 : 통합 문서 분할 대화 상자에서 다음과 같이하십시오.

문서 내보내기 시트 4
1: 기본적으로 모든 워크 시트 이름이 선택되어 있습니다. 일부 워크 시트를 분할하지 않으려면 선택 취소 할 수 있습니다.


2: 숨겨진 워크 시트 나 빈 워크 시트를 분할하지 않으려면 숨겨진 워크 시트 건너 뛰기 or 빈 워크 시트 건너 뛰기.);


3: 또한 확인할 수 있습니다 저장 지정 형식을 선택하고 시트 분할을 선택한 다음 텍스트 파일, pdf 파일 또는 csv 파일로 저장합니다. 기본적으로이 옵션을 선택하지 않으면 시트를 분할하고 통합 문서로 저장합니다.

3 단계 : 그런 다음 스플릿 단추를 클릭하고 새 통합 문서를 넣을 폴더를 선택하십시오. 스크린 샷보기 :
문서 내보내기 시트 6

4 단계 : 그런 다음 OK을 클릭 한 다음 통합 문서 분할 대화 상자를 내보내고 개별 통합 문서로 저장합니다. 각각의 새 통합 문서는 원래 워크 시트 이름으로 이름이 지정됩니다. 스크린 샷보기 :
문서 내보내기 시트 5

이 분할 통합 문서 도구에 대한 자세한 정보를 보려면 클릭하십시오..

화살표 블루 오른쪽 거품 각 시트를 새 통합 문서로 내보내기 및 저장


Excel의 열 또는 고정 행을 기반으로 데이터를 여러 워크 시트로 빠르게 분할

A ~ G 열에 데이터가있는 워크 시트가 있다고 가정하면 영업 사원의 이름은 A 열에 있으며 동일한 통합 문서의 A 열을 기준으로이 데이터를 여러 워크 시트로 자동 분할해야하며 각 판매원은 새로운 워크 시트로 분할됩니다. 워크 시트. Excel 용 Kutools분할 날짜 유틸리티는 Excel에 표시된 아래 스크린 샷과 같이 선택한 열을 기반으로 데이터를 여러 워크 시트로 빠르게 분할하는 데 도움이 될 수 있습니다.  모든 기능을 갖춘 30일 무료 평가판을 보려면 클릭하십시오!
문서 분할 데이터 2
 
Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다.

관련 기사 :


최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 향상시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성이 50% 증가하고 매일 수백 번의 마우스 클릭이 줄어듭니다!
officetab 하단
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    mbtedrick@aol.com · 1 months ago
    I have been using this VBA Code for some time and it worked like a charm until I changed computers.  I have the same version of excel but now I am getting a Run Time Error "76" Path Not found.  Any ideas what could be causing this?  It looks like it is hanging up at MkDir.  Any help you can provide is appreciated.
  • To post as a guest, your comment is unpublished.
    Lisa · 2 months ago
    You are amazing! Thank you so very much!
  • To post as a guest, your comment is unpublished.
    Nadine · 7 months ago
    Thank you so much ! great and useful.
  • To post as a guest, your comment is unpublished.
    Sameer Kuppanath · 10 months ago
    For Each xWs In xWb.Worksheets

    How to do export only selected / grouped sheets to separate excel sheets by using this code.?
  • To post as a guest, your comment is unpublished.
    Issybeee · 1 years ago
    Hi there,

    Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
  • To post as a guest, your comment is unpublished.
    Tobias vP · 1 years ago
    For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

    Set xWb = Application.ThisWorkbook to

    Set xWB = ActiveWorkbook

    That will make the macro run from the Active Workbook instead and save in a subfolder to that.

  • To post as a guest, your comment is unpublished.
    Diego · 1 years ago
    With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      You can directly click the Run button of the Microsoft Visual Basic for Applications window.
  • To post as a guest, your comment is unpublished.
    kerstin · 2 years ago
    Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
  • To post as a guest, your comment is unpublished.
    SS · 2 years ago
    This is a fantastic piece of work, thanks a lot.
    Do we have any option to select only specific columns in a worksheet to be exported?
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Hi, SS, if you want to export a specific selection as a individual file, this article can help you https://www.extendoffice.com/documents/excel/626-excel-save-selection.html
  • To post as a guest, your comment is unpublished.
    JR · 2 years ago
    For anybody who finds the VBA code is not running as expected, try to change Line 9 to "Set xWb = Application.ActiveWorkbook"

    Otherwise, fantastic! Does exactly as described, and runs fairly quickly
  • To post as a guest, your comment is unpublished.
    Vinod Pingale · 2 years ago
    very nice.... Thanks
  • To post as a guest, your comment is unpublished.
    PK · 2 years ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
      • To post as a guest, your comment is unpublished.
        brahim · 1 years ago
        xWs.Copy this methode give me an erreor 1004
  • To post as a guest, your comment is unpublished.
    Sergii · 2 years ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 3 years ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Sorry, I have no idea,neither.
  • To post as a guest, your comment is unpublished.
    Jenne · 3 years ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 3 years ago
    what is the use of Worksheet.Save??
    • To post as a guest, your comment is unpublished.
      erick · 3 years ago
      to save the changes made
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      What? I do not understand.
  • To post as a guest, your comment is unpublished.
    Eunice · 3 years ago
    Hi Sunny,

    Thank you for sharing this code!

    I keep getting this error "Compile Error: Wrong number of arguments or invalid property assignment" at the "format" portion of the following string:

    DateString = format(Now, "yyyy-mm-dd hh-mm-ss")
  • To post as a guest, your comment is unpublished.
    Borges · 3 years ago
    Hi, I use this VBA code all the time to separate commission statements into individual spreadsheets. Is it possible to add a line to the code so it will automatically email the report to each person using outlook?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Soryy I did not know a code can do that, but you can split the workbook first, then apply Kutools for Excel's Create Mailing List and Send Emails utilities to create a mailing list, and then send the reports as attachments to each person. For more detail, please go to visit this article https://www.extendoffice.com/product/kutools-for-excel/excel-create-mailing-list-and-send-email.html
  • To post as a guest, your comment is unpublished.
    dilshadrana46@gmail.com · 3 years ago
    i cant find enterprise toolbar kindly help me
  • To post as a guest, your comment is unpublished.
    dilshadrana46@gmail.com · 3 years ago
    this code cahnge dates in my sheets
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      What dates have been changed? The modified dates? The Enterprise tab will be appeared after installing Kutools for Excel.
  • To post as a guest, your comment is unpublished.
    Isuru · 4 years ago
    xWs.Copy line comes up with an error in my case with 2016 "Method 'Copy of object'_Worksheet' failed.
    Please suggest me a correction if possible.
    • To post as a guest, your comment is unpublished.
      Sunny · 4 years ago
      Sorry, I have no idea about your problem.
  • To post as a guest, your comment is unpublished.
    Peggy · 4 years ago
    Hi,


    its totally work with the excel 2010.


    however, after i upgraded to Excel 2016, the code doesn't work.


    would you please advise which part should i be revised?
    • To post as a guest, your comment is unpublished.
      Sunny · 4 years ago
      Excuse me, which method you cannot use in Excel 2016? In my condition, all of the methods above do work in Excel 2016 perfectly
  • To post as a guest, your comment is unpublished.
    Omeir · 4 years ago
    Hi the second method worked great. Thank you. I have one question. This method saves each worksheet as a new workbook based on the name of the sheet. Is there anyway to add to the name, for example sheets have a variable name which is currently being saved. Can I add January 2017 or Feb 2017 to the files saved?
    • To post as a guest, your comment is unpublished.
      Sunny · 4 years ago
      Thanks for your leaving message, you can apply Kutools for Excel's Rename Multiple Worksheets to rename every sheets of the workbook firstly, then use one of above methods to export or save the sheets separately as workbook. If you want to know more detail on Rename Multiple Worksheet utility, please visit this:https://www.extendoffice.com/product/kutools-for-excel/batch-rename-excel-worksheets.html
  • To post as a guest, your comment is unpublished.
    Sarfraz · 4 years ago
    Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line.

    Thanks!
    Sarfraz
  • To post as a guest, your comment is unpublished.
    Aung · 4 years ago
    This is exactly what I needed! Awesome!
  • To post as a guest, your comment is unpublished.
    Rae · 4 years ago
    Hi. I received an error code that says "Compile error: Invalid outside procedure"...help!
  • To post as a guest, your comment is unpublished.
    DAS · 4 years ago
    Your code worked for me... Thanks much!!!
  • To post as a guest, your comment is unpublished.
    Richard · 4 years ago
    Can we also export ALL (300+) sheets to html,
    this will help me a lot, the export to unified text is already helping but I need them in html, or no table borders for the cell differences
  • To post as a guest, your comment is unpublished.
    Madhav Mehendale · 5 years ago
    Out of the above three methods, I found the first method to be quite good having regard to the fact that I am a beginner & my work is not at all of the same magnitude like professionals. My sincere thanks for explaining the steps in simple and lucid manner.
  • To post as a guest, your comment is unpublished.
    Beth G · 5 years ago
    Run time error Method 'Copy of Object' worksheet' failed
  • To post as a guest, your comment is unpublished.
    Beth G · 5 years ago
    xWs.Copy -it is an error in my part what does it mean?
  • To post as a guest, your comment is unpublished.
    Louise · 6 years ago
    Great article - VBA worked first time - perfect
  • To post as a guest, your comment is unpublished.
    Charlie Clarke · 6 years ago
    Unfortunately the VBA code didn't work for me. I had to debug and the issue is with the line:
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum

    Any ideas why it didn't work for me?
  • To post as a guest, your comment is unpublished.
    JoaoM · 6 years ago
    Muy buena la aplicacion.

    Es una pena no existir tambien en Español.

    Gracias
  • To post as a guest, your comment is unpublished.
    AC · 6 years ago
    Very Useful thanks! Loved the VBA Code
  • To post as a guest, your comment is unpublished.
    fauzan · 6 years ago
    thank. terimakasih. ini code yang saya butuhkan
  • To post as a guest, your comment is unpublished.
    farfan · 7 years ago
    The VBA codes works like magic, but is there a way for this to be done using VBScript? I'm going nuts trying to meet the requirement from my supervisor.
  • To post as a guest, your comment is unpublished.
    Chris · 7 years ago
    this code is perfect for what i need,
    but could you show code for the exact same process for one sheet rather than the entire workbook?
  • To post as a guest, your comment is unpublished.
    Sam · 7 years ago
    The code is failing at sh.Copy and I cannot figure out why. Any Ideas?
  • To post as a guest, your comment is unpublished.
    Votefor Pedro · 7 years ago
    Thank you. This is esactly what I needed.
  • To post as a guest, your comment is unpublished.
    Phani · 7 years ago
    Hi All,
    Can someone help me on below.
    I need VBA code that can copy only all visible sheets to new workbook and it should not copy macro code to new workbook, save new workbook on desktop with two different cell values in sheet and sheet name as a file name and close the master workbook without saving.
  • To post as a guest, your comment is unpublished.
    Keith · 7 years ago
    Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line.

    Thanks!
    Keith
  • To post as a guest, your comment is unpublished.
    Rajesh Jayagopi · 7 years ago
    Thanks a lot. Good Job!.
  • To post as a guest, your comment is unpublished.
    Sean · 7 years ago
    Hello I like the code
    Is it possible to just save the new workbook without the date information That is so when I resave the sheets in the previous workbook I will have the option to overwrite the changes rather than create another dated folder? Also but not so important how could I use another name and destination for the destination folder
    Regards
    Sean
  • To post as a guest, your comment is unpublished.
    Nasser · 7 years ago
    thanks alot, works very well and easy.