可以編寫一宏，使導出的文件與原文件完全一樣

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

總結

以上是生活随笔為你收集整理的导出EXCEL中的文件到资源管理器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。