Copy from HTML and paste into EXCEL(JavaScript) 2008-06-30 21:37
<html>
<body>
<table name="listTable" id="listTable" border="2">
<th>Col 1</th>
<th>Col 2</th>
<th>Col 3</th>
</table>
<input type=button value="copy" onClick="fnDoCopy();">
<script language="javascript">
function fnDoCopy()
{
textRange = document.body.createTextRange();
textRange.moveToElementText(listTable);
textRange.execCommand("Copy");
}
function PasteFromClipboard()
{
document.form1.area1.focus();
PastedText = document.form1.area1.createTextRange();
PastedText.execCommand("Paste");
var eWApp = new ActiveXObject("Excel.Application");
eWApp.Visible = true;
eWApp.Workbooks.Add();
xlSheet = eWApp.ActiveSheet;
xlSheet.Paste();
}
</script>
<form name="form1">
<textarea id="area1" cols="60" rows="5"></textarea>
<input type="button" onClick="PasteFromClipboard();" value="Paste" />
</form>
</body>
</html>
////////////////
Code 2
<html>
<head>
<script type="text/javascript">
function CreateExcelSheet()
{
var x=myTable.rows
var xls = new ActiveXObject("Excel.Application")
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
}
}
}
</script>
</head>
<body marginheight="0" marginwidth="0">
<form>
<input type="button" onclick="CreateExcelSheet()" value="Create Excel Sheet">
</form>
<table id="myTable" border="1">
<tr> <b><td>Name </td> <td>Age</td></b></tr>
<tr> <td>Shivani </td> <td>25</td> </tr>
<tr> <td>Naren </td> <td>28</td> </tr>
<tr> <td>Logs</td> <td>57</td> </tr>
<tr> <td>Kas</td> <td>54</td> </tr>
<tr> <td>Sent </td> <td>26</td> </tr>
<tr> <td>Bruce </td> <td>7</td> </tr>
</table>
</body>
</html>
/////////////
code 3
function fnSelect(objId)
{
fnDeSelect();
if (document.selection)
{
var range = document.body.createTextRange();
range.moveToElementText(document.getElementById(ob jId));
range.select();
range.execCommand("Copy");
}
else if (window.getSelection)
{
var range = document.createRange();
range.selectNode(document.getElementById(objId));
window.getSelection().addRange(range);
range.execCommand("Copy");
}
var eWApp = new ActiveXObject("Excel.Application")
eWApp.Visible = true
eWApp.Workbooks.Add()
xlSheet = eWApp.ActiveSheet;
xlSheet.Paste();
fnDeSelect();
}
function fnDeSelect()
{
if (document.selection)
document.selection.empty();
else if (window.getSelection)
window.getSelection().removeAllRanges();