VC 操作Excel表 怎么将一个Excel表中的sheet1复制到另一个Excel表sheet1中

[pengjiang8508]

我最近在做一个对Excel进行操作的工程，想将一个Excel表作为配置表，在另一个Excel中每次新建sheet时利用这个配置表去初始化此sheet，我想将配置表内容以及格式全部复制过去，但是具体不知道怎么弄，求教高手解答！

[baoyz]

这是一个很麻烦的东西。你要先解析excel.olb。
然后麻烦去了。除非你经常用它，否则建议手工粘贴。

[pengjiang8508]

问题提已经解决！
//获取要复制的sheet的区域
m_sheets.AttachDispatch(m_book.GetWorksheets(),TRUE);
m_sheet.AttachDispatch(m_sheets.GetItem(COleVariant((short)1)));
m_range.AttachDispatch(m_sheet.GetRange(_variant_t("A1"),_variant_t("E40")));

//复制选取的区域
m_range.Copy(vtMissing);

//在现有sheet后增加新sheet
COleVariant temp;
temp.pdispVal = m_sheet.m_lpDispatch;
temp.vt = VT_DISPATCH;
m_sheet = m_sheets.Add(m_covOptional,temp,m_covOptional,m_covOptional);

//复制sheet1的格式和列宽到新的sheet中
m_sheet.AttachDispatch(m_sheets.GetItem(COleVariant((short)m_Id)));
m_range.AttachDispatch(m_sheet.GetRange(_variant_t("A1"),vtMissing));
m_range.PasteSpecial(xlPasteFormats,xlPasteSpecialOperationNone,vtMissing,vtMissing);//复制表的格式
m_range.PasteSpecial(xlPasteColumnWidths,xlPasteSpecialOperationNone,vtMissing,vtMissing);//复制列宽

这样即可利用一个sheet作为配置表去复制出一张空表！