急！VB用ADO访问Excel表！在线等候。。

Question

我用VB编写一个读取Excel表数据的程序，用的是ADO访问，但Excel表中的工作表名称是中文的，请问有什么办法可以解决呢？（工作表名是英文访问没有问题。）RsExl.Open "select * from [工程表$]", ConnExl, adOpenKeyset, adLockOptimistic

Answer 1

可能是我孤陋寡闻，
没有听说用ADO访问EXCEL的叫数据库访问，
我只知道有VBA.
:)

Answer 2

你用VBA是如何访问的，能否给个例子？

Answer 3

我不是强人，
所以一般都是看参考书做，
案头至少得有一点这样的资料吧。
你可以自己找一下VBA的资料；说的肯定比我清楚；

Answer 4

'应该没问题啊.我是用ADO的.'下面是例子:
dim ire as new adodb.recordset
dim iconstr$
iconstr="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=""Excel 5.0;HDR=YES;DATABASE=c:\a.xls(你的excel文件名)"""
ire.open "select * from [工作表$]",iconstr

Answer 5

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\3.xls;Extended Properties=Excel 8.0;"
cn.Openrs.CursorLocation = adUseClient
rs.Open "select * from [Sheet1$]", cn, adOpenKeyset, adLockOptimistic

Answer 6

不行啊，各位帮忙看看，谢谢
Set ConnExl = New ADODB.Connection
Set RsExlMain = New ADODB.Recordset    
ConnExl.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=c:\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
    
RsExlMain.Open "select * from [材料明细$]", ConnExl, adOpenKeyset, adLockOptimistic
运行后提示“材料明细$”不是一个有效的名称，请确认它不包含无效的字符或标点，且名称不太长

Answer 7

To lxqlogo0不会吧，“材料明细”是Excel表中的一个工作表名，其他还有“sheet1”，“文件清单”，“Manage”等，访问“sheet1”和“Manage”时没有问题，但访问“材料明细”，“文件清单”这些中文名字就出现上面的问题，是什么原因呢？