主题：如何提取目录下的文件到EXCEL报表

如何提取目录下的文件到EXCEL报表的第一列中，一个文件名占EXCEL一行

 

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(0, 0).Value = "文件名"

 

For Each file As String In FileSys.GetFiles(path)
    Dim Ifo As new FileInfo(file)
   
    If Ifo.hidden=False Then
        
        Dim r As Integer = 0
        r=r+1
        sheet(r,0).value = Filesys.GetName(file)
        
    End If
Next

所有的文件名还是都提到一行去了，不是一个文件名一行。老师帮忙看看代码不对吗？

 

For Each file As String In FileSys.GetFiles(path)
    Dim Ifo As new FileInfo(file)
    If Ifo.hidden=False Then
        Dim r As Integer = 0
        r=r+1
        Dim fns As String
        For Each s As String In filesys.getname(file)
            fns=fns & s & vbcrlf
        Next
        sheet(r,0).value = fns
    End If
Next
Book.Save("c:\reports\test.xls")

还是不行，上例子

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目26.rar

想要的效果

 

此主题相关图片如下：113.jpg

问题解决，多谢两位老师

以下代码只能提取指定目录下的文件名，为什么不能提取其子目录下的文件名？代码哪有问题？

 

’提取文件按钮事件

 

Dim FilePath As WinForm.TextBox = e.Form.Controls("TextBox1")

If FileSys.DirectoryExists(FilePath.Value) Then
    Functions.Execute("文件名提取函数",FilePath.value)
End If

 

‘自定义函数

Dim path As String = args(0)

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(0, 0).Value = "文件名"
Dim r As Integer = 1
For Each file As String In FileSys.GetFiles(path)
    Dim Ifo As new FileInfo(file)
    If Ifo.hidden=False Then
        sheet(r,0).value = filesys.getname(file)
        r += 1
    End If
Next

For Each p As String In FileSys.GetDirectories(path)
    Functions.Execute("文件名提取函数",p)
Next
Book.Save("c:\reports\test.xls")

我 就是用了递归函数啊，自我调用。难道函数名字必须叫“递归”

老师您看我的代码不就是用递归函数的原理做的吗，但不好使呢

帮忙看看

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目26.rar

问题解决。 filesys.getname(file)如果返回含路径的文件名呢？