您所在位置：主题：VB连EXCEL的问题
yl0859
[专家分：0] 发布于 2009-09-24 20:55:00
本人在做项目过程中,在VB6.0环境下,用ADO的方式打开EXCEL.程序分为两个.一个是在本机运行的.在这个程序中,同一个EXCEL文件可以被多个窗口同时用ADO打开,
在局域网的其他电脑上,还有一个程序,这个程序被设计成可以远程打开本机的上述EXCEL文件.但是,每次运行程序时总是显示,该EXCEL文件被本机运行的程序以独占方式打开,造成程序出错,请问,如何让本机以共享的方式打开EXCEL文件.
该问题涉及到的代码如下:
本机和远程均采用以下代码打开同一个EXCEL文件:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=D:\电渣数据表\1月.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [1$]", cn, adOpenKeyset, adLockOptimistic
但是远程机器不能同时打开,报错:EXCEL文件被本机运行的程序以独占方式打开
请师兄不吝赐教为感!!!!
在局域网的其他电脑上,还有一个程序,这个程序被设计成可以远程打开本机的上述EXCEL文件.但是,每次运行程序时总是显示,该EXCEL文件被本机运行的程序以独占方式打开,造成程序出错,请问,如何让本机以共享的方式打开EXCEL文件.
该问题涉及到的代码如下:
本机和远程均采用以下代码打开同一个EXCEL文件:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=D:\电渣数据表\1月.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [1$]", cn, adOpenKeyset, adLockOptimistic
但是远程机器不能同时打开,报错:EXCEL文件被本机运行的程序以独占方式打开
请师兄不吝赐教为感!!!!