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

GoTop

请问如何将一个文件夹下的多个excel表的文件名和每个表包含的行数统计出来 qZrfiz08.rar (1.84 KB, 下载次数: 15)

2008-9-24 17:49 上传

点击文件名下载附件
请问如何将单元格中某部分1至24的自然数都变成成两位数的

[此贴子已经被作者于2008-9-24 17:57:03编辑过]

chen7806

最好发一个数据结构的样表。

vinsine

Sub Test()
 Dim fso As New FileSystemObject
 Dim fFile As Object
 Dim strFileName As String
 Dim strFile As String
 Dim intRow As Integer
 Dim fromPath As String

 Dim xlBook As New Excel.Workbook
 Dim xlSheet As New Excel.Worksheet
 
 fromPath = "C:\" '指定文件夹

 If Right(fromPath, 1) <> "\" Then fromPath = fromPath & "\"
 
    For Each fFile In fso.GetFolder(fromPath).Files
    If UCase(Right(fFile.Name, 3)) = "XLS" Then
     strFileName = fFile.Name
     Set xlBook = Workbooks.Open(fromPath & fFile.Name)
     Set xlSheet = xlBook.Sheets(1)
     intRow = xlSheet.UsedRange.Rows.Count
     strFileInfo = strFileName & "包含" & intRow & "行"
    
     strFile = strFile & "'" & strFileInfo
     xlBook.Close
     Set xlBook = Nothing
    End If
     Next
    
MsgBox strFile
 
End Sub

GoTop

QUOTE:

以下是引用vinsine在2008-9-24 16:00:00的发言：

Sub Test()
 Dim fso As New FileSystemObject
 Dim fFile As Object
 Dim strFileName As String
 Dim strFile As String
 Dim intRow As Integer
 Dim fromPath As String

 Dim xlBook As New Excel.Workbook
 Dim xlSheet As New Excel.Worksheet
 
 fromPath = "C:\" '指定文件夹

 If Right(fromPath, 1) <> "\" Then fromPath = fromPath & "\"
 
    For Each fFile In fso.GetFolder(fromPath).Files
    If UCase(Right(fFile.Name, 3)) = "XLS" Then
     strFileName = fFile.Name
     Set xlBook = Workbooks.Open(fromPath & fFile.Name)
     Set xlSheet = xlBook.Sheets(1)
     intRow = xlSheet.UsedRange.Rows.Count
     strFileInfo = strFileName & "包含" & intRow & "行"
    
     strFile = strFile & "'" & strFileInfo
     xlBook.Close
     Set xlBook = Nothing
    End If
     Next
    
MsgBox strFile
 
End Sub

你好，我运行这段代码的时候提示

Dim fso As New FileSystemObject

“用户定义类型未定义”

vinsine

QUOTE:

以下是引用GoTop在2008-9-24 16:27:00的发言：

你好，我运行这段代码的时候提示

Dim fso As New FileSystemObject

“用户定义类型未定义”

要使用FSO对象，首先必须在工程中引用“Microsoft Scripting Runtime”。

GoTop

QUOTE:

以下是引用vinsine在2008-9-24 16:32:00的发言：

要使用FSO对象，首先必须在工程中引用“Microsoft Scripting Runtime”。

高手，请问如何在工程中引用“Microsoft Scripting Runtime”？

我在网上查了一下，查到的方法是：

工程-- >引用-- >Microsoft   Scripting   Runtime

我在excel中编辑宏，不知道该怎么引用“Microsoft Scripting Runtime”呢

是不是要用VB来编程？

[此贴子已经被作者于2008-9-24 16:57:28编辑过]

vinsine

。。。。。，就是在编辑宏的窗口中选择，工具--引用 ,在窗口中勾上Microsoft Scripting Runtime

[此贴子已经被作者于2008-9-24 16:59:43编辑过]

GoTop

QUOTE:

以下是引用vinsine在2008-9-24 16:58:00的发言：

。。。。。，就是在编辑宏的窗口中选择，工具--引用 ,在窗口中勾上Microsoft Scripting Runtime

哈哈，好的，可以了运行并且出结果了~~~谢谢了~~

但是能不能把结果输出在excel文件中呢，在一个弹出窗口中查看比较乱，也不能保存

GoTop

QUOTE:

以下是引用chen7806在2008-9-24 15:51:00的发言：

最好发一个数据结构的样表。

你好，我已经把样表上传了，请帮忙看一下，谢谢了~~~

vinsine

QUOTE:

以下是引用GoTop在2008-9-24 17:31:00的发言：

哈哈，好的，可以了运行并且出结果了~~~谢谢了~~

但是能不能把结果输出在excel文件中呢，在一个弹出窗口中查看比较乱，也不能保存

输出格式是怎样的？上传个样式表拉