python创建txt⽂件并写⼊_如何利⽤VBA代码创建⽂件并写⼊
数据
分享成果，随喜真能量。⼤家好，今⽇内容仍是和⼤家分享VBA编程中常⽤的简单“积⽊”过程代码，这些内容⼤多是取⾄我编写
的“VBA代码解决⽅案”教程中内容。NO.183-NO.184内容是：
NO. 193：在VBA中使⽤CreateTextFile⽅法创建⽂件并将⼯作表数据写⼊到⽂件内
NO. 194：在VBA代码中使⽤OpenTextFile⽅法创建⼀个指定名称的⽂本⽂件并将⼯作表数据写⼊到⽂件内。
VBA过程代码193：在VBA中使⽤CreateTextFile⽅法创建⽂件并将⼯作表数据写⼊到⽂件内
Sub mynz ()
Dim MyFile As Object
Dim myStr As String
Dim j As Integer, i As Integer
Set MyFile = CreateObject("Scripting.FileSystemObject") _
.CreateTextFile(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 = myStr & Cells(i, j) & ","
Next
myStr = Left(myStr, (Len(myStr) - 1))
MyFile.WriteLine (myStr)
Next
MyFile.Close
writeline使用方法pythonSet MyFile = Nothing
End Sub
代码解析：mynz过程使⽤CreateTextFile⽅法创建⼀个指定名称的⽂本⽂件并将⼯作表数据写⼊到⽂件内。代码使⽤CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile后使⽤CreateTextFile⽅法创建⼀个指定名称的⽂本⽂件。WriteLine⽅法将当前⾏数据写⼊到创建的⽂本⽂件，使⽤Close⽅法关闭打开的⽂本⽂件。
VBA过程代码194：在VBA代码中使⽤OpenTextFile⽅法创建⼀个指定名称的⽂本⽂件并将⼯作表数据写⼊到⽂件内。
Sub mynz ()
Dim MyFile As Object
Dim myStr As String
Dim j As Integer, i As Integer
Set MyFile = CreateObject("Scripting.FileSystemObject") _
.OpenTextFile(ThisWorkbook.Path & "" & "⼈员表单.txt", 8, True)
For i = 1 To Range("A65536").End(xlUp).Row
myStr = ""
For j = 1 To Range("IV" & i).End(xlToLeft).Column
myStr = myStr & Cells(i, j) & ","
Next
myStr = Left(myStr, (Len(myStr) - 1))
MyFile.WriteLine (myStr)
Next
MyFile.Close
Set MyFile = Nothing
End Sub
代码解析：mynz过程使⽤OpenTextFile⽅法创建⼀个指定名称的⽂本⽂件并将⼯作表数据写⼊到⽂件内。⽰例中将OpenTextFile⽅法的iomode参数设置为8，打开⽂本⽂件后在⽂件的尾部进⾏追加操作；将create参数设置为True，如果指定的⽂本⽂件不存在则创建⼀个新⽂件。
VBA是实现⾃⼰⼩型办公⾃动化的有效⼿段，我根据⾃⼰20多年的VBA实际利⽤经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积⽊编程”思想的体现。每⼀讲都是较⼤块的“积⽊”，可以独⽴的完成某些或者某类的过程。利⽤这些可以提⾼⾃⼰的编程效率。
其⼀：“VBA代码解决⽅案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝⼤多数的知识点，是初学及中级以下⼈员必备；
其⼆“VBA数据库解决⽅案”PDF教程，数据库是数据处理的利器，对于中级⼈员应该掌握这个内容了。
其三“VBA数组与字典解决⽅案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提⾼代码⽔平的必备。
其四“VBA代码解决⽅案”视频教程。⽬前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第三册的111讲，以上各教程的代码都是经过实测，可以拿来即⽤。
⾮常时期，多提⾼⾃⼰，是正道。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。