怎样得到OLEObject的数据？
在excel文件中插入一个txt文件对象
操作方法为：插入-〉对象-〉在文件的tab页中选择一个txt文件插入。
问题：在vba中怎么样把这个文件内容输出或者把这个文件保存？
大家有思路的话也说一说阿
[解决办法]
excel中的一段代码
Sub tt()
Dim nx As OLEObject
For Each nx In ActiveSheet.OLEObjects
tx = nx.SourceName
tx = Mid$(tx, InStr(tx, "| ") + 1)
tx = Mid$(tx, 1, Len(tx) - 2)
FileCopy tx, "d:\a.txt "
Next
End Sub
[解决办法]
可以写一段宏来导出：
下面是一个例子
Sub 宏1()
'
' 宏1 宏表
' rocky记录的宏2007-1-25
'
'
Workbooks.OpenText FileName:= "D:\My Documents\TV.txt ", StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=True, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1))
End Sub
