测试通过:
Dim ip As New Importerip.SourcePath = "c:\Data\123.xls" '指定数据文件ip.SourceTableName = "321$" '指定要导入的表ip.NewTableName ="ddd" '导入后的表名ip.Format = "Excel" '指定导入格式ip.Import()