计算机考试中 电子表格里 怎么求平均值,电子表格自动平均值

2011-10-27

将文本文件导入excel，将每小时的大气辐射值求一次平均值，将一个月每天每小时的平均值，整理在新的表格中，列是日期，行是时间(0：00--23：00)，将做好的表格发邮箱里1 1@

Sub 按钮1_单击()Set mycn = CreateObject(" nnection")Set myrs = CreateObject(" cordset")mycn。Open "provider= t。 oledb。4。0;extended properties='excel 8。0;hdr=no';data source=" & ThisWorkbook。FullNameSql = "transform avg(f3) select f1 from [sheet1$] where f1 is not null group by f1,hour(f2) pivot ho...全部

Sub 按钮1_单击()Set mycn = CreateObject(" nnection")Set myrs = CreateObject(" cordset") mycn。Open "provider= t。

oledb。4。0;extended properties='excel 8。0;hdr=no';data source=" & ThisWorkbook。FullName Sql = "transform avg(f3) select f1 from [sheet1$] where f1 is not null group by f1,hour(f2) pivot hour(f2) " myrs。

Open Sql, mycn, 1, 3 Sheet2。[a2]。CopyFromRecordset myrs For i = 0 To elds。Count - 1 Sheet2。

Cells(1, i + 1) = elds(i)。Name Next Sheet2。Cells(1, 1) = "日期" myrs。Close: mycn。

Close Set myrs = Nothing: Set myrs = Nothing End Sub那个TXT文件导入到EXCEL文件中,没有写代码;手工导入也简单。

结果在SHEET2中。。收起