老师，我做测试在命令窗口中输入

For Each file As String In filesys .GetFiles("C:\\Users\\19880034\\Documents\\Foxtable项目\\")
Output.Show(file)
Next

可以看到文件 合同明细.xls

但输入For Each file As String In filesys .GetFiles("C:\\Users\\19880034\\Documents\\Foxtable项目\\合同明细.xls")
Output.Show(file)
Next

却出错！我需要利用合同明细的一些数据再返输入到另一个表中。

 呃，红色代码，必须是目录名，而不是文件名

For Each file As String In filesys .GetFiles("C:\\Users\\19880034\\Documents\\Foxtable项目\\")
Output.Show(file)
Next

 如果要操作excel，参考这里 http://www.foxtable.com/help/topics/1144.htm

是的，我就是要操作Excel, 可是出错，我才去命令窗口测试一下。代码如下：

For Each file As String In filesys .GetFiles("C:\\Users\\19880034\\Documents\\Foxtable项目\\合同明细.xls")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("销售收入").AddNew
        dr("客户简称") = sheet(4,1).Text
        dr("合同编号") = sheet(5,14).text
        dr("非含税价格") = sheet(9,12).text
        dr("含税价格") = sheet(10,12).text
    End If
Next

设计标记，然后在报表事件那里写代码

http://www.foxtable.com/help/topics/1396.htm

http://www.foxtable.com/help/topics/1954.htm