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

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

 

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

呵呵,这个用VBA啦!

能达到目的吗？？？？？？？

 

此主题相关图片如下：未命名.jpg

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

 

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

我不是叫你在群里问人家拿一下这个代码,上次我帮人家做过的.

不知向谁拿呀。

 

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("A").SaveExcel("E:\表A.Xls","表A",flg)
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("E:\表A.Xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Rg = Ws.Range("A1:K1")
Rg.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)
Dim Rg1 As MSExcel.Range
Rg1 = Ws.Range("A1:K1")    '设置标题的范围
Rg1.Merge         '合并 
Rg1.Value ="导入"   '设置标题
With Rg1.Font
    .Name = "黑体" '字体
    .Size = 20 '字号
    .Bold = True   '加粗
    .Italic = True '斜体
    .ColorIndex = 3'颜色            '标题设置字体等
End With
Rg1.EntireColumn.AutoFit   '自动调整列宽
Rg1.EntireRow.AutoFit
Rg1 .WrapText =True '引用单个单元格
Ws.PrintPreview                 '预览

Dim Rg As MSExcel.Range
Rg = Ws.Range("A1:K1")
Rg.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)
Dim Rg1 As MSExcel.Range
Rg1 = Ws.Range("A1:K1")    '设置标题的范围
Rg1.Merge         '合并 
Rg1.Value ="导入"   '设置标题

 

 

如果表的宽度是随机的，如何设置合并单元格的数量刚好和表格的列数一样？

就是如何通过数字表示从哪个单元格到哪个单元格？