LOOKUP模糊查找
精確查找
多條件精確查找
'列號轉字母（列名） Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出範圍返回空，如調
Function ReadUTF8File(ByVal FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2
