杂乱无章的记事本文本，老板让我规整写入excel 工作表，还不忘警告我说：“今天内必须完成，不然就别下班”。

问问网友们，应该搞工作还是搞老板~~在线等

nerror="javascript:errorimg.call(this);">

看看下面的记事本文本，9000多行数据，看完了有没有像搞老板的冲动！

nerror="javascript:errorimg.call(this);">

换老板总是不现实的，何况老板还是我亲爹……还是展示点技术吧

1、OpenTextFile 方法

打开指定的文件并返回一个 TextStream 对象，该对象可用于读取、写入或追加到该文件。

语法

对象。OpenTextFile (filename， [ iomode， [ create， [ format ]]] )

设置

iomode 参数可以具有以下任何设置：

ForReading

1只为了要读取而打开文件。 不能写入该文件。

ForWriting

2打开文件以供仅写入。 使用此模式可将现有文件替换为新数据。 无法从此文件读取数据。

ForAppending

8打开文件，然后写入到文件的末尾。 无法从此文件读取数据。

2、具体代码

Sub 整行读取后分裂写入()

Dim myFso As scripting.FileSystemObject

Dim myTxt As scripting.TextStream

Dim myStr As String

Set myFso = CreateObject("scripting.FileSystemObject") '创建一个对象

Set myTxt = myFso.OpenTextFile(Filename:=ThisWorkbook.Path & "\工资表.txt", _

IOMode:=ForReading) '打开这个对象，（路径、模式=只读取，不写入）

Dim txt

Dim x

x = 1

Dim y

y = 1

,x y是行列变量

With myTxt

Do Until .AtEndOfStream '直到文末

myStr = .ReadLine '一行一行读取，读取一行后进行分裂

For Each txt In Split(myStr, ",")

ThisWorkbook.Sheets("sheet2").Cells(x, y) = txt

y = y + 1

Next

y = 1

x = x + 1

,列号规1，行号加1

Loop

.Close’关闭

End With

Set myTxt = Nothing

Set myFso = Nothing

End Sub

你学会了吗？不论你是求知若渴的在校学生，还是在职场摸爬滚打多年的上班族，只要怀揣着提升自我的决心，别犹豫，快点赞、关注、收藏！我会始终站在零基础小白的视角，循序渐进，带你一步步踏入VBA的奇妙世界。