类似:
http://www.foxtable.com/webhelp/topics/2334.htm,遍历处理即可
Dim Book As New XLS.Book("c:\test\xxx.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
dim 文件名称 as string = Sheet(n,1).Value & Sheet(n,2).Value & right(Sheet(n,3).Value,4)