Question

VBA利用ADO操作excel求教

我想通过excel VBA操作当前工作簿

我写的代码是这样的

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=MIcrosoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName
conn.Open
得到的错误返回值是"不能使用 '' 文件已在使用中"

我希望做的是 通过ADO来对当前工作簿内指定表内的数据插入,删除,修改

以上:麻烦大神赐教
一下为问题补充,
我希望利用ADO来操作当前工作簿,对工作簿数据增加,删除,等操作
以下代码为我测试的代码,
Option Explicit
Public Sub asdsa()
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES;IMEX=1'"
conn.Open
Dim cmd1 As New ADODB.Command
cmd1.ActiveConnection = conn
cmd1.CommandText = "alter table [数据库$] drop 车种 "
cmd1.Execute
conn.Close
Set conn = Nothing
Set cmd1 = Nothing
End Sub

Answer 1

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES;IMEX=1'"
试试

追问

非常感谢你的回答,但是加了后面几个参数后仅仅只是可以链接数据库,不可以对数据库进行操作,比如增加字段,修改字段.
还望大神赐教
以上

追答

如果要写入，修改工作表，那就把 IMEX=1 改成=0，0是写入模式。
用 ADO+SQL 操作工作表，我一般只是读取时用，ALTER 和 INSERT 等用法还没在EXCEL 中使用过。我想应该会有很多限制的，毕竟它不是一个真正的数据库。
既然只是添加，删除列，为何不直接用 VBA，COLUMN.DELETE?
绕那么大弯？

追问

非常感谢你的耐心解答
只是用VBA来筛选数组太麻烦,所以才想通过数据库来解决的

其实方式确实有很多种,我也是太执着了.
我想这个问题再问下去也没太多意义了
总之非常感谢