메인 컨텐츠로 가기

Excel에서 각 시트를 CSV / PDF 파일로 저장하거나 내보내는 방법은 무엇입니까?

예를 들어 여러 시트가 포함 된 큰 통합 문서가 있고 각 시트를 개별 .csv 파일 또는 PDF 파일로 저장하거나 내보내려는 경우 쉽고 빠르게 수행하는 방법은 무엇입니까? 이 기사에서는이를 해결하는 몇 가지 방법을 소개합니다.


다른 이름으로 저장 기능을 사용하여 각 시트를 CSV / PDF 파일로 저장 또는 내보내기

아시다시피 Microsoft Excel은 현재 워크 시트를 개별 .csv 파일 또는 PDF 파일로 저장할 수 있습니다. 따라서 모든 시트를 .csv 파일 또는 PDF 파일로 하나씩 수동으로 저장하거나 내보낼 수 있습니다.

1. 개별 .csv 파일로 저장하거나 내보낼 시트로 전환하고 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 (또는 사무실 버튼)> 다른 이름으로 저장.

2. 열기 대화 상자에서 .csv 파일을 저장할 대상 폴더를 지정하고 형식으로 저장 상자 및 선택 CSV (쉼표로 구분) (*. csv) or PDF (*. pdf) 드롭 다운 목록에서 찜하기 버튼을 클릭합니다.

3. 두 개의 경고 대화 상자가 연속적으로 나타납니다. 클릭하세요 OK > 가능.

참고 : 활성 워크 시트를 PDF 파일로 저장하면 이러한 대화 상자가 나타나지 않습니다. 다음 단계로 이동하십시오.

4. 위의 1-3 단계를 반복하여 다른 시트를 개별 .csv 파일로 하나씩 저장합니다.


VBA를 사용하여 각 시트를 CSV 파일로 일괄 저장 또는 내보내기

.csv 파일로 저장하거나 내보내려는 시트가 많은 경우 첫 번째 방법은 시간이 많이 걸리고 지루합니다. 이 VBA는 작업을 단순화하고 각 시트를 .csv 파일로 쉽게 저장하거나 내보낼 수 있습니다.

1. 프레스 다른 + F11 키를 동시에 눌러 Microsoft Visual Basic for Application 창을 엽니 다.

2. 클릭 끼워 넣다 > 모듈, 다음 VBA 코드를 새 모듈 창에 붙여 넣습니다.

VBA : 모든 시트를 개별 CSV 파일로 저장

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. 을 클릭합니다 달리기 버튼을 누르거나 누르십시오. F5 이 VBA를 실행하는 키입니다.

4. 열기 찾아보기 대화 상자에서 모든 .csv 파일을 저장할 대상 폴더를 지정하고 OK 버튼을 클릭합니다.

그러면 모든 시트가 지정된 대상 폴더에 개별 .csv 파일로 저장 / 내 보낸 것을 볼 수 있습니다.


Excel 용 Kutools를 사용하여 각 시트를 CSV / PDF 파일로 일괄 저장 또는 내보내기

일부 Excel 사용자는 어떤 이유로 VBA 코드를 거부 할 수 있습니다. 걱정 하지마! 세 번째 방법은 또한 각 시트를 .csv 파일 또는 PDF 파일로 쉽게 일괄 저장하거나 내보낼 수 있습니다. 통합 문서 분할 Excel 용 Kutools 유틸리티.

Excel 용 Kutools - 300개 이상의 필수 도구로 Excel을 강화하세요. 신용카드 없이 모든 기능을 갖춘 30일 무료 평가판을 즐겨보세요! 이제 그것을 잡아

1. 을 클릭합니다 Enterprise > 통합 문서 > 통합 문서 분할.

각 시트를 csv 2에 문서화

2. 통합 문서 분할 열기 대화 상자에서

각 시트를 csv 8에 문서화

(1) 모든 시트를 계속 선택하십시오. 그렇지 않은 경우 전에 확인란을 선택할 수 있습니다. 워크 시트 이름 모든 시트를 선택하려면;

(2) 확인 저장 형식 지정 선택권;

(3) 아래 상자를 클릭하십시오 저장 형식 지정 옵션을 선택하고 CSV (Macintosh) (*. csv) or PDF (*. pdf) 드롭 다운 목록에서.

(4) 스플릿 버튼을 클릭합니다.

 

주의 사항: 통합 문서에 숨겨진 빈 워크 시트가있는 경우 숨겨진 워크 시트 건너 뛰기 상자와 빈 워크 시트 건너 뛰기 상자는 내보내는 동안 비어 있거나 숨겨진 모든 시트를 무시합니다.

Excel 용 Kutools - 300개 이상의 필수 도구로 Excel을 강화하세요. 신용카드 없이 모든 기능을 갖춘 30일 무료 평가판을 즐겨보세요! 이제 그것을 잡아

3. 폴더 찾아보기 대화 상자를 열고 모든 .csv 파일 또는 PDF 파일을 저장할 대상 폴더를 지정하고 OK 버튼을 클릭합니다.

이제 모든 시트가 내보내지고 지정된 폴더에 개별 .csv 파일로 저장되는 것을 볼 수 있습니다.


데모 : 각 시트를 Excel에서 CSV / PDF 파일로 저장 또는 내보내기


Excel 용 Kutools: 300개 이상의 편리한 도구를 손쉽게 사용할 수 있습니다! 지금 바로 기능 제한 없이 30일 무료 평가판을 시작해 보세요. 지금 다운로드!

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations