随笔分类 -  Lotus Notes\Domino

摘要:Sub Initialize On Error GoTo errhandle Dim se As New NotesSession Dim doc As NotesDocument Set doc = se.Documentcontext Dim db As NotesDatabase Set db 阅读全文
posted @ 2020-04-19 15:07 活捉火星人 阅读(159) 评论(0) 推荐(0)
摘要:'问题:生成的txt没办法导入网银。最后考虑是编码问题,果然,把utf-8编码修改为gb2313即可。Dim filepath As String Dim fileName As String Dim OutputFile As String OutputFile = filepath + file 阅读全文
posted @ 2020-04-19 15:02 活捉火星人 阅读(239) 评论(0) 推荐(0)
摘要:Dim oRegExp As Variant Set oRegExp = CreateObject ("VBScript.RegExp") Dim MatchValue As Variant oRegExp.IgnoreCase = True '设置是否区分字符大小写。 oRegExp.Global 阅读全文
posted @ 2020-04-19 14:49 活捉火星人 阅读(316) 评论(0) 推荐(0)
摘要:使用@Matches在视图中快速筛选包含京东单号的文档。 @Matches(remark;"*JD????????????") 阅读全文
posted @ 2020-04-19 14:36 活捉火星人 阅读(147) 评论(0) 推荐(0)