主题：狐表修改EXCEL为何出错

 思路正确，不过好像Remove不会清除合并样式的。

 所以必须转变思路，因为清除样式可能要用到VBA。

 用一个全局变量吧……记录行开始的位置i，然后从i开始循环就行了。

 VBA的话，这样

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(0)

Ws.Range("A1:A8").ClearContent

App.Quit

参考：http://www.foxtable.com/help/topics/2121.htm

 呵呵，不好意思，没有测试就乱上代码。代码应该这样写，你写到你的 农行那里，可以取消合并单元格

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(s)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("Sheet1")

'上面几句可以提取出去

Ws.Range("A1").mergearea.mergecells = False
Ws.Range("A1").mergearea.unmerge
wb.Save()

'最后务必要关闭
App.quit

 不会报错，你再试试，不行的的，我帮你写吧。

 嗯嗯，App是一个进程……你在任务管理器那里，把多余的Excel进程结束了，再试。