导出EXCEL中的文件到资源管理器

可以编写一宏，使导出的文件与原文件完全一样

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

转载于:https://www.cnblogs.com/djcsch2001/archive/2012/08/31/2664868.html