主题：合并数据

前面的代码中：

把
       r(nms(m)) = Sheet(n,m).Value
改为：

       Sheet(n,m).Value = ""

试试···

Dim Book As New XLS.Book("c:\tte1.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
output.show( Sheet.Rows.Count & sheet.cols.count  )
For r As Integer = 1 To Sheet.Rows.Count -1
        For c As Integer = 0 To sheet.cols.count -1
            Sheet(r,c).Value = ""
        Next
Next
Book.Save("c:\tte1.xls")
Dim Proc As New Process
Proc.File = "c:\tte1.xls"
Proc.Start()