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中。。收起