|
本帖最后由 活在理想的世界 于 2017-12-6 16:29 编辑
这是典型查询语句,我不确定你的数据库是什么,我写了个能通用的。我用的是SPLIT,如果是删除或者插入语句,那么用SUBSTITUTE完全没问题用REPLACE也可以。反正REPLACE和SUBSTITUTE基本一样。
注意,我是用是SQL赋值给数组的方法。原因是我不确定出OFFICE以外的数据源是否支持函数。
- Sub d()
- Dim ado As New ADODB.Connection, sql As String, ar(), br()
- '=======================================
- ado.Open ("")
- sql = "SELECT * FROM [数据]"
- ar = WorksheetFunction.Transpose(ado.Execute(sql).GetRows)
- ado.Close
- '========================================
- ReDim br(UBound(ar), UBound(ar, 2))
- For i = LBound(ar) To uboun(ar)
- br(i, 1) = Split(ar(i, 1), ".")(0) & Format(Split(ar(i, 1), ".")(1), "00") & Format(Split(ar(i, 1), ".")(2), "00")
- Next
- End Sub
复制代码
|
|