VBA连接有密码的共享盘

段公子

各位大神，VBA 怎样打开一个有用户名和密码的网络共享文件？怎么将用户名和密码写在代码中运行代码就能打开共享盘，在用ADO连接文件？

不二猫猫

1. 要打开带有用户名和密码的网络共享文件，在VBA中可以使用Windows API函数WNetAddConnection2。以下是一个示例代码，可以将共享文件夹映射到本地驱动器，并使用提供的用户名和密码进行身份验证。
   
2. 
   
3. ' 定义网络共享文件路径
   
4. Const sharePath As String = "\\server\share"
   
5. 
   
6. ' 定义要映射到的本地驱动器号
   
7. Const localDrive As String = "Z:"
   
8. 
   
9. ' 定义用户名和密码
   
10. Const username As String = "your_username"
    
11. Const password As String = "your_password"
    
12. 
    
13. ' 调用WNetAddConnection2函数映射网络驱动器
    
14. Dim res As Long
    
15. res = WNetAddConnection2( _
    
16.          RemoteName:=sharePath, _
    
17.          Password:=password, _
    
18.          UserName:=username, _
    
19.          LocalName:=localDrive, _
    
20.          dwFlags:=0 _
    
21.       )
    
22. 
    
23. ' 检查是否映射成功
    
24. If res = 0 Or res = 1219 Then
    
25.     ' 映射成功或已经存在映射，使用ADO连接共享文件
    
26.     Dim conn As ADODB.Connection
    
27.     Set conn = New ADODB.Connection
    
28.     conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    
29.                               "Data Source=" & localDrive & "\path\to\file.accdb"
    
30.     conn.Open
    
31.     ' 进行其他操作，例如查询数据等
    
32. Else
    
33.     ' 映射失败，处理错误
    
34.     MsgBox "Failed to map network drive.", vbExclamation
    
35. End If
    
36. 在上面的代码中，我们首先定义共享文件夹的路径和要映射到的本地驱动器号。然后，我们定义用户名和密码。接下来，我们调用WNetAddConnection2函数来映射网络驱动器，并指定用户名和密码进行身份验证。如果映射成功或已经存在映射，我们使用ADO连接共享文件。如果映射失败，我们会弹出一个消息框显示错误信息。
    
37. 
    
38. 请注意，将用户名和密码写在代码中是不安全的，因为它们可以被轻松地窃取。更好的方法是将它们存储在一个安全的地方，并在代码中引用它们。例如，您可以将它们存储在Windows凭据管理器中，并使用[CredRead](poe://www.poe.com/_api/key_phrase?phrase=CredRead&prompt=Tell%20me%20more%20about%20CredRead.)函数从代码中读取它们。

复制代码

houxp

二楼大老啊，受教了