|
<form name="form1" id="form1">
<input name=strFile id=strFile type=file>數(shù)據(jù)表名:<input name=strTName strTName type=text><input type=button name="btnRead" id="btnRead" value="Read Data" onclick="VBSCRIPT:ReadData()">
</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
'數(shù)據(jù)表名
PivotTable1.DataMember = strName
'展開
PivotTable1.ActiveView.AutoLayout
End Sub
-->
</script>
|
溫馨提示：喜歡本站的話，請(qǐng)收藏一下本站！
