你先试想一下，excel能转换为word吗？如果能，就用word另存为rtf思路 是复制与粘贴引用 excel ,打开后sheet(1).UsedRange.Copy rtftextbox中，粘贴一下就行了 ，
