在Excel中插入照片的简单步骤和实用技巧
230
2023-12-26
如何在Excel中将多列导出到单个文本文件？
如何在Excel中将多列导出到单个文本文件？
通常，您可以使用“另存为”功能将工作表快速轻松地导出到Excel中的txt文件。 但是，您是否曾经尝试过将每个列数据从Excel工作表分别保存到文本文件中？ 本文，我将讨论如何尽快解决此工作。
使用VBA代码将多列导出到单个文本文件
将多个工作表导出到单独的文本/pdf/csv 文件中 Kutools for Excel
使用VBA代码将多列导出到单个文本文件以下VBA代码可以帮助您在Excel中将每个列数据分别保存到文本文件中，请执行以下操作：
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块，然后将以下宏粘贴到 模块 窗口。
VBA代码：将多列导出到单个文本文件中：
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
Copy
3。 粘贴代码后，请按 F5 运行此代码的关键，以及 浏览器 弹出对话框，然后选择一个文件夹来放置导出的文本文件，请参见屏幕截图：
4。 然后点击 OK 按钮，活动工作表中的每个列数据已分别导出到文本文件中，请参见屏幕截图：
将多个工作表导出到单独的文本/pdf/csv 文件中 Kutools for Excel如果您需要将多个工作表导出为单个文本，pdf或csv文件，则 Kutools for Excel“ 拆分工作簿 功能可以帮您一个忙。
备注:申请这个 拆分工作簿，首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。
安装后 Kutools for Excel, 请执行以下步骤：
1。 点击 Kutools 加 > 工作簿 > 拆分工作簿，请参见屏幕截图：
2。 在 拆分工作簿 对话框中，选中要另存为txt，pdf，csv文件的工作表，然后选中 保存类型 选项，然后选择您要另存为的文件类型，然后单击 分裂 按钮，在显示的 浏览文件夹 对话框中，选择一个文件夹来放置导出的文件，请参见屏幕截图：
3。 然后点击 OK 按钮，并且您选择的工作表已根据需要导出为单个特定文件格式，请参见屏幕截图：
点击下载并免费试用 Kutools for Excel 现在！
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
