主题：报表 如何导入 RTF

 打开，读取，然后导入。

 比如类似操作word文件那样处理。

类似代码

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.rtf"
    app.Documents.Open(fileName)
    Dim count = app.Documents(fileName).Characters.Count
    Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)
   
    msgbox(rng.Text)
   
    App.Visible = True
catch ex As exception
    msgbox(ex.message)  
    app.Quit
finally
    'app.Quit
End try