Dim ip As New Importerip.SourcePath = "d:\物料明细.xls" '指定数据文件ip.SourceTableName = "明细$" '指定要导入的表ip.NewTableName ="物料明细表" '导入后的表名ip.Format = "Excel" '指定导入格式ip.Import()