ADO创建工作表如何修改权限

wyf22006

mypath = ThisWorkbook.Path
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0; Data source=" & ThisWorkbook.Path & "\录入.xls;"
Sql = "INSERT INTO [0230$] SELECT" & " * FROM  [Excel 8.0;hdr=no;Database=" & mypath & "\数据表.xls; ].[Sheet1$]"
运用以上代码创建的工作薄文件提示是只读文件
运行到以下代码会报错,提示只读文件没有权限
cn.Execute (Sql)
请问该如何解决
******************************************

以上的问题,还是要运用SQL的
CREATE TABLE 语句来从新建的工作薄里创建一个表才行
PS:数据表里的数据可以随便填
录入表是没有的,要通过ADO来创建的
要求是把数据表里的数据分类(每一类按类别创建一个表)放到"录入.xls"工作薄里

Select

我大概的想，

你代码是写操作，

你的工作薄是只读文件，

这就意味着往只读文件里写内容。。。。。这不是矛盾的问题么

wyf22006

Select 发表于 2011-12-19 09:33
我大概的想，

你代码是写操作，

我的意思是从数据源里取数据,当这个数据是新的就放入自动创建一个以这个新数据命名的工作薄,在这个工作薄里放入一个以新数据命名的工作表
数据源会不断的更新

Select

不知道哦。建议楼主上传附件。

吕?布

楼主贴出的只是代码片断，很难猜测问题所在