wkl1237的专栏

Public Function WriteFile(ByVal strFileName As String, colWri As Collection, Optional bOverLay As Boolean = False, Optional bMarkSeq As Boolean = False) As Boolean          Dim FN     Dim v     Di

Public Function NewDir(ByVal strPath) As Boolean          Dim dirAttr As VbFileAttribute          dirAttr = vbNormal + vbDirectory + vbReadOnly     If Dir(strPath, dirAttr)         NewDir = Tru

'********************************************************************************** '*   函数名称：AddLnk '*   功    能：将工作薄中的全部N张工作表都在sheet1中建上链接 '* '*   入口参数：wsWork As Worksheet(sheet1) '*   出口参数：无 '

'********************************************************************************** '*   函数名称：clearData '*   功    能：清除各sheet数据 '* '*   入口参数：无 '*   出口参数：无 '* '*   返 回  值 ：无 '*******************

'********************************************************************************** '*   函数名称：setFocus '*   功    能：为workbook设置焦点，专为做完所有处理后，对各个工作表光标进行设置 '* '*   入口参数：无 '*   出口参数：无 '* '*   返 回  值

文本文件读取处理： ‘1，文件读入到内存中 Open filePath For Input As #1 ’2，对内存中的数据利用对应字符集进行解析到字符串（即文本文件被转化为一个字符串变量） 'txtContent = Trim(StrConv(InputB(LOF(1), 1), vbUnicode)) ’副2，对内存中的数据利用对应字符集进行解析，利用回车换行符进行split