excel vba 创建文本文件

在前面的一些文章中，我们讲过很多关于VBA的灵活运用，提高效率的示例。也讲过关于Excel跟其他Office组件的交互使用，vba作为开发语言，当然也能控制文本文件这里我们讲一下如果用VBA自动创建一个文本文件：
方法一：用文件输入/输出（I/O）的方法创建文本文件Sub创建文本文件()
DimsFNameAsString,iFNumberAsInteger,rAsLong
sFName=Application.InputBox("请输入文本文件的名称：","输入文件名称",2)
IfsFName="False"OrsFName=""ThenExitSub
sFName=ThisWorkbook.Path&"\"&sFName&".txt"
iFNumber=FreeFile '获取可用文件号
OpensFNameForOutputAs#iFNumber '用Output方式打开文件
Write#iFNumber,"新建文本文件" '向文件中写入数据
Close#iFNumber '关闭文件
EndSub
方法二：用文本流对象创建文本框文件此方法必须要先引用：MicrosoftScripting Runtime 在VBE界面上，工具=》引用 在列表框中找个这个引用，打钩即可SubFSO创建文本文件()
DimfsoAsNewFileSystemObject
DimoStreamAsTextStream
DimsFNameAsString
sFName=Application.InputBox("请输入文本文件的名称：","输入文件名称",2)
IfsFName="False"OrsFName=""ThenExitSub
sFName=ThisWorkbook.Path&"\"&sFName&".txt"
'创建文本流对象
SetoStream=fso.CreateTextFile(Filename:=sFName,OverWrite:=True)
oStream.WriteLine"在文本文件键入的内容" '向文本流对象中写入数据
oStream.Close '关闭文本流对象
SetoStream=Nothing
Setfso=Nothing
EndSub
创建效果图：在当前文件路径下创建一个名为“text1”的文本文件，在文件中自动写入“在文本文件键入的内容”内容
1510559841112541.png (8.51 KB, 下载次数: 0, 售价: 3 金钱)

2022-4-21 20:35 上传

点击文件名下载附件
1510559841112541.png

1510559857104158.png (8.78 KB, 下载次数: 0, 售价: 2 金钱)

2022-4-21 20:35 上传

点击文件名下载附件
1510559857104158.png