|
5学分
本帖最后由 wyf22006 于 2011-12-20 09:26 编辑
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"工作薄里
|
|