读取某单元格代码，赋值一样

读取某个单元格的值，参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim text = t.Cell(1, 2).Range.Text.ToString()
    text = text.Substring(0, text.Length - 2)
    msgbox(text)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try