function fnAutomateExcel(){
		var oXL = new ActiveXObject("Excel.Application")   
		oXL.Visible = false

		var oWB = oXL.Workbooks.Add()
		var oSheet = oWB.ActiveSheet

		mybody=document.getElementsByTagName("body").item(0)
		mytable=mybody.getElementsByTagName("table").item(0)
		mytablebody=mytable.getElementsByTagName("tbody").item(0)
		
		for(var i = 0;i<mytablebody.getElementsByTagName("tr").length;i++){
			myrow=mytablebody.getElementsByTagName("tr").item(i)
			if(i == 0){
				for(var x = 1;x<myrow.getElementsByTagName("th").length;x++){
					mycel=myrow.getElementsByTagName("th").item(x)
					oSheet.Cells(i+1, x).Value = mycel.childNodes.item(0).data
					oSheet.Cells(i+1, x).Font.Bold = true
				}
			} else {
				if(myrow.getElementsByTagName("td").length != 0){
					for(var x = 1;x<myrow.getElementsByTagName("td").length;x++){
						try{
							mycel=myrow.getElementsByTagName("td").item(x)
							oSheet.Cells(i+1, x).Value = mycel.getElementsByTagName("input").item(0).value
						}
						catch(error){
							mycel=myrow.getElementsByTagName("td").item(x)
							oSheet.Cells(i+1, x).Value = mycel.childNodes.item(0).data
						}
					}
				} else {
					for(var x = 1;x<myrow.getElementsByTagName("th").length;x++){
						mycel=myrow.getElementsByTagName("th").item(x)
						oSheet.Cells(i+1, x).Value = mycel.childNodes.item(0).data
						oSheet.Cells(i+1, x).Font.Bold = true
					}
				}
			}
			
		}
		
		oSheet.Range(oSheet.Cells(1,1),oSheet.Cells(i,x)).EntireColumn.AutoFit
		
		oXL.Visible = true
		oXL.UserControl = true
	}

quote:

---

Thanks a lot for the code. I'll try it out and let you know the results.

---