Dim t As Table = Tables("表A") t.SaveExcel("g:\test.xls", t.name) Dim ip As New Importer ip.SourcePath = "g:\test.xls" '指定数据文件 ip.SourceTableName = t.name & "$" '指定要导入的表 ip.NewTableName = "新表" '导入后的表名 ip.Format = "Excel" '指定导入格式 ip.Filter = "1=2" ip.Import()