hej Ole
Det er et offline-dokument (intranet uden ASP, PHP o.l.).
Dvs. Jeg har en intern HTML-formular, hvor der udfyldes navn, fødselsdato, antal vundne kampe, antal tabte kampe.
Dette vil jeg gerne have indlæst i et excel-ark eller en csv-fil.
Jeg har fundet dette script, som anvender FSO-objektet og ser ud til at virke, men måske har du en bedre løsning ? kan se på nettet at jeg ikke er den første der spørger men har desværre ikke fundet nogen brugbare løsninger.
<html>
<head>
<script type="text/javascript">
function CreateExcelSheet()
{
// the DOM enables the table parameters to be used from the id
var x=myTable.rows
var xls = new ActiveXObject("Excel.Application")
// To make it display in its own window
xls.visible = true
xls.Workbooks.Add
for (i = 0; i < x.length; i++)
{
var y = x[i].cells
for (j = 0; j < y.length; j++)
{
xls.Cells( i+1, j+1).Value = y[j].innerText
}
}
// xls.ActiveWorkbook.Save ()
// xls.ActiveWorkbook.Close ()
}
function CreateExcelSheetAutoFit()
{
// the DOM enables the table parameters to be used from the id
var x=myTable.rows
var xls = new ActiveXObject ( "Excel.Application" )
var handle = xls.Workbooks.Add
for (i = 0; i < x.length; i++)
{
var y = x[i].cells
for (j = 0; j < y.length; j++)
{
xls.Cells( i+1, j+1).Value = y[j].innerText
}
}
// To make it display in its own window
xls.visible = true
// Do an "AutoFit" columns in Excel - this is valid only for columns less than or equal to Z
if (y.length <= 26)
{
var rng = xls.Columns(String.fromCharCode(65, 58, 65 + y.length - 1))
rng.AutoFit
}
// xls.ActiveWorkbook.Save ()
// xls.ActiveWorkbook.Close ()
}
function CreateExcelChart()
{
var xlColumns = 2
var xlLocationAsObject = 2
var xl3dPieExploded = 70
var xlAreaChart = 1
// the DOM enables the table parameters to be used from the id
var x=myTable.rows
var xls = new ActiveXObject("Excel.Application")
// To make it display in its own window
xls.visible = true
xls.Workbooks.Add
for (i = 0; i < x.length; i++)
{
var y = x[i].cells
for (j = 0; j < y.length; j++)
{
xls.Cells( i+1, j+1).Value = y[j].innerText
}
}
// Declare a range object to hold our data
var rng = xls.Range("A1").Resize(x.length, y.length)
xls.Charts.Add
xls.ActiveChart.ChartType = xlAreaChart
xls.ActiveChart.SetSourceData (Source = rng, PlotBy = xlColumns)
xls.ActiveChart.Location (Where = xlLocationAsObject, Name = "Sheet1")
// xls.ActiveWorkbook.Save ()
// xls.ActiveWorkbook.Close ()
}
function WriteCSVFile()
{
var x = myTable.rows
var ForWriting = 2
// var ForAppending = 8
var TriStateFalse = 0
var fsObj = new ActiveXObject("Scripting.FileSystemObject")
var newFile = fsObj.OpenTextFile("c:/temp/ClientSideJScriptFile.csv", ForWriting, true, TriStateFalse)
for (i = 0; i < x.length; i++)
{
var y = x[i].cells
var strTmp = y[0].innerText
if (y.length > 0)
{
for (j = 1; j < y.length; j++)
{
strTmp = strTmp + "," + y[j].innerText
}
}
newFile.WriteLine(strTmp)
}
newFile.Close()
}
</script>
<DL>
<DT><A HREF="index.html"><STRONG>Return to LaurenceHolbrook.com Technical Information Index</STRONG></A>
</DL>
<HR>
</head>
<body lang=EN-US background="back.gif" link=blue vlink=purple>
<form>
<input type="button" onclick="CreateExcelSheet()" value="Create Excel Sheet">
<input type="button" onclick="CreateExcelSheetAutoFit()" value="Excel Sheet AutoFit Columns">
<input type="button" onclick="CreateExcelChart()" value="Excel Sheet & Chart">
<BR><BR>
<input type="button" onclick="WriteCSVFile()" value="Create CSV File">
</form>
<%
Put any table here, your little ol' heart desireth
If you change the id, you gotta change it in the script
%>
<table id="myTable" border="1">
<tr> <td>Abe </td> <td>23</td> </tr>
<tr> <td>Betty </td> <td>34</td> </tr>
<tr> <td>Carol </td> <td>56</td> </tr>
<tr> <td>David </td> <td>24</td> </tr>
<tr> <td>Edward</td> <td>16</td> </tr>
<tr> <td>Floyd </td> <td>19</td> </tr>
<tr> <td>Gary </td> <td>38</td> </tr>
<tr> <td>Harold</td> <td>28</td> </tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
