随笔 - 75
文章 - 0
评论 - 190
阅读 -
29万
05 2011 档案
vb
摘要：Sub 按钮1_Click()Call ExportData Dim myRegExp As Object Dim myRegExpNew As Object Dim Myrange As Range, C As Range, rg As Range Dim TTLabel As String Set myRegExp = CreateObject("vbscript.regexp") myRegExp.Pattern = "o?p?t?-\w+-?\w+-?" myRegExp.IgnoreCase = True myRegExp.Global = T
阅读全文
