ADO方式导入Excel数据如何获取表名?
filename="c:\1.xls"oConnection=Createobject("adodb.connection")
oConnection.ConnectionString='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+filename+';Extended Properties="excel 8.0;HDR=YES;IMEX=1;";Persist Security Info=False'
oConnection.Open
oConnection.Execute('select * into [dBase III;DataBase=c:\].xls2dbf from [sheet1$]')
oConnection.Close
写了个程序,需用ADO方式将Excel数据导入DBF文件中(如上代码),现在问题是:Excel的表名[sheet1$]是否可以不写死,而用程序自动获取?因为表名存在变化会导致无法导入,当无法导入时总是需要手工改为默认表名才能导入。
谢谢高手们指导一下!