Excel中如何将选中的区域数据保存为文本文件

本文将价格书如何将Excel工作表中选中的区域中的数据保存到的一个文本文件中。如何在Excel 2013/2016中的通过使用VBA宏将当前工作表中的选择的数据区域内容复制/粘贴到记事本文本文件中。

假设您的工作表中有一个区域范围为B1：B5的数据列表，并且您希望将此选择区域内容复制到另一个工作表或记事本文本文件，并将其另存为.txt或xlsx。您可以手动将选择复制到剪贴板，打开Notebook文件或您使用的文本应用程序，也可以打开一个空白工作表，然后将其粘贴到该文件中并保存为文件。这种方法可行，但这不是一个好方法。您可以使用Excel VBA宏 快速自动的完成这一操作。本文将向您讲述如何使用Excel VBA代码将一系列选中的数据区域保存到文本文件中。

将选中区域内容保存为文本文件

您可以使用Excel VBA宏将选中的数据区域内容保存为文本文件，而无需复制和粘贴到新文件。只需执行以下步骤：

步骤1：打开您的Excel工作簿，然后单击DEVELOPER选项卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步骤2：然后将出现“Visual Basic编辑器”窗口。

步骤3：单击“插入” – >“模块”以创建新模块。

步骤4：将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。

Sub SaveSelectionAsTextFile()
Dim myFolder As String
'By Joe Was.
'Save Range as Text File.
Set myRange = Application.Selection
Set myRange = Application.InputBox("Select one Range to be copied", "SaveSelectionAsTextFile", myRange.Address, Type:=8)
ActiveSheet.Activate
myRange.Copy
'This temporarily adds a sheet named "Test."
Sheets.Add.Name = "Test"
Sheets("Test").Select
ActiveSheet.Paste
'Ask user for folder to save text file to.
myFolder = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
'Save selected data as text file in users selected folder.
ActiveWorkbook.SaveAs Filename:=myFolder, FileFormat:=xlText, CreateBackup:=False
'Remove temporary sheet.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Indicate save action.
MsgBox "Text File: " & myFolder & "Saved!"
'Go to top of sheet.
Range("A1").Select
End Sub

步骤5：返回当前工作表，然后运行上面的excel宏。点击运行按钮。

步骤6：选择一个要复制的范围。单击确定按钮。

步骤7：在“另存为”对话框的“文件名”文本框中输入一个文件名。单击保存按钮。

步骤8：在本地磁盘中打开新创建的文本文件test1112.txt。