Set oRecordSet = New ADODB.recordsetoRecordSet.Source = mdxStr
oRecordSet.ActiveConnection = oOlapConn
oRecordSet.Open
    
Set oSheet = ActiveWorkbook.ActiveSheet
    With oSheet.Cells.Font
       .Name = "Verdana"
       .Size = 9
    End With
Set oQueryTable = oSheet.QueryTables.Add(oRecordSet, oSheet.Range("C3"))
oQueryTable.Refresh数据集能在Excel显示,但是列头是类似[Customer].[Country].&[United States].[Customer].[State-Province].&[AL]&[US]这样的公式,而不是在查询分析器中显示的列头的值,应该是AL这样的具体州的名称。有经验的兄弟帮忙看看,谢了!