VBA中如何在指定路径下打开文件

mtxj

记得以前看到过一个excelVBA，里面有代码，专指指定的路径下（如D盘或者D盘下的某个文件夹下）才能打开该文档，复制到别的路径后，该文档打开后就不存在了（相当于自杀了），现在想用却找不到了，不知道谁能提供个！

liulang0808

难道是代码中已经添加了指定路径，如果选择的文件路径跟指定路径有出入，那么就删除该文件？

mtxj

大概记得是这样的，vba里有代码  后面有路径，必须在规定的路径下打开文件，拷贝到别的路径下，打开文档后，文档就触发点击启动宏后文档就不存在了，新路径下文档也就不存在了 不指导具体代码如何写！

vitrel

mtxj 发表于 2024-1-4 22:19
大概记得是这样的，vba里有代码  后面有路径，必须在规定的路径下打开文件，拷贝到别的路径下，打开文档后 ...

您的想法挺有趣的，忍不住写一个试一下，您看是否符合您的要求。

1. '工作簿打开时执行
   
2. Private Sub Workbook_Open()
   
3.     If LCase(ThisWorkbook.Path) <> "c:\abc" Then '为避免大小写不符的情况，这里规定，路径字符串中的英文为小写
   
4.         MsgBox "工作簿不在指定的路径中，即将自毁！", vbExclamation
   
5.         With ThisWorkbook
   
6.             .Save '保存本工作簿
   
7.             .ChangeFileAccess xlReadOnly '将本工作簿设为只读
   
8.             Kill .FullName '删除本工作簿
   
9.             .Close '关闭本工作簿
   
10.         End With
    
11.     End If
    
12. End Sub

复制代码

附件说明：附件工作簿在C:\ABC\目录下打开，则一切正常；若将其放到其它目录中打开，则会自毁。

vb知行

一、使用Shell函数打开文件夹  vb打开指定路径文件夹  Shell函数是VB中用于执行外部程序或操作系统命令的函数。我们可以使用Shell函数来打开指定路径的文件夹。具体代码如下：  Shell "explorer.exe " & "D:\folder"  其中，explorer.exe表示打开文件夹的应用程序，D:\folder表示要打开的文件夹路径。通过这种方式，我们可以很方便地打开指定路径下的文件夹。  二、使用WScript.Shell对象打开文件夹  WScript.Shell对象是VB中用于操作Windows脚本的对象。我们可以使用WScript.Shell对象的Run方法来打开指定路径的文件夹。具体代码如下：  Dim objShell As Object  Set objShell = CreateObject("WScript.Shell")  objShell.Run "explorer.exe D:\folder", 1, True  Set objShell = Nothing  其中，CreateObject("WScript.Shell")表示创建一个WScript.Shell对象，objShell.Run方法表示执行命令，1表示窗口显示方式为普通窗口，True表示等待命令执行完毕后再继续执行后续代码。通过这种方式，我们可以更加灵活地控制文件夹的打开方式和显示方式。  三、使用FileSystemObject对象打开文件夹  FileSystemObject对象是VB中用于操作文件系统的对象。我们可以使用FileSystemObject对象打开指定路径的文件夹。具体代码如下：  Dim objFSO As Object  Set objFSO = CreateObject("Scripting.FileSystemObject")  objFSO.GetFolder("D:\folder").ParentFolder  Set objFSO = Nothing  其中，CreateObject("Scripting.FileSystemObject")表示创建一个FileSystemObject对象，objFSO.GetFolder方法表示获取指定路径的文件夹，.ParentFolder表示打开文件夹所在的父文件夹。通过这种方式，我们可以灵活地获取文件夹对象，并进行更多的文件操作。  四、打开系统默认文件夹  除了打开指定路径的文件夹，我们还可以打开系统默认的文件夹，如“我的文档”、“桌面”等。具体代码如下：  Shell "explorer.exe " & CreateObject("WScript.Shell").SpecialFolders("MyDocuments")  其中，CreateObject("WScript.Shell").SpecialFolders("MyDocuments")表示获取系统默认的“我的文档”文件夹路径。我们可以根据需要修改SpecialFolders参数，打开不同的系统默认文件夹。