Office中国论坛/Access中国论坛

标题: 转至 EXCEL 可以保留已设的 RTF 格式吗 ? [打印本页]

作者: c101 时间: 2016-2-26 16:44
标题: 转至 EXCEL 可以保留已设的 RTF 格式吗 ?
请问老师:
如果 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 时间: 2016-2-27 11:06
这个直接赋值应该不行
你试一下用代码模拟复制剪切，看看行不行（你可先试试手工复制如果可以，就可按这个方向来找代码）

作者: c101 时间: 2016-2-29 11:09
謝謝

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)