摘要： Sub Regexp_test(Sht As String, str As String)On Error Resume NextDim regx As ObjectDim arr, brr, mhSet regx = CreateObject("vbscript.regexp") With reg 阅读全文

摘要： Private Function CountArr(arr)'*****************************'计算数组是几维数组'*****************************Dim i%, j%On Error GoTo errFor i = 1 To 10 j = UBo 阅读全文

摘要： vba + ado +sql 连接Access、MySQL、Oracle Private Sub Connection_DBA() '********************************************************************'测试连接Access、MyS 阅读全文