主题：excel表显示处于只读

 很大原因，是你运行了vba，但是最后没有把 app.Quit 导致的。

 你看进程那里，把所有Excel.exe的进程都杀死

 直接给你代码算了

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel")
For Each p As System.Diagnostics.Process In ps
    p.kill
Next

 回复7楼，是的，一般使用vba的时候都这样写

Dim app

Try

    '正常代码

    app.Quit

Catch ex As Exception

    '错误的时候，关闭

    app.Quit

End Try

某个Excel文件

    Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel")

Dim App As New MSExcel.Application

Try

Dim App As New MSExcel.Application

Try

    '正常代码

    app.Quit

Catch ex As Exception

    '错误的时候，关闭

    app.Quit

End Try

 你想说什么？