轉(zhuǎn)至 EXCEL 可以保留已設(shè)的 RTF 格式 嗎 ?

c101

請(qǐng)問老師:
如果 Field 已設(shè)成 RTF 格式
轉(zhuǎn)入EXCEL 時(shí),可以保留 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 所設(shè)定的 RTF 格式 )
    End With

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

tmtony

這個(gè)直接賦值 應(yīng)該不行
你試一下用 代碼 模擬復(fù)制 剪切 ，看看行不行 （你可先試試 手工復(fù)制 如果可以，就可按這個(gè)方向來找代碼）

c101

謝謝