- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
3#
發表於 2014-2-19 13:07
| 只看該作者
回復 2# GBKEE
板主大大您好:
mDatat.rar (32.91 KB)
謝謝板主大大的相助。
小弟是由mysql資料庫取出
資料而且由表單page5執行
經由
Public Function reCordSet_Open()
內的mData = objRecordSet.GetRows
取出陣列資料再轉入到
Public Sub regCls(mData As Variant, objTxt4 As String)
Dim regData
Dim a As Variant
Dim b As Variant
s1 = UBound(mData, 1)
s2 = UBound(mData, 2)
a = Application.WorksheetFunction.Transpose(mData)
b = Application.WorksheetFunction.Index(mData, 3)
End Sub
因想利用REGEXP字串查詢功能
來找出資料。就是想由INDEX取
出一維陣列資料即可借用
VBScript_RegExp_55.RegExp
來 |
|