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

01 

读取本地文件

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

Set fs = CreateObject("Scripting.FileSystemObject")
myFile = Dir(FilePath, vbReadOnly + vbHidden + vbArchive)
If myFile = "" Then
    fs.CreateTextFile FilePath
End If
Open FilePath For Input As #1 '打开文件，读取本地文件
'Line Input #1, HolidayData '先读第1行到变量
Do While Not EOF(1) '循环到文件尾
    Line Input #1, temp '读1行
    myData = myData & "|" & temp '读取到的数据用"|"分割
Loop
Close #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

生成序列（数据有效性）

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

=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