【excel怎么读取txt】Excel-VBA功能模块-文档和文件夹-04-完整读写文档

系统环境：Windows 10Excel:2016版

这个系列汇集了几个常用的功能模块，可以在一些项目中应用。

功能模块包含许多与文件和文件夹相关的子模块

今天的讲座是一次性读取所有文件并写文件

第1部分：读取文件

读取所有文件并生成数组。数组中的每个元素都是文件中的一行。方法1

Open WenjianAddr1 For Input As #1

txtcontent 1=split(str conv(inputb(LOF(1)，# 1)，VB unicode)，vbCrLf)作为分隔符：vbCrLf、数组中的每个元素InputB(

有两种方法，方法2

Const for reading=1，for writing=2，for appending=8，tristate true=-1

set strnew file open=(wenjian addr 1，for reading，tristate true)

HangContent=

组合Txtcontent2=Split (hangcontent，vbcrlf)；使用ReadAll获取全文，然后将其拆分为Split

第2部分：写入文件

有两种方法，方法1

Const for reading=1，for writing=2，for appending=8，tristate true=-1

set strnew file open=(wenjian addr 2，for appending，tristate true)

(' test1 ')

使用WriteLine后，立即关闭即可。有两种方法可以自动保存文件，而无需单独保存。方法2

Open WenjianAddr2 For Append As #2

Write #2、' abc '、' 1 '

Print #2、' abc '、' 1 '

如果将Write与Close #2 Open一起使用，并将Write与Write或Print一起使用，则文本中将保留双引号；如果使用Print，则一次只写入一行文本中没有双引号的字符串信息，则Write将自动添加逗号，Print将使用空格来分隔更多差异，并欢迎研究中的读者的评论。

图1运行结果

上面，为了这次介绍的内容，下次见。

这篇文章在微信公众号Excel高效办公室的VBA上发行。排版和细节稍加修改，刊登在头条上