转至 EXCEL 可以保留已设的 RTF 格式 吗 ?

c101

请问老师:
如果 Field 已设成 RTF 格式
转入EXCEL 时,可以保留 RTF 格式 吗 ?

    Dim xlsName As String
    Dim xValue As String

    xlsName = "F:\Test.xls"
     xValue = Me.Note
    '( Me.Note.Properties("TextFormat") = acTextFormatHTMLRichText RTF 格式。)      

    Set objApp = CreateObject("Excel.Application")
    Set objBook = objApp.Workbooks.Open(xlsName)      

    objBook.Sheets("Sheet1").Select
    With objApp
         objApp.GoTo "Note"
         objApp.ActiveCell = Trim(xValue)
         ( 希望也是 ACC 所设定的 RTF 格式 )
    End With

    objBook.Save
    objApp.Visible = True
    objBook.Saved = True

tmtony

这个直接赋值 应该不行
你试一下用 代码 模拟复制 剪切 ，看看行不行 （你可先试试 手工复制 如果可以，就可按这个方向来找代码）

c101

謝謝