读写配置文件的函数，适用于表格做的配置文件

日常编程过程中，经常需要将一些参数或是客户设定的内容，放到配置文件中，在程序执行过程中，查以查找这些配置，以便完成参数化的操作。下面的函数即是为了方便的读、写配置表中的各项内容而写的，可以从表格中快速的找到相关内容进行读取或写入的操作。具体见以下程序代码：

函数代码

Public Function GetINIData(DataFie As String, Optional FiePos As String = "ByCol", Optional Sh As String = "INI")
'读取配置内容，默认内容在项的下一行或是下一列
Dim Rng As Range

If Sh = "" Then Sh = ActiveSheet.Name
With Sheets(Sh)
    If FiePos = "ByCol" Then '查找字段所在行或列，默认为配置项写在A列中
        Set Rng = .Range("A:A").Find(DataFie