Creating Excel tables on the fly

# Example Use: get-process | select name, handles | convertto-xls | out-file ps.xls
function Convertto-Xls 
{
  param($input)
 
  $header = @"
<?xml version='1.0'?>
<?mso-application progid='Excel.Sheet'?>
<s:Workbook xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:s="urn:schemas-microsoft-com:office:spreadsheet">
  <s:Worksheet s:Name="Sample">
    <s:Table>
"@
 
  $body = 
    ($input | Convertto-Html | where {$_ -like "<tr>*</tr>"} |
	foreach {
			$_ -replace "<th>","<s:Cell><s:Data s:Type=`"String`">"
                 } |
	foreach {
			$_ -replace "<td>","<s:Cell><s:Data s:Type=`"String`">"
                 } |
	foreach {
			$_ -replace "<tr>","<s:Row>"
		 } |
	foreach {
			$_ -replace "</tr>","</s:Row>"
		 } |
	foreach {
			$_ -replace "</th>","</s:Data></s:Cell>"
		 } |
	foreach {
			$_ -replace "</td>","</s:Data></s:Cell>"
		 }
    )
 
  $footer = @"
    </s:Table>
  </s:Worksheet>
</s:Workbook>
"@
  $header + $body + $footer
}