Note: The other languages of the website are Google-translated. Back to English

如何在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文件保存/導出到指定的目標文件夾中。


使用Kutools for Excel批量保存或導出每張工作表為CSV / PDF文件

一些Excel用戶出於某些原因可能會拒絕VBA代碼。 別擔心! 第三種方法還可以輕鬆地將每個工作表批量保存或導出為.csv文件或PDF文件。 拆分工作簿 Kutools for Excel實用程序。

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

1。 點擊 企業 > 工作簿 > 拆分工作簿.

doc每個工作表到csv 2

2.在打開的“拆分工作簿”對話框中,

doc每個工作表到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 多種 Excel 便捷工具,30 天內免費試用,無限制。 立即下載並免費試用!

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (6)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
感謝您提供非常有用的提示。 我使用 vba 代碼將具有多張工作表的 excel 文件轉換為單獨的 csv 文件。 我想知道,如何指定我希望那些 csv 文件為 utf-8? 下面的代碼是否有添加該功能的附加功能? 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
網站主持人對此評論進行了最小化
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8,創建備份:=假
網站主持人對此評論進行了最小化
將 Excel 工作表導出為 CSV 時如何保留和維護小數值? 導出為 CSV 時,財務數據需要精確到小數點後 3 位嗎? 請指教
網站主持人對此評論進行了最小化
嗨prashan9810,
在將工作表從 Excel 導出為 CSV 之前,您最好更改貨幣數字的格式,並將其小數位固定為 3。
您可以按如下方式更改小數位:
1. 在 Excel 中,選擇貨幣單元格,右鍵單擊,然後選擇 單元格格式 從上下文菜單。
2. 在單元格格式對話框中,選擇 貨幣 or 會計類別 列錶框,輸入 3 小數位數 框,然後單擊 OK.
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
您好,感謝您提供這些提示! 我嘗試使用 VBA 代碼,但我收到以下語法的運行時錯誤代碼 91:

If folder.Show <> -1 Then Exit Sub

你能幫我解決問題嗎? 我是 VBA 新手。 :)
網站主持人對此評論進行了最小化
你好,

請確保您的模塊窗口中只有本教程中的 VBA 代碼。 如有其他代碼,請刪除或移至新模塊。

之後,請運行代碼。 如果還是不行,請使用下面的代碼:
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


阿曼達
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護