教程 | VBA编程常见场景的七种常用方法

写在前面

经过前几期的梳理，再加上本期，一共总结了100多种常用方法，几乎覆盖了文字处理方面的大部分场景。

有些方法未必就是最科学的，权当抛砖引玉吧。

其实每个人都可以创建自己的方法库，因为这些方法是从实际场景提炼出来的，所以印象会比较深刻，以后再用到时也会比较自如。

这些肯定不是最终的数量，相信随着场景的不断丰富，会有更多的方法维护进来，最重要的是要定期梳理总结，笔者的体会是时间稍微长一些，再回头看时花的时间会大大增加，所以，及时性也很重要。

01 

读取本地文件

适用场景：本地txt文件可以作为数据库，通过读写操作扮演DB角色。

Set fs = CreateObject("Scripting.FileSystemObject")myFile = Dir(FilePath, vbReadOnly + vbHidden + vbArchive)If myFile = "" Then    fs.CreateTextFile FilePathEnd IfOpen FilePath For Input As #1 '打开文件，读取本地文件'Line Input #1, HolidayData '先读第1行到变量Do While Not EOF(1) '循环到文件尾    Line Input #1, temp '读1行    myData = myData & "|" & temp '读取到的数据用"|"分割LoopClose #1 '关闭文件'分割后的结果作为数组返回到主函数ReadFileArray = Split(myData, "|")

02 

创建本地文件

适用场景：操作本地文件，通01。

Set fs = CreateObject("Scripting.FileSystemObject")Myfile2 = Dir("C:\Users\Public\test.txt", vbReadOnly + vbHidden + vbArchive)If Myfile2 = "test.txt" Then    Kill "C:\Users\Public\test.txt"Else    fs.CreateTextFile "C:\Users\Public\test.txt"End If

03 

生成序列（数据有效性）

适用场景：数据有效性自定义公式，产生联动的序列项。

=OFFSET(Dic!$E$3,,MATCH($G2,Dic!$E$2:$F$2,0)-1,COUNTA(OFFSET(Dic!$E$2,,MATCH($G2,Dic!$E$2:$F$2,0)-1,242)))Dic!$E$3 序列起始位置$G2  序列变换条件所处位置Dic!$E$2:$F$2：序列变换条件下拉项242  序列范围

04 

生成动态序列（数据有效性）

适用场景：当把选定区域作为序列数据源时，排除空项。

=OFFSET('Dic-基础配置'!B$2,,,COUNTA('Dic-基础配置'!B$2:B$20),)

05 

控制单元格是否可编辑（数据有效性）

适用场景：当满足什么条件的时候，单元格是否可被编辑。

=IF(ISNUMBER(FIND("电表箱",$A2)),TRUE,0)

06 

是否为合并单元格

适用场景：遍历单元格时，需要对单元格是否合并进行判断时。

range（"A1"）.mergecells=true

07 

强制退出工作簿

适用场景：无论内容是否发生变化都关闭工作簿。

wk3.Close Savechanges:=False