请问将多个excel表的文件名和每个表的行数统计出来

GoTop

QUOTE:

以下是引用northwolves在2008-9-25 9:51:00的发言：

哪句出错?

你好，我单步执行的时候在运行到

r = .Execute("select count(标题2) from [sheet1$a:b] group by 标题2").getrows

这行时出错

northwolves

文件路径,sheet1,标题2,自己修改一下

chen7806

QUOTE:

以下是引用GoTop在2008-9-25 9:04:00的发言：

你好，我运行这段代码后只出现了以下标题，但是没有得到文件名和行数

已使用行数

文件名

你肯定路径没写对。代码中是我测试中的路径。开头提示你要修改为自己的文件路径。

GoTop

QUOTE:

以下是引用chen7806在2008-9-25 12:13:00的发言：

你肯定路径没写对。代码中是我测试中的路径。开头提示你要修改为自己的文件路径。

恩，我改了路径，但是忘记在最后加入“\”了，汗啊

代码很好用，简单明了，

我能看得懂哦，嘻嘻，谢谢了~~~~

northwolves

QUOTE:

以下是引用GoTop在2008-9-25 11:43:00的发言：

你好，我单步执行的时候在运行到

r = .Execute("select count(标题2) from [sheet1$a:b] group by 标题2").getrows

这行时出错

再试试:

Sub test()
Dim f As String, t As String, r
With CreateObject("ADODB.connection")
f = Dir("d:\data\*.xls")
While f > ""
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=d:\data\" & f
r = .Execute("select count(f2) from [sheet1$a:b]").getrows
.Close
t = t & f & vbTab & r(0, 0) & vbCrLf
f = Dir
Wend
End With
MsgBox t
End Sub

xiaovba

northwolves 发表于 2008-9-25 18:35
QUOTE:以下是引用GoTop在2008-9-25 11:43:00的发言：你好，我单步执行的时候在运行到r = .Execute("select  ...

.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=d:\data\" & f

最后一段没看懂，既然已经有绝对路径了（D:\data\)，为什么后面又跟了一个f，f也是绝对路径啊？
请教大神指点。

xiaovba

northwolves 发表于 2008-9-25 18:35
QUOTE:以下是引用GoTop在2008-9-25 11:43:00的发言：你好，我单步执行的时候在运行到r = .Execute("select  ...

.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=d:\data\" & f

这个地方可以用变量代替或者用activeworksheet.path赋值吗？怎么写？