主题：求助，如何导出表结构的代码

导出同excel完全一样的表格，这样的代码如何写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出表结构.table

如标题，表头，日期格式等。

只是举个例子，因为我的表格内容不固定，不能使用枚举法的。用excel报表行不通。

不能达到预期的目的。

就是要导出如截图所示完全一样的表格。
此主题相关图片如下：未命名.gif

谢谢，表格达到目的了。

如果给这个表加个标题，如“订单汇总表”，代码如何写？

Dim Book As New XLS.Book("C:\data\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet.Rows.Insert(0) '在最前面插入一行
sheet(0,0).Value=e.Form.controls("表名称").text
sheet.MergeCell(1,1,1,10)
Book.Save("C:\data\test.xls")
Dim Proc As New Process
Proc.File = "C:\data\test.xls"
Proc.Start()

这个代码，也不行。

 

 

 

插入行，表格的格式会变动

ClearMergedCells

 

如何取消指定单元格的合并？

CellStyle：   是否保存单元格样式，默认为False
RowNumber：   是否包括行号列，默认为False
MergedRanges：是否保存合并模式，默认为True
VisibleOnly： 是否只保存可见列，默认为True

 

现在有个问题就是：插入一行，表格会发生变化，出现新的问题。

不知向谁拿呀。