风雨缥缈阁

此函数从字符串中分离出路径Public Function ParsePath(sPathIn As String) As StringDim i As IntegerFor i = Len(sPathIn) To 1 Step -1   If InStr(":/", Mid$(sPathIn, i, 1)) Then Exit ForNextParsePath = Left$(sPathIn,

Public conDb As String    Public Sub exportWordReport(rs As ADODB.Recordset, filePath As String)    Dim WordApp As word.Application        Err.Number = 0        On Error GoTo notloaded       Set Wor