Sub 分类()
Dim A
Dim cnn, SQL$
Set cnn = CreateObject("adodb.connection")
Set RS = CreateObject("adodb.recordset")
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source =" & ThisWorkbook.Path & "\"
A = "(SELECT EUTRANCELLTDD,MAX(pmRrcConnMax) AS pmRrcConnMax FROM [TDD.CSV] GROUP BY EUTRANCELLTDD)"
SQL = "SELECT A.* FROM [TDD.CSV] A, " & A & " B where a.eutrancelltdd=b.eutrancelltdd and a.pmRrcConnMax=b.pmRrcConnMax"
Set RS = cnn.Execute(SQL)
Sheets("结果").Cells.ClearContents
Sheets("结果").Range("a2").CopyFromRecordset RS
For i = 0 To RS.Fields.Count - 1
Sheets("结果").Cells(1, i + 1) = RS.Fields(i).Name
Next
Worksheets("结果").Activate
MsgBox ("OK")
End Sub
VBA+ADO提取某字段最大值(峰值)
最新推荐文章于 2023-02-13 11:47:11 发布