-excel vba 输出,excel vba实例教程

每笔copy平均价格是总金额除以记录条数百

平均单价是总金额除以总数量

TEMP = [J1:M1]

[J:M] = ""

[J1:M1] = TEMP

Set conn = CreateObject("adodb.connection")

conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

Sql = "select 购货度单问位,sum(货品总额答),sum(货品总额)/count(*),sum(货品总额)/sum(数量) from [工作表1$A:F] group by 购货单位 order by 购货单位 desc"

[J2].CopyFromRecordset conn.Execute(Sql)

conn.Close: Set conn = Nothing

本文标签：excel vba实例教程(41)excel vba 输出(1)