我是这样做的:
try
//将模板工作表复制一份
ExcelWorkSheet_Template.Copy(Excel_DB_Structure.Sheets[2]);
Temp_Worksheet := Excel_DB_Structure.Sheets['Template (2)'] as _WorkSheet;
//将复制的工作表改名为表名,连接该工作表进行数据插入操作。
ExcelWorksheet_New.ConnectTo(Temp_WorkSheet);
ExcelWorksheet_New.Name := ADOQ_Table_Listtable_name.AsString;
except
ShowMessage('Add WorkSheet Failure');
end;