注：文章内容来源于网络，真实性有待确认，请自行甄别。
解压缩代码应用问题下面这段代码是别人写的，是用VBA控制的自动解
发表于：2024-10-24 00:00:00浏览：7次
问题描述：
下面这段代码是别人写的，是用A控制的自动解压程序，因我在日常工作中将原文件及解压文件都放在桌面，（一是桌面清楚，二是处理完毕不保留而清除掉了，三是我的电脑只有一个C盘）故我将
"D:\******.rar"替换成"C:\Documents and Settings\Administrator\桌面\******.rar"
"D:\"替换成"C:\Documents and Settings\Administrator\桌面\"
但运行结果是“找不到原文件”，但我再改回到D盘，则成功，请各位高手帮助分析一下，我错在哪里？谢谢
下面这段代码是别人写的，是用A控制的自动解压程序，因我在日常工作中将原文件及解压文件都放在桌面，（一是桌面清楚，二是处理完毕不保留而清除掉了，三是我的电脑只有一个C盘）故我将
"D:\******.rar"替换成"C:\Documents and Settings\Administrator\桌面\******.rar"
"D:\"替换成"C:\Documents and Settings\Administrator\桌面\"
但运行结果是“找不到原文件”，但我再改回到D盘，则成功，请各位高手帮助分析一下，我错在哪里？谢谢
Sub UnRarFileb()
Dim Rarexe As String
Dim Source As String
Dim Target As String
Dim FileString As String
Dim Result As Long
Rarexe = "C:\Program files\WinRAR\WinRAR.exe"
Source = "D:\******.rar" '测试过WINRAR生成的ZIP文件，可以解压缩
Target = "D:\"
FileString = Rarexe & " X " & Source & " " & Target
Result = Shell(FileString, vbHide)
End Sub
把所有长文件名改成8.3格式即：Documents and Settings改成docume~1，Program files改成progra~1试试
猜你喜欢
- ppt在插入图片时出现无法插入的问题在插入时，图片文件夹打开后，
- 在插入时，文件夹打开后，出现图片文件不能正常显示，选定一个图片文件后就出现PowerPoint 停止工作较长时间，进而自动退出的现象，不知如何解决。
- EXCEL中如何打印字体颜色，却不打印单元格背景色？为了视觉上的
- 为了上的直观，我在电子表格中，对某些单元格使用了不同的背景色，但这些背景色只能在电子表格中被看见，而不能打印出来。 要解决这个问题很简单，只需要在页面设置中选择“单色打印”即可。 现在，我需要对一些文字改变颜色，并且需要打印出颜色来。如果启用了“单色打印”就不能将字体的颜色打印出来了。 甚至有的时候，在同一个单元格内，其背景色不需要打印出来，而文字的颜色则需要被打印出来。 请问，如何解决这个矛...
栏目分类全部>
推荐文章
- ppt在插入图片时出现无法插入的问题在插入时，图片文件夹打开后，
- excel表格中，怎么才能让项目永远保持在最上面，无论下来页面都?
- 为什么复制到word里的同样字体和大小的文字颜色会深浅不一？为什
- 网页在复制后经过word编辑时，发现里面有许多下箭头标记，请问怎?
- EXCEL中如何打印字体颜色，却不打印单元格背景色？为了视觉上的
- 请问.WORD里面打印时如何设置成隔页打印的模式啊?就是只打第一?
- 怎样使IF函数返回的值自动添加颜色?在使用EXCEL函数的时候,
- 把word中的带横杠的数字复制到excel中，为何变成了日期？使
- S上面加一横请问在Word里如何在英文字母S的上面加一横？除了用
- EXCEL单表格里想打多行可以吗单格里有没有类似于文档“回车键”