vba 输出文本 m linux,VBA文本文件
还可以读取Excel文件，并使用VBA将单元格的内容写入文本文件。VBA允许用户使用两种方法处理文本文件 -
文件系统对象(FSO)
使用Write命令
文件系统对象(FSO)
顾名思义，FSO对象帮助开发人员使用驱动器，文件夹和文件。 在本节中，我们将讨论如何使用FSO。
编号
对象类型
描述
1
Drive
Drive是一个对象。 包含收集有关连接到系统的驱动器的信息的方法和属性。
2
Drives
Drives是一个集合。 它提供了连接到系统的驱动器的物理或逻辑列表。
3
File
File是一个对象。 它包含允许开发人员创建，删除或移动文件的方法和属性。
4
Files
Files是一个集合。 它提供了一个文件夹中包含的所有文件的列表。
5
Folder
Folder是一个对象。 它提供了允许开发人员创建，删除或移动文件夹的方法和属性。
6
Folders
Folders是一个集合。 它提供了一个文件夹内所有文件夹的列表。
7
TextStream
TextStream是一个对象。 它使开发人员能够读写文本文件。
Drive
Drive 是一个对象，它提供对特定磁盘驱动器或网络共享的属性的访问。 Drive对象支持以下属性 -
AvailableSpace
DriveLetter
DriveType
FileSystem
FreeSpace
IsReady
Path
RootFolder
SerialNumber
ShareName
TotalSize
VolumeName
示例
第1步 - 在使用FSO进行脚本编写之前，应该启用Microsoft脚本运行时。请导航到工具->引用，如以下屏幕截图所示。
第2步 - 添加“Microsoft脚本运行时间”，然后单击确定。
第3步 - 添加想要写入文本文件中的数据，这里添加一个命令按钮。
第4步 - 现在运行脚本。
Sub CommandButton1_Click()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim FilePath As String
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long
LastCol = ActiveSheet.UsedRange.Columns.Count
LastRow = ActiveSheet.UsedRange.Rows.Count
' Create a TextStream.
Set fso = CreateObject("Scripting.FileSystemObject")
Set stream = fso.OpenTextFile("F:\worksp\vba\Support.log", ForWriting, True)
CellData = ""
' LastRow = 3
LastCol = 3
For i = 1 To LastRow
For j = 1 To LastCol
CellData = Trim(ActiveCell(i, j).Value)
stream.WriteLine "The Value at location (" & i & "," & j & ")" & CellData
Next j
Next i
stream.Close
MsgBox ("Job Done")
End Sub
执行脚本时，请确保将光标放在工作表的第一个单元格中。 Support.log文件的创建方式如下面“F:\worksp\vba”的目录，如下的截图所示。
该文件的内容，如以下屏幕截图中所示 -
The Value at location (1,1)姓名
The Value at location (1,2)性别
The Value at location (1,3)城市
The Value at location (2,1)张三
The Value at location (2,2)男
The Value at location (2,3)北京
The Value at location (3,1)李四
The Value at location (3,2)男
The Value at location (3,3)北京
The Value at location (4,1)王五
The Value at location (4,2)男
The Value at location (4,3)上海
The Value at location (5,1)李小丽
The Value at location (5,2)女
The Value at location (5,3)深圳
The Value at location (6,1)Linsa
The Value at location (6,2)女
The Value at location (6,3)深圳
Write命令
与FSO不同，不需要添加任何引用，但是，我们将无法使用驱动器，文件和文件夹。也能够将流添加到文本文件。
示例
Sub CommandButton1_Click()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim FilePath As String
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long
LastCol = ActiveSheet.UsedRange.Columns.Count
LastRow = ActiveSheet.UsedRange.Rows.Count
FilePath = "F:\worksp\vba\write.txt"
Open FilePath For Output As #2
CellData = ""
LastCol = 3
For i = 1 To LastRow
For j = 1 To LastCol
CellData = "The Value at location (" & i & "," & j & ")" & Trim(ActiveCell(i, j).Value)
Write #2, CellData
Next j
Next i
Close #2
MsgBox ("Job Done")
End Sub
执行该脚本时，将在“F:\worksp\vba”位置创建“write.txt”文件，如以下屏幕截图所示。
该文件的内容显示如以下屏幕截图 -
¥ 我要打赏
纠错/补充
收藏
加QQ群啦，易百教程官方技术学习群
注意：建议每个人选自己的技术方向加群，同一个QQ最多限加 3 个群。