我的一片天

我的一片天
posts - 27, comments - 12, trackbacks - 0, articles - 16
   :: 首页 :: 新随笔 :: 联系 ::  :: 管理

通过文本的方式生成包含多个SHEET的XLS文件

Posted on 2011-06-02 11:52 xyz 阅读(520) 评论(0)  编辑 收藏 引用 所属分类: Delphi
一切尽在不言中，复制下面的代码放到一个文本文件中，然后把扩展名改成XLS
MIME-Version: 1.0
X-Document-Type: Workbook
Content-Type: multipart/related; boundary="***MY_BOUNDARY_LINE***"

--***MY_BOUNDARY_LINE***
Content-Type: text/html; charset="gbk"

<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel">

<head>
<xml>
<o:DocumentProperties>
<o:Author>Tester</o:Author>
<o:LastAuthor>XLS Test</o:LastAuthor>
<o:Created>2011/6/2 11:11:11</o:Created>
<o:LastSaved>2011/6/2 11:11:11</o:LastSaved>
<o:Company>XLS Tester</o:Company>
<o:Version>1.0</o:Version>
</o:DocumentProperties>
</xml>
<xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name>MySheet1</x:Name>
<x:WorksheetSource HRef="cid:1"/>
</x:ExcelWorksheet>
<x:ExcelWorksheet>
<x:Name>MySheet2</x:Name>
<x:WorksheetSource HRef="cid:2"/>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
</x:ExcelWorkbook>
</xml>
</head>
</html>

--***MY_BOUNDARY_LINE***
Content-ID: 1
Content-Type: text/html; charset="big5"

<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel">

<head><meta http-equiv="Content-Type" content="text/html; charset=big5">
<xml>
<x:WorksheetOptions>
<x:ProtectContents>False</x:ProtectContents>
<x:ProtectObjects>False</x:ProtectObjects>
<x:ProtectScenarios>False</x:ProtectScenarios>
</x:WorksheetOptions>
</xml>
</head>
<body>
<table cellspacing="0" border="1" id="SheetTable1" style="border-collapse:collapse;">
    <tr>
  <td>Index</td><td>BIG5</td>
    </tr><tr>
  <td>0</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>1</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>2</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>3</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>4</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>5</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>6</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>7</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>8</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr><tr>
  <td>9</td><td>2011/6/2 ノめ盞絏恨瞶 11:11:11</td>
    </tr>
</table></body>
</html>

--***MY_BOUNDARY_LINE***
Content-ID: 2
Content-Type: text/html; charset="gbk"

<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel">

<head><meta http-equiv="Content-Type" content="text/html; charset=gbk">
<xml>
<x:WorksheetOptions>
<x:ProtectContents>False</x:ProtectContents>
<x:ProtectObjects>False</x:ProtectObjects>
<x:ProtectScenarios>False</x:ProtectScenarios>
</x:WorksheetOptions>
</xml>
</head>
<body>
<table cellspacing="0" border="1" id="SheetTable2" style="border-collapse:collapse;">
    <tr>
  <td>Index</td><td>BGK</td>
    </tr><tr>
  <td>0</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>1</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>2</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>3</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>4</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>5</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>6</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>7</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>8</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr><tr>
  <td>9</td><td>2011/6/2 用户密码管理 11:11:11</td>
    </tr>
</table></body>
</html>

--***MY_BOUNDARY_LINE***--
只有注册用户登录后才能发表评论。