<form name="form1" id="form1">
|
|
|||
</form>
<br>
<object id="PivotTable1" classid="CLSID:0002E520-0000-0000-C000-000000000046">
</object>
<script language="VBScript">
<!--
Sub ReadData()
strPath = document.form1.strFile.value
strName = document.form1.strTName.value
PivotTable1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & strPath
'数据表名
PivotTable1.DataMember = strName
'展开
PivotTable1.ActiveView.AutoLayout
End Sub
-->
</script>
