vba 输出文本 m linux,VBA文本文件-CSDN博客

还可以读取Excel文件，并使用VBA将单元格的内容写入文本文件。VBA允许用户使用两种方法处理文本文件 -

文件系统对象(FSO)

使用Write命令

文件系统对象(FSO)

顾名思义，FSO对象帮助开发人员使用驱动器，文件夹和文件。在本节中，我们将讨论如何使用FSO。

编号

对象类型

描述

Drive

Drive是一个对象。包含收集有关连接到系统的驱动器的信息的方法和属性。

Drives

Drives是一个集合。它提供了连接到系统的驱动器的物理或逻辑列表。

File

File是一个对象。它包含允许开发人员创建，删除或移动文件的方法和属性。

Files

Files是一个集合。它提供了一个文件夹中包含的所有文件的列表。

Folder

Folder是一个对象。它提供了允许开发人员创建，删除或移动文件夹的方法和属性。

Folders

Folders是一个集合。它提供了一个文件夹内所有文件夹的列表。

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 个群。