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

2021-09-21 11:50:54

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

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