金山wps的excel中用VBA连接数据库的问题 50
金山的wps中,在文件中用连接excel数据库的方式连接自身时,出现文件已被别的用户已独占方式打开的提示。代码如下Setconn=CreateObject("ADODB....
金山的wps中,在文件中用连接excel数据库的方式连接自身时,出现文件已被别的用户已独占方式打开的提示。代码如下
Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';Data Source=" & ThisWorkbook.FullName Sql = ("select * from [Sheet2$]") conn.Execute (Sql)如果将excel设为共享工作簿的情况下,同样是上面的代码,运行时出现Sheet2$不是一个有效名称的报错。
请问这种情况怎么解决?
补充:1、只能是金山的wps
2、我需要实现的是在同一个excel文件中,用VBA代码已数据金山wps的excel中用VBA连接数据库的问题库的方式访问该文件中的其他sheet页的数据。 展开
Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';Data Source=" & ThisWorkbook.FullName Sql = ("select * from [Sheet2$]") conn.Execute (Sql)如果将excel设为共享工作簿的情况下,同样是上面的代码,运行时出现Sheet2$不是一个有效名称的报错。
请问这种情况怎么解决?
补充:1、只能是金山的wps
2、我需要实现的是在同一个excel文件中,用VBA代码已数据金山wps的excel中用VBA连接数据库的问题库的方式访问该文件中的其他sheet页的数据。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询