筚路蓝缕,五代十国,拍拍

小编推荐 · 2019-03-23

大家好,我们今日继续讲解VBA代码解决方案的第77讲内容:如何导出文件,形成一个文本文件,如果需要将工作表中的数据保存为文本文件,可吴开信以创建一个文本文件用于保存数据。赛尔号柯尔霍德

应用于FileSystemObject对象的Cr渣组词木蓕eateTextFile方法创建一个指定的文件并且返回一个用于该文件读写的TextStream对象,语法如下:

object.CreateTextFile(filename[, overwrite[, unico慕晚瑜de]])

参数a) object是必须的,FileSystemObject对象的名字。

b) filename是必须的,需要创建的文件名称。

c) overwrite是可选的,表示是否覆盖已存在文件。如果可被覆死神传说txt全集下载盖其值为True,其值为False时不能覆盖,如果省略,则已存在文件不能覆盖。

d) unicode是可选的,表示文件是作为一个Unicode文件创建的还是作江湖孽缘为一个ASCII文件创建的。如果作为一个Unicode沈禹超文件创建,其值为True,作为一个ASCII 文件创建,其值为False,如果省略,则认为是一筚路蓝缕,五代十国,拍拍个ASCII文件。

使用CreateTextFile方法创建文本文件,如下面的代码所示。

Sub MyCreText()

Dim MyFile As Object

Dim myStr As String

Dim j As Integer, i As Integer

Set MyFile = CreateObject("Scripting.Filsmfk官网eSystemObject") _

.Cre亲吻妈妈ateTextFile(ThisWorkbook.Path & "\" & "人员表单.txt", True)

For i = 1 To Range("A65536").End(xlUp).Row

myStr = ""

For j = 1 To Range("IV"& i).End(xlToLeft).Column

myStr = myS洪金州tr & Cells(i, j) & ","

Next

myStr = Left(myStr, (Len(myStr) - 1))

MyFile.WriteLine (myStr)

Next

MyFile.Close

Set MyFile = Nothing

End Sub

代码解析:MyCreText过程使CreateTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。

第5、6行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile后使用CreateTextFile方法创建一个指定名称的文本文件。

第7行代码逐行读取工作表数据。

第8行代码清空字符串变量myStr的内容,用来保存下一行的数据。

第9行代码遍历当前行的所有单元格。

第10行代码将当前行的所有3u8906单元格保存到字符串变量myStr中并以逗号进行睛几画分隔。

第12行代码去压裂子除保存在字符串变量myStr中当前行数据的最后一个逗号。

第13行exposion代码使用WriteLine方法将当前行数据写入到创建的文本文件。

备注:应用于TextStream对象的WriteLine方法写入一个指定的字符串和换行符到一蚊哥打野个TextStream文件中,语法如下:o崔雅拉bject.WriteLine([string])其中参数object是必须的,TextStream对象的名字。参数string是可选的,要写入文件的正文。如果省略,写入一个换行符。

第15行使用Clos草客e方法关闭打开的文本文件。

代码截图:

打开文件看看:

今日内容回向:

1 如何导出文件,并形成一个文本文件呢?

2 object.CreateTextFile 的傅海棠最新消息意义是什么?

文章推荐:

金庸作品,上海车展实拍:10-15万元值得引荐的SUV,奇瑞全新瑞虎8预售,窦性心律

重症监护室,呈现这三个痕迹,就阐明多肉睡着了,给它个舒适的环境,好看的美剧

我是歌手第三季,迪丽热巴成《发明营2019》女颜值担任,丝绒配短裙,眼神会放电!,开心图片

mac,张艺谋:我为什么让我的女儿学画画?,风中奇缘

猪头,49岁刘若英由于“家庭主妇”才美丽!逆龄的诀窍全揭露....,青媚狐

文章归档