VBA巧妙使用资源管理器导出包对象的文件

ljw990485

由于对于包对象，无法取到OLEobject.Object，所以要使用VBA程序导出包对象的文件非常困难

记得前几天，看了论坛某位高手写的帖子（忘记在哪里了），他使用激活包对象，然后使用Sendkeys的方法导出文件

本人无意发现手动复制操作包对象，然后在资源管理器中竟然能够粘帖出包对象的文件，于是想编程操作剪切板读出其中的数据，然后写入文件，但由于功底有限，没成功。

只好使用下面的程序,具体的操作步骤看附件中的包对象中文件，运行下面程序一次，就导出到 d:\做法.doc
导出的文件与原文件完全一样，我使用了可执行文件做实验
Sub DoIt()
    Dim o As OLEObject
    Dim TargetDir As String
    '导出文件的目标目录
   TargetDir = "D:\"
     Dim CmdLine As String
     '使用""，是为了防止文件夹带空格
   CmdLine = "explorer.exe " & """" & TargetDir & """"
     '包含包对象的OLEObject
     Set o = Sheet1.OLEObjects(1)
     o.Copy   
    '在我的电脑中，如果事先没打开资源管理器，一个有时不行
  Shell CmdLine, vbNormalFocus
    Shell CmdLine, vbNormalFocus
   'CTRL + V
    SendKeys "^v"
End Sub

[ 本帖最后由 ljw990485 于 2009-2-9 00:00 编辑 ]

andysky

思路不错

ljw990485

呵呵，我已经彻底解决了问题，无需Sendkeys和Shell，也根本不需要激活包对象，已经把文件放入包内，需要的时候就拿出来

希望版主加精华和置顶，我就发表出来，俺们新人升级不容易呀

roc.jame

测试了不成功了呢？

kinn1982

excel思路很重要，建议加精华。