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

如何將Excel數據(選擇或工作表)導出到Excel中的文本文件?

如果需要以文本文件格式交付工作簿,則需要將工作簿轉換為文本文件。 本文將向您介紹兩種將Excel數據輕鬆導出到文本文件的方法。

將一張工作表導出到Excel中的文本文件

默認情況下,Excel數據將以以下格式保存為工作簿: 。XLSX。 但是,我們可以將現有工作簿的工作表導出為文本文件, 另存為 特徵。 請執行以下操作:

1. 轉到要導出到文本文件的工作表,然後單擊 文件 (或 辦公按鈕)> 另存為.

2. 在開 另存為 對話框中,選擇要將導出的文本文件保存到的目標文件夾,然後在 文件名 框,然後選擇 Unicode文本 (* .txt)來自 保存類型 下拉列表。 看截圖:
使用另存為功能導出到文本文件

3. 然後,它將彈出兩個警告對話框,要求您僅將活動工作表導出為文本文件,而忽略與文本文件不兼容的功能。 請點擊 OK 按鈕, 按鈕。

然後,活動工作表中的數據將導出為新的文本文件。

備註:“ 另存為 該命令只能將活動工作表的數據導出為文本文件。 如果要導出整個工作簿的所有數據,則需要將每個工作表分別保存為文本文件。


使用VBA將選擇內容(或一列)導出到文本文件

以下VBA代碼還可以幫助您將所選範圍數據(例如,一列)導出到文本文件,請執行以下操作:

1. 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模塊,然後將以下代碼粘貼到“模塊窗口”中。

VBA:將選擇或整個工作表導出到文本文件

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 然後按 F5 運行此代碼的關鍵。 然後在彈出的對話框中選擇要導出的數據范圍,然後單擊 OK 按鈕,請參見屏幕截圖:
選擇一列導出為文本文件

4. 現在,在另一個“另存為”對話框中,請為此文本文件指定一個名稱,並指定一個文件夾將該文件放入其中,然後單擊 節省 按鈕。


使用Kutools for Excel將選擇內容(或一列)導出到文本文件

另存為 命令可以將活動工作表中的所有數據導出為文本。 如果將指定的非活動工作表的所有數據或工作表中的部分數據導出為文本文件怎麼辦? Kutools for Excel's 將範圍導出到文件 實用程序可以幫助我們輕鬆地將所選內容導出並保存為文本文件。  

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

1. 選擇要導出到文本文件的範圍(在本例中,我們選擇列A),然後單擊 Kutools 加 > 導入/導出 > 將範圍導出到文件,請參見屏幕截圖:
Excel插件:將選擇導出到文本文件

2. 將範圍導出到文件 對話框,如下圖所示做截圖:
Excel插件:將選擇內容導出到文本文件
(1)檢查 Unicode文本 在選項 文件格式 部分;
(2)根據需要在“文本選項”部分中選中“保存實際值”選項或“保存屏幕上顯示的值”選項;
(3)指定要將導出的文本文件保存到的目標文件夾;
(4)點擊 Ok 按鈕。

3. 在新打開的對話框中命名導出的文本文件,然後單擊 Ok 按鈕。
命名導出的文本文件

然後,所選內容(選定的A列)已作為文本文件導出並保存到指定的文件夾中。

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


在Excel中將多個工作表導出到單獨的文本文件

有時您可能需要將多個工作表導出到Excel中的多個文本文件。 另存為功能可能有點乏味! 別擔心! Kutools for Excel的 拆分工作簿 該實用程序為Excel用戶提供了一種簡單的解決方法,只需單擊幾下即可將多個工作表導出到許多單獨的文本文件中。 

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

1。 點擊 Kutools 加 > 工作簿拆分工作簿。 看截圖:
Excel加載項:將多個工作表導出到文本文件

2.在打開的“拆分工作簿”對話框中,請執行以下操作:
Excel加載項:將多個工作表導出到文本文件
(1)檢查要導出到單獨文本文件中的工作表 工作簿名稱 部分;
(2)檢查 指定保存格式 選項,然後選擇 Unicode文本(* .txt) 從下面的下拉列表中,請參閱左側的屏幕截圖:
(3)點擊 分裂 按鈕。

3.然後在彈出的瀏覽文件夾對話框中,選擇要將導出的文本文件保存到的目標文件夾,然後單擊 OK 按鈕。

到目前為止,每個指定的工作表都已作為單獨的文本文件導出並保存到指定的文件夾中。

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

在Excel中輕鬆批量保存每張工作表為單獨的PDF / text / csv文件或工作簿

通常,我們可以使用另存為功能將活動工作表另存為單獨的.pdf文件,.txt文件或.csv文件。 但是Kutools for Excel的 拆分工作簿 實用程序可以幫助您輕鬆地將每個工作簿另存為單獨的PDF / TEXT / CSV文件或Excel中的工作簿。


廣告拆分工作簿pdf 1

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


演示:將Excel數據(選擇或工作表)導出到Excel中的文本文件


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底部
按評論排序
留言 (19)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
真的很有用嗎,謝謝 :D
網站主持人對此評論進行了最小化
需要將excel中的數據粘貼到記事本中,然後使用逗號分隔數據。 我該怎麼做呢
網站主持人對此評論進行了最小化
您需要選擇“另存為 .csv 文件”(逗號分隔值)
網站主持人對此評論進行了最小化
將我的 .xls 保存到 .txt 後出現問題,文件的大小越來越大,從 500kb 到 1,523kb 我該如何解決? 謝謝
網站主持人對此評論進行了最小化
你好! 我要導出為文本文件的單元格引用其他單元格並包含 if 代碼。 這意味著當我導出時,我沒有得到數值,而是“N/A”。 你知道我怎麼能解決這個問題嗎? 謝謝你。
網站主持人對此評論進行了最小化
有人知道如何為 excel 2016 MAC 做這件事嗎? 泰
網站主持人對此評論進行了最小化
我找到查詢的最佳網站之一。
網站主持人對此評論進行了最小化
我的查詢如下所述:我每天都要生成一份報告。 我在最後一行得到的數據(只有一行但多於一列)我希望它導出到另一個 Excel 表,這是一個單獨保存在我的桌面上的摘要 Excel 表。 例如:第 1 天報告 - 最後一行導出到匯總 excel 表第 1 天第 2 天報告 - 最終行導出到匯總 excel 表第 2 天第 3 天報告 - 最終行導出到匯總 excel 表第 3 行等等。導出應該通過單擊按鈕完成。,這意味著當我單擊導出按鈕時,我今天計算的工作表上的數據應該保存在摘要 excel 工作表第 1 行,第二天計算的新 excel 工作表報告應該保存在摘要 excel 工作表第 2 行,依此類推..這有可能嗎...如果是的話,請有人幫我解決這個問題...在此先感謝您... :-)
網站主持人對此評論進行了最小化
1/2(因為你的軟件限制了評論長度)我是一個認真的程序員,我想告訴你這裡的 VBA 代碼非常出色。 它很乾淨,沒有一條線太多,也沒有一條太少。 這是用於演示該過程的示例性編碼。 我還要提到,當我廣泛研究用於導出選擇的解決方案時,您和只有一個人建議將該範圍放入臨時新工作簿中。 所有其他答案都是痛苦的手動,逐個單元地遍歷。 甚至 Chip 的代碼更長,運行更慢(但故意如此,因為它更靈活 - 可指定的分隔符等)只是為了您的娛樂,我做了一些非常小的調整,但幾乎逐字逐句地提升了代碼,因為它基本上直接進入一個非常複雜和專業的應用程序。 其中一些調整是我確定你在實踐中所做的,但它們添加了代碼行(例如錯誤檢查),因此在此網頁上顯示它們會混淆你的顯示,因此處理的基本元素對讀者來說很麻煩跟隨。 無論如何:(見第2部分)
網站主持人對此評論進行了最小化
2/2 - vbYesNoCancel msgboxes 和布爾值以指示是否導出所有、選擇或用戶指定的範圍 - 先前範圍地址的靜態字符串 - 如果 len(that static)1 然後我設置 WorkRng=activesheet.UsedRange (你可以'不要用一個副本複制多個區域,儘管通過一些工作你可以遍歷這些區域並逐個複制它們。) - 愚蠢的微軟不會在保存範圍的開頭和底部保存空行,也不會保存關閉已保存範圍最左側和最右側的空列。 當我檢測到(UsedRange 不是第 1 行、第 1 列或 xlLastCell 不是完全右下角)時,我會在 msgbox 中詢問用戶是否要插入 A1 或右下角單元格。 - 然後我決定先發製人地解決左上角的問題,方法是插入一行並將 A1 設置為“以下是范圍”之類的文本 - 我用 activeworkbook.close SaveChanges:=False 關閉 - 因為我很生氣所以很長時間的習慣清理的支持者(世界是一個悲傷的地方,這要歸功於不負責任的程序員,他們在重要的時候推卸了責任),我設置了 WorkRng = Nothing 的出路:)
網站主持人對此評論進行了最小化
3/2 您可能還注意到,一旦您已經 .Add 工作簿,您就不需要指定 wb 前綴,因為它已變為活動狀態。 指定 wb 可能會或可能不會更有效,但可以從某些命令中省略。 實際上我完全廢棄了變量 wb; 我只是去 Workbooks.Add,並在需要時使用 ActiveWorkbook。 (當您抑制 ScreenUpdating 時,對於某些人來說 wb 處於活動狀態並不明顯。針對初學者(及更高級別)的提示:我總是使用 ScreenUpdating 和 DisplayAlerts 作為 True 進行開發,完成開發後,我考慮將它們關閉對於一些代碼段落。)
網站主持人對此評論進行了最小化
感謝您將數據導出到文本文件的精彩 VBA 代碼。 我已將您的代碼與我自己的一些代碼一起使用。 我正在處理的數據是非常特定於行長的,在宏運行後,文本文件在隨機位置包含一些雙引號 ",這在我的數據中從未出現過。我嘗試添加代碼行以刪除這個角色在各個階段,但似乎不起作用。我知道我可以手動刪除它,但想在 VBA 代碼中解決它。

Sub Macro3()
Dim wb As Workbook
將 saveFile 調暗為字符串
將 WorkRng 調暗為範圍
在錯誤恢復下一頁
選擇.自動篩選
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*",運算符:=xlAnd
範圍(“A1”)。選擇
ActiveCell.Offset(200, 0).Range("A1").Select
範圍(選擇,選擇。結束(xlDown))。選擇
ActiveCell.Rows("1:10101").EntireRow.Select
選擇.刪除 Shift:=xlUp
範圍(“A1”)。選擇
選擇.自動篩選
範圍(選擇,選擇。結束(xlDown))。選擇
設置 WorkRng = Application.Selection
設置 wb = Application.Workbooks.Add
Workrng.Copy
WB.Wooksheets(1).paste
選擇。替換內容:="""",替換:="",查看:=xlPart,_
搜索訂單:= xlByrows,matchcase:= false,searchformat:= false,_
替換格式:=假
saveFile = Application.GetSaveAsFilename(fileFilter:="文本文件 (*.txt), *.txt")
選擇。替換內容:="""",替換:="",查看:=xlPart,_
搜索訂單:= xlByrows,matchcase:= false,searchformat:= false,_
替換格式:=假
wb.SaveAs 文件名:=saveFile, FileFormat:=xlText, CreateBackup:=False
選擇。替換內容:="""",替換:="",查看:=xlPart,_
搜索訂單:= xlByrows,matchcase:= false,searchformat:= false,_
替換格式:=假
wb.關閉
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
END SUB
網站主持人對此評論進行了最小化
嗨,哈里什,
對於批量刪除指定字符,您可以將字符替換為空。
Ctrl + H 打開查找和替換對話框,在查找內容框中鍵入指定字符,然後在替換為框中鍵入註釋。
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
你好
感謝您的 VBA 代碼
有時某些文本在導出 .TXT 中有“文本”
謝謝你為什麼
網站主持人對此評論進行了最小化
大家好,我使用了該代碼:
子 ExportRangetoFile()
'更新 20130913
Dim wb As Workbook
將 saveFile 調暗為字符串
將 WorkRng 調暗為範圍
在錯誤恢復下一頁
xTitleId = "KutoolsforExcel"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
設置 wb = Application.Workbooks.Add
Workrng.Copy
WB.Wooksheets(1).paste
saveFile = Application.GetSaveAsFilename(fileFilter:="文本文件 (*.txt), *.txt")
wb.SaveAs 文件名:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.關閉
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
END SUB

並且可以工作,但是我需要保存包含函數“連接”的單元格的列,並且當我播放 vba 代碼並保存 .TXT 文件時,只有它出現的內容是 #REF。 我該如何解決? 因為我需要出現在該單元格上的數據?
網站主持人對此評論進行了最小化
有沒有人能夠解決這個問題? 我有相同的問題。
網站主持人對此評論進行了最小化
嗨,這段代碼對我很有用。 所以非常感謝。
我想問一下:當我使用此代碼時,新行會自動附加到 txt 內容的末尾。
你能幫我通過vba防止這種情況嗎?
網站主持人對此評論進行了最小化
嗨,這很好,非常感謝。
如何使用 VBA 將導出選擇(或一列)的代碼更改為文本文件以使用單元格 B2 的內容自動填充文件名?
網站主持人對此評論進行了最小化
如何使用 VBA 將導出選擇(或一列)的代碼修改為文本文件以使用單元格 B2 的內容自動填充文件名?
謝謝
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

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