excel的表名有错吧?
Dim ip As New Importerip.SourcePath = "d:\test.xls" '指定数据文件ip.SourceTableName = "sheet1$" '指定要导入的表ip.NewTableName ="1" '导入后的表名ip.Format = "Excel" '指定导入格式ip.Import()