RTF格式文件导入Excel（恳请各位老师帮忙解答！谢谢！）

zhouyq0706

RTF格式文件导入Excel的问题论坛中有很多，但是都没有得到完美的解答，小弟在这里重新提出，希望各位老师能够帮助一下小弟，万分感谢！

附件中有两个文件：一个是RTF格式，一个是XLS格式。我希望能够通过VBA代码实现：将RTF格式文件中的内容导入到XLS文件中“销售”表的特定位置。
如果把RTF文件内容复制粘贴进XLS虽然能够达到我的想法，但是仅适用于少量文件。而我这边RTF文件数量较多，不适合通过一个一个复制粘贴来实现。

李兴德

RTF能转为XLS?期待

zhouyq0706

不是转化，是提取数据。

alzeng

对Word的操作不熟，抛块砖：

1. 
   
2. Sub GetRtfData()
   
3.     Dim wApp As Object
   
4.     Dim Arr, k%, i%
   
5. 
   
6.     Set wApp = CreateObject("Word.Application")
   
7.     wApp.documents.Open ThisWorkbook.Path & "\1.rtf"
   
8.     wApp.Visible = False
   
9.     k = wApp.activedocument.paragraphs.Count
   
10.     ReDim Arr(1 To k, 0)
    
11.     For i = 1 To k
    
12.          Arr(i, 0) = Replace(wApp.activedocument.paragraphs(i), vbTab, "↑")
    
13.     Next
    
14.     wApp.Quit
    
15.     Set wApp = Nothing
    
16.    
    
17.     [A1].Resize(k) = Arr
    
18.     [A:A].TextToColumns Destination:=[A1], OtherChar:="↑"
    
19.     [A:A].Delete
    
20. End Sub
    

复制代码

camle

试试..思路和楼上一念大大差不多,先用word读取,处理一下tab格式,再粘贴到新的sheet里.
代码在模块1里.

[ 本帖最后由 camle 于 2010-11-11 18:03 编辑 ]

zhouyq0706

非常感谢两位老师的指点。

特别感谢camle，完全能够达到我的要求！

injureboy

那我要从文本文件里提取数据到excel中，也可以这样做吗？

injureboy

请大侠帮忙解决一下的帖子：http://club.excelhome.net/thread-749825-1-1.html