如何提取目录下的文件到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