主题：导入项目下所有工作表出现错误，请指正

你删除这个三个excel文件的sheet2和sheet3，就正常了，这些是空表。

因为你全部要导入到同一个项目文件，而同一个项目，是不允许存在同名的表的。

Dim file As String
Dim dd,i,p,b As Integer
For Each File In FileSys.GetFiles(ProjectPath)
    If file.EndsWith(".xls") Then
        Dim Book1 As New XLS.Book(file)
        dd = Book1.Sheets.count
        For i = 0 To dd - 1
            Dim ip As New Importer
            ip.SourcePath =file  '指定数据文件
            Dim Sheet As XLS.Sheet = Book1.Sheets(i)
            ip.SourceTableName =sheet.name '指定要导入的表
            p=file.LastIndexOf("\")+1
            b=file.length-4
            ip.NewTableName =file.substring(p,b-p) & "_" & sheet.name
            ip.Format = "Excel" '指定导入格式
            ip.Import()
        Next
    End If
Next