完善了一下代码，新生成标题行以后，将原来的标题行删除掉，形成新的正式表格：Dim Book As New XLS.Book("c:\工作簿1.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'Sheet.ClearMergedCells
Sheet.Rows.Insert(2)
Dim d As String
For c As Integer = 0 To Sheet.Cols.Count -1 '添加列标题
If Sheet(0, c).Value > "" Then
d = Sheet(0, c).Value
End If
If Sheet(1, c).Value > "" Then
Sheet(2, c).Value = d & "_" & Sheet(1, c).Value
Else
Sheet(2, c).Value = Sheet(0, c).Value
End If
Next
Sheet.Rows.RemoveAt(1)
Sheet.Rows.RemoveAt(0)
Book.Save("c:\工作簿2.xlsx")
Dim Proc As New Process
Proc.File = "c:\工作簿2.xlsx"
Proc.Start()
[此贴子已经被作者于2019/7/9 17:37:56编辑过]
加好友 
发短信
Post By：2019/7/9 15:20:00 [显示全部帖子]
