用vba 写一个在局域网内读取其他电脑上access文件

首先，你需要在你的电脑上安装 Access 数据库引擎，这样你的 VBA 代码才能够连接到其他电脑上的 Access 文件。接下来，你需要使用以下 VBA 代码来连接到其他电脑上的 Access 文件：

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\其他电脑的IP地址\共享文件夹\access文件名.accdb;Persist Security Info=False;"

其中，"\\其他电脑的IP地址\共享文件夹\access文件名.accdb" 是其他电脑上 Access 文件的路径。

如果需要验证登录信息，你可以修改连接字符串，添加用户名和密码的信息：

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\其他电脑的IP地址\共享文件夹\access文件名.accdb;User ID=用户名;Password=密码;Persist Security Info=False;"

注意，访问其他电脑上的文件需要有相应的权限，否则会访问失败。