咨询 ADO读取excel的几个问题

tearsky621

我的一个excel表中，有部分员工库的内容，希望用VBA代码更新，在实现中遇到了3个问题：
1、说xlsx版本的文件“外部表不是预期的格式”，另存为xls版本可以。我的xlsx是从网页中导出，然后另存为的，应该是标准的excel版本了吧？
2、我用Set rs = cnn.OpenSchema(adSchemaTables)想获取表名，其中cnn、rs是通过
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

来声明的，无法使用cnn.OpenSchema(adSchemaTables)，后来手动引用了ADO2.6的插件才能使用这个方法，有啥办法解决不

3、员工库有很多个字段，但是只用其中几个部分，所以想用"select 工号,姓名 from *****"的方式，但是其中有些字段为“车间/科室”，有“/”符号的字段就会报错，请问如何处理？引用全部员工库数据就太大了。

请大神指点~！谢谢！

tearsky621

咋没人回呢~~~

zhaogang1960

cnn.OpenSchema(20)——adSchemaTables的值=20

zhaogang1960

请参考：
、

1. Sub 获取工作表名称OpenSchema法()
   
2.     Dim cnn As Object, rst As Object, SQL$, Filename$, i&
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     Filename = Application.GetOpenFilename(filefilter:="Excel文件(*.xls),*.xls", Title:="选择Excel工作簿")
   
5.     If Filename = "False" Then Exit Sub
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Filename
   
7.     Set rst = cnn.OpenSchema(20) 'adSchemaTables=20
   
8.     i = 1
   
9.     Cells(i, 1) = "指定工作簿的工作表名称："
   
10.     i = i + 1
    
11.     Do Until rst.EOF
    
12.         If rst.Fields("TABLE_TYPE") = "TABLE" Then
    
13.             s = Replace(rst("TABLE_NAME").Value, "'", "") '表名含有“1月”等时有多余的单引号
    
14.             If Right(s, 1) = "$" Then  '排除无效表名
    
15.                 Cells(i, 1) = s
    
16.                 i = i + 1
    
17.             End If
    
18.         End If
    
19.         rst.MoveNext
    
20.     Loop
    
21.     rst.Close
    
22.     Set rst = Nothing
    
23.     cnn.Close
    
24.     Set cnn = Nothing
    
25. End Sub

复制代码