目录
1 前言 : 为什么要做这个系列
2 用VBA 实现 遍历文件夹，读取文件内容，写入文件内容等
2.1 遍历文件夹的文件名
2.1.1 用VBA取得文件名等需要使用 dir mkdir 等类dos的命令
2.1.2 用VBA打开，写入，关闭文件:
2.1.3 看具体代码
2.1.4 下面是运行的效果
2.2 读取文件夹内所有文件内容到指定文件
2.2.1 读取文件夹下多个文件内容
2.2.2 代码
2.2.3 相关函数和语句
2.3 向（已有）文件夹内的多个已有的多个文件写入
2.3.1 代码
2.4 向新建文件夹内的新文件输出
2.4.1 代码
2.5 向新建文件夹内的新文件输出（先判断是否存在此文件夹）
2.5.1 代码
3 '其他操作文件方法，简单了解，比如fso
3 特殊的，EXCEL，是VBA的基本盘 VBA 读写EXCEL
5 用python 读取文件
6 VBA 和python 比较
1 前言 : 为什么要做这个系列
放在第一篇需要先明确下目的
为什么要做这个系列
- 1 我现在再看之前写的一些VBA或python的学习笔记，有点惨不忍睹的，虽然有些文章还算有用，尤其是解决具体问题的那种，但是那种学习总结的往往很多问题，虽然只要被有些同学顶起来收藏和点赞，我发现了都会尽量改，但总是感觉一言难尽
- 2 市面上很少有做 python 和VBA对比的，尤其是深入进去每个模块功能进行对比的。原因大概是这几个：VBA太老太弱，python太火太强，真正科班出身的同学很少有看得起VBA的。但是VBA因为附着在EXCEL上，有着强大的生命力，办公人群（多数人不会代码）用的很多，还是需要有人有用VBA的需求，毕竟环境已经集成在office上了。
- 3 做对比，比较下两种语言的处理方式，也可以比较感性的认识下，后出的语言的牛逼之处在哪，之前写VBA的各种老思路需要更新。
- 4 做对比，也算是对VBA做个总结吧，听说EXCEL都已经支持python了...
2 用VBA 实现 遍历文件夹，读取文件内容，写入文件内容等
- 现有文件夹如下
- 想遍历文件夹里的文件名，文件内容，然后写入其他文件夹
- 下面是具体的步骤
2.1 遍历文件夹的文件名
- 这里是要读取的文件夹，代码运行前的效果
2.1.1 用VBA取得文件名等需要使用 dir mkdir 等类dos的命令
文件操作函数，类DOS
- dir： dir(path1) 和 继续 dir()
- mkdir：MkDir (path1) 创建文件/文件夹
- CurDir 函数
- ChDir path
- ChDrive 语句
Sub testp1()
Debug.Print CurDir()
Debug.Print Dir("C:\Users\Administrator\Desktop\ptest1.txt")
ChDir "d:\123"
Debug.Print CurDir()
ChDrive "d:\"
Debug.Print CurDir()
ChDrive "c:\"
Debug.Print CurDir()
ChDir "C:\Users\Administrator\Desktop"
Debug.Print CurDir()
End Sub
dir总结
- 'dir 后面只能用dir，不能 Dir(fp)否则会重置会第一个文件名
- 'dir获得是文件名，(包含文件名=后缀)像这种 ppp1.txt，但是不包含完整路径
- '循环dir，会导致ppp1 ppp10 ppp2.txt这种文件名排序，需要注意不是按数字排序的
- '文件如果没有会自动创建
2.1.2 用VBA打开，写入，关闭文件:
- open 完整路径 for input/output/append as #别名
- '关闭文件:close #别名
- '写入文件内容: print
官方解释
Open pathname For mode [Access access] [lock] As [#] filenumber [Len = reclength]
参数：
1）pathname 必填。 指定文件名的字符串表达式，可包括目录或文件夹和驱动器。
2）mode 必填。 指定文件模式的关键字：Append、Binary、Input、Output 或 Random。 如果未指定，则以 Random 访问模式打开文件。
- Input：以输入方式打开，即读取方式。
- Output：以输出方式打开，即写入方式。
- Append：以追加方式打开，即添加内容到文件末尾。
- Binary：以二进制方式打开。
- Random：以随机方式打开，如果未指定方式，则以 Random 方式打开文件。
3）access 可选。 指定可对打开的文件执行的操作的关键字：Read、Write 或 Read Write。
4）lock 可选。 指定由其他进程限制在打开的文件上的操作的关键字：共享、锁定读取、锁定写入和锁定读写。
5）filenumber 必填。 一个有效文件号，范围为1到511（含1和511）。 使用FreeFile 函数可获取下一个可用的文件编号。
6）reclength 可选。 小于或等于 32,767（字节）的数。 对于以随机访问模式打开的文件，此值为记录长度。 对于序列文件，此值为缓冲的字符数。
如果pathname指定的文件不存在，那么在以 Append、Binary、Output 或 Random 模式打开文件时，即会创建它。
如果文件已由另一个进程打开，并且不允许指定的访问类型，则打开操作将失败，并将发生错误。
如果mode为Binary，则忽略Len子句。
在Binary,Input，Random模式中，你可以使用不同的文件号打开文件，而无需先关闭文件。 在 Append 和 Output 模式中，必须先关闭该文件，然后才能用不同文件号打开它。
2.1.3 看具体代码
'指定读取文件夹的路径内的 多个文字名字
Sub print1001()
'指定输出路径
path1 = "C:\Users\Administrator\Desktop\ptest1.txt"
fp = "C:\Users\Administrator\Desktop\ppp\*.*"
fn = Dir(fp)
'打印文件夹内的文件名
Do While fn <> ""
'VBE调试窗口输出
Debug.Print fn
'向文件输出
Open path1 For Append As #2
Print #2, fn
Close #2
fn = Dir
Loop
Debug.Print "文件夹内的文件名已经遍历完毕，并且已经追加写入了" & path1 & "内"
MsgBox ("文件夹内的文件名已经遍历完毕，并且已经追加写入了" & path1 & "内")
End Sub
'dir总结
'总结1:'dir 后面只能用dir，不能 Dir(fp)否则会重置会第一个文件名
'总结2:'dir获得是文件名，(包含文件名=后缀)像这种 ppp1.txt，但是不包含完整路径
'总结3:循环dir，会导致ppp1 ppp10 ppp2.txt这种文件名排序，需要注意不是按数字排序的
'总结4:'文件如果没有会自动创建， output, input
'Append、Binary、Input、Output 或 Random。 如果未指定，则以 Random 访问模式打开文件。
'打开文件:open 完整路径 for input/output/append as #别名
'关闭文件:close #别名
'写入文件内容: print2.1.4 下面是运行的效果
2.2 读取文件夹内所有文件内容到指定文件
- 要把下面文件夹里每个文件的内容都读到一个指定的文件内去
2.2.1 读取文件夹下多个文件内容
- 要读取的文件，打开时用input即可
- '用lof(别名文件号) 判断长度，可以直接 lof(1)-10 取部分内容
- '用eof(1)判断是否到文件结尾
- 要写入的文件，使用append
- 每次找循环里的下一个文件 path3 = path2 & "\" & fn
- input函数（长度，别名）
- '需要input函数，可用变量暂存内容=input（长度，别名）
- 用中间变量，倒一下内容
- curr1 = input(LOF(1), #1)
Print #2, curr1
2.2.2 代码
'读取文件夹内的每个文件内容到另外一个指定的txt里
Sub print1002()
'指定输出路径
path1 = "C:\Users\Administrator\Desktop\ptest1.txt"
'指定读取文件夹的路径
fp = "C:\Users\Administrator\Desktop\ppp\*.*"
fn = Dir(fp)
path2 = "C:\Users\Administrator\Desktop\ppp"
'打印文件夹内的文件名
Open path1 For Append As #2
Do While fn <> ""
'VBE调试窗口输出
Debug.Print fn
'向文件输出
path3 = path2 & "\" & fn
Open path3 For Input As #1
Do While Not EOF(1)
curr1 = input(LOF(1), #1)
Print #2, curr1
Loop
Close #1
fn = Dir
Loop
Close #2
End Sub
'读取文件，打开时用input即可
'用lof(别名文件号) 判断长度，可以直接 lof(1)-10 取部分内容
'用eof(1)判断是否到文件结尾
'需要input函数，可用变量暂存内容=input（长度，别名）
2.2.3 相关函数和语句
Input() 函数
- input函数，input（长度，别名）
- Input #1, MyString, MyNumber ' 将数据读入两个变量。
Input() 语句
- 语法：Input #filenumber, varlist
- 功能：从已打开的顺序文件中读出数据并将数据指定给变量。
- 说明：通常用 Write # 将 Input # 语句读出的数据写入文件。为了能够用 Input # 语句将文件的数据正确读入到变量中，在将数据写入文件时，要使用 Write # 语句而不使用 Print # 语句。使用 Write # 语句可以确保将各个单独的数据域正确分隔开。
EOF 函数
- 语法：EOF(filenumber)
- 功能：返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
LOF 函数
- 语法：LOF(filenumber)
- 功能：返回一个 Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位。
Loc 函数
- 语法：LOc(filenumber)
- 功能：返回一个 Long，在已打开的文件中指定当前读/写位置
2.3 向（已有）文件夹内的多个已有的多个文件写入
- 目标：已有文件夹内的所有文件
- 发现几个文件写入几个文件，全部覆盖
2.3.1 代码
'向文件夹内的多个文件输出内容，已有的多个文件，发现几个文件写入几个文件
Sub print1003()
path1 = "C:\Users\Administrator\Desktop\ppp1"
fp1 = "C:\Users\Administrator\Desktop\ppp1\*.*"
fn1 = Dir(fp1)
x = 1
Do While fn1 <> ""
path2 = path1 & "\" & fn1
'向文件输出
Open path2 For Output As #1
Print #1, x & "第" & x & "句内容XXX"
Close #1
x = x + 1
fn1 = Dir
Loop
End Sub
2.4 向新建文件夹内的新文件输出
- 目标：一般针对新文件夹，重新创建文件夹和新文件
- 指定要输出到文件夹里的文件个数，
- 为这些新文件写入内容
2.4.1 代码
'指定要输出到文件夹里的文件个数，一般针对新文件夹，重新创建文件夹和新文件
Sub print1004()
'如果已有文件夹里有其他文件夹应该会忽略掉
path2 = "C:\Users\Administrator\Desktop\ppp2"
y = 1
For i = 1 To 10
path6 = path2 & "\" & i & ".txt"
'向文件输出
Open path6 For Output As #1
Print #1, y & "第" & y & "句内容YYYYY"
Close #1
y = y + 1
Next
End Sub2.5 向新建文件夹内的新文件输出（先判断是否存在此文件夹）
- 目标：严谨的输出到新文件夹内，严谨点先判断是否是空文件夹
- 指定要输出到文件夹里的文件个数
2.5.1 代码
'指定要输出到文件夹里的文件个数，严谨点先判断是否是空文件夹
Sub print1005()
path1 = "C:\Users\Administrator\Desktop\ppp3"
'先判断文件夹是否存在
If Dir(path1) <> "" Then
' MsgBox ("请注意此文件夹已存在，里面可能已经包含其他文件",vbYesNo)
MsgBox ("请注意此文件夹已存在，里面可能已经包含其他文件")
Else
MkDir (path1)
End If
Z = 1
'因为确定了是新文件夹，肯定是空文件夹了
For i = 1 To 10
path7 = path1 & "\" & i & ".txt"
'向文件输出
Open path7 For Output As #1
Print #1, Z & "第" & Z & "句内容ZZZZ"
Close #1
Z = Z + 1
Next
End Sub
