如何检查一个未打开的工作簿是否存在某张表？

zhaogang1960

请测试附件
Desktop.rar (28.73 KB, 下载次数: 25)

2014-4-9 15:47 上传

点击文件名下载附件

VBA万岁

zhaogang1960 发表于 2014-4-9 15:47
请测试附件

赵老师的代测试通过。

cloudshare

赵老师的代码经测试完全正确，效率也得到提高，但是由于是初学，对陌生的代码还不理解，赵老师能否加个注释？以利于学习提高！感谢了！

zhaogang1960

cloudshare 发表于 2014-4-9 17:05
赵老师的代码经测试完全正确，效率也得到提高，但是由于是初学，对陌生的代码还不理解，赵老师能否加个注释 ...

ADO法，即把工作簿当作数据库操作，各种方法都是固定的：

1.     While f > ""
   
2.         If f <> ThisWorkbook.Name Then
   
3.             Dim cnn As Object, MyWorkSheet As String
   
4.             MyWorkSheet = "预算成本总表$"
   
5.             Set cnn = CreateObject("ADODB.Connection") '创建连接对象
   
6.             cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & Path & f '连接数据库
   
7.             If Not cnn.OpenSchema(20, Array(Empty, Empty, MyWorkSheet, Empty)).EOF Then '判断是否存在指定工作表
   
8.                 lr = sh.Range("a1").CurrentRegion.Rows.Count + 1 '当前工作表第一个空行
   
9.                 sh.Cells(lr, 2) = Split(f, "_")(0) '文件名
   
10.                 sh.Cells(lr, 3) = cnn.Execute("select f1 from [预算成本总表$b2:b2]")(0) 'b2值
    
11.                 sh.Cells(lr, 4) = cnn.Execute("select f1 from [预算成本总表$d2:d2]")(0) 'd2值
    
12.                 sh.Cells(lr, 5) = cnn.Execute("select f1 from [预算成本总表$e28:e28]")(0) 'e282值
    
13.             End If
    
14.          End If
    
15.         f = Dir()
    
16.     Wend
    

复制代码

VBA万岁

zhaogang1960 发表于 2014-4-9 17:12
ADO法，即把工作簿当作数据库操作，各种方法都是固定的：

谢谢赵老师!
让我又学到了一点，那就是：
通过以下语句从未打开工作簿中获取单个（或散在的）单元格的值：
......
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & Path & f
......
                sh.Cells(lr, 3) = cnn.Execute("select f1 from [预算成本总表$b2:b2]")(0)

zhaogang1960

VBA万岁 发表于 2014-4-10 15:30
谢谢赵老师!
让我又学到了一点，那就是：
通过以下语句从未打开工作簿中获取单个（或散在的）单元格的值 ...

下面方法可以加快速度：
Set rs = cnn.Execute(Sql)
sh.Cells(lr, 2) = rs.Fields(0).Value

请看下面帖子中的讨论：
SQL顺序连接多个工作簿速度的疑问，解释合理加技术分2分
http://club.excelhome.net/thread-1101853-1-1.html

VBA万岁

zhaogang1960 发表于 2014-4-10 15:39
下面方法可以加快速度：
Set rs = cnn.Execute(Sql)
sh.Cells(lr, 2) = rs.Fields(0).Value

测试通过，再次谢谢赵老师！
打算再进“SQL顺序连接多个工作簿速度的疑问，解释合理加技术分2分”淘宝...

hehex

zhaogang1960 发表于 2014-4-9 17:12
ADO法，即把工作簿当作数据库操作，各种方法都是固定的：

关于ADO.Connection 的OpenSchema 方法
cnn.OpenSchema(20, Array(Empty, Empty, MyWorkSheet, Empty))
20 是枚举常量adSchemaTables 的值，这点我能理解。

那个条件查询
TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
TABLE_TYPE
这4个参数居然是要用一维数组来提供的，这点俺查了好多资料上都没有。又学了一招，谢谢赵老师。

武士

楼主、赵老师：两位好
此例是已知表名称，再链接操作。我现在是不知道目标工作簿有没有某个表，其中包含了我所需要的数据。我是先用Application.FileDialog(msoFileDialogOpen)让操作员选择一个文件，然后我需要判断这个文件中有没有包含所需数据的表（已知某个特征值，比如字符“正确”）。
Sub 打开报表文件()
    Dim cnn As Object, rs As Object
    Dim SQL$, p$, f$, temp$, s$
   
    Dim sFile As String
   
    p = ThisWorkbook.Path       ' & "\"
    s = Application.DefaultFilePath
   
    'Application.DefaultFilePath = p
    's = Application.DefaultFilePath
   
    ChDir p
   
    With Application.FileDialog(msoFileDialogOpen)
        If .Show = -1 Then sFile = .SelectedItems(1)
    End With
   
    Cells(1, 1) = sFile '工作簿文件名
   
    'MsgBox sFile
  .......到这儿我该用什么方法？  
  
End Sub

LMY123

If Not cnn.OpenSchema(20, Array(Empty, Empty, MyWorkSheet, Empty)).EOF Then