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$]是否可以不写死，而用程序自动获取？因为表名存在变化会导致无法导入，当无法导入时总是需要手工改为默认表名才能导入。

谢谢高手们指导一下！

可以先将工作簿中的表名全部读入到列表框中，让用户自己选择后再导入。

[ 本帖最后由 hu9jj 于 2011-2-18 09:35 编辑 ]

如何获取，能些实例吗？