楼主
水星钓鱼 |
- Sub xyf()
- Dim oRecrodset
- Dim sConStr As String
- Dim sSql As String
- Dim oWk As Worksheet
- Dim i As Integer
- Set oWk = ThisWorkbook.Worksheets.Add
- sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;IMEX=1;HDR=YES'"
- sSql = "transform first([干球温度(位于2米处)])" & _
- "select [区站号/马士顿号],年,月,日,min([24小时最低气温]) as 24小时最低气温,max([24小时最高气温]) as 24小时最高气温 from " & _
- "(select [区站号/马士顿号],年,月,时次,[干球温度(位于2米处)],日,iif([24小时最低气温]='null',[干球温度(位于2米处)]*1,[24小时最低气温]*1) as [24小时最低气温], iif([24小时最高气温]='null',[干球温度(位于2米处)],[24小时最高气温]*1) as [24小时最高气温] from [sheet1$A1:H1297] ) " & _
- "group by [区站号/马士顿号],年,月,日 pivot 时次 & ""时次"""
- Debug.Print sSql
- Set oRecrodset = CreateObject("ADODB.Recordset")
- With oRecrodset
- '使用Recordset对象连接数据源
- .Open sSql, sConStr
- '循环导入字段名
- For i = 1 To .Fields.Count
- oWk.Cells(1, i) = .Fields(i - 1).Name
- Next
- oWk.Cells(2, 1).CopyFromRecordset oRecrodset
- End With
- Set oRecrodset = Nothing
- End Sub
其中的SQL语句为
- sSql = "transform first([干球温度(位于2米处)])" & _
- "select [区站号/马士顿号],年,月,日,min([24小时最低气温]) as 24小时最低气温,max([24小时最高气温]) as 24小时最高气温 from " & _
- "(select [区站号/马士顿号],年,月,时次,[干球温度(位于2米处)],日,iif([24小时最低气温]='null',[干球温度(位于2米处)]*1,[24小时最低气温]*1) as [24小时最低气温], iif([24小时最高气温]='null',[干球温度(位于2米处)],[24小时最高气温]*1) as [24小时最高气温] from [sheet1$A1:H1297] ) " & _
- "group by [区站号/马士顿号],年,月,日 pivot 时次 & ""时次"""
运用了transform+Select+临时表+IIF函数等。
原帖求大神帮助合并不同行的数据到同一列
(出处: Excel 技巧网)
|
2楼
448733708 |
其实这个sql语句可以优化的，只是查询出来的最高气温和最低气温变成文本。
- sSql = "TRANSFORM FIRST([干球温度(位于2米处)]) SELECT [区站号/马士顿号],年,月,日,min([24小时最低气温]) as 24小时最低气温,min([24小时最高气温]) as 24小时最高气温 FROM [" & Sheet1.Name & "$] GROUP BY [区站号/马士顿号],年,月,日 PIVOT 时次 & ""时次"""
。
希望版主修改看看，能否将最高气温和最低气温变成数字。 |
3楼
水星钓鱼 |
没明白，请详细说明。 |
4楼
448733708 |
就是把你原来的SQL语句- sSql = "transform first([干球温度(位于2米处)])" & _
- "select [区站号/马士顿号],年,月,日,min([24小时最低气温]) as 24小时最低气温,max([24小时最高气温]) as 24小时最高气温 from " & _
- "(select [区站号/马士顿号],年,月,时次,[干球温度(位于2米处)],日,iif([24小时最低气温]='null',[干球温度(位于2米处)]*1,[24小时最低气温]*1) as [24小时最低气温], iif([24小时最高气温]='null',[干球温度(位于2米处)],[24小时最高气温]*1) as [24小时最高气温] from [sheet1$A1:H1297] ) " & _
- "group by [区站号/马士顿号],年,月,日 pivot 时次 & ""时次"""
优化成
- sSql = "TRANSFORM FIRST([干球温度(位于2米处)]) SELECT [区站号/马士顿号],年,月,日,min([24小时最低气温]) as 24小时最低气温,min([24小时最高气温]) as 24小时最高气温 FROM [" & Sheet1.Name & "$] GROUP BY [区站号/马士顿号],年,月,日 PIVOT 时次 & ""时次"""
后查询出来效果是一样的，只是的最高气温和最低气温变成文本格式，能否变成数字格式。
|
5楼
水星钓鱼 |
这样不行的吧，看下这个，不用临时表，出来的结果是不正确的。在用ADO时，针对混合类型的字段如何修改连接字符串才能返回正确的结果？
(出处: Excel 技巧网)
|