提问：如何使用VC通过MSExcel::SheetsPtr Add方法实现在当前表插入一个模版文件

2012-07-26 09:24:11 259 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PCB印刷电路缺陷检测实战：从数据集准备到模型训练全流程解析本文详细解析了PCB缺陷检测从数据集准备到模型训练的全流程。重点介绍了PKU-Market-PCB数据集的特点与下载方法，并提供了数据格式转换、模型选择（如YOLOv8）与训练配置的实战代码。针对PCB小目标检测的难点，文章给出了数据分析和模型优化的具体策略，帮助读者构建高效的缺陷检测系统。阅读详情

在Excel2007里，可以在当前workbook上插入一个自定义的模版文件作为新的Sheet表

VBA实现：
' 将模版文件Test.xltm作为新的sheet表插入
Sheets.Add Type:="d:\Test.xltm"

但在VC中，通过智能指针调用，始终不成功，

try

{



	m_pAppExcel->DisplayAlerts[0] = VARIANT_FALSE;



	MSExcel::_WorksheetPtr pSheet = m_pAppExcel->ActiveSheet ;

	pSheet->Delete ();



	// 加载模版

	strFileName = _T("D:\\Test.xml");

	_bstr_t  bstrFile(strFileName);

	_variant_t vtXTL = bstrFile;



	MSExcel::_WorkbookPtr pBook	= m_pAppExcel->ActiveWorkbook;





	MSExcel::SheetsPtr	pSheets = pBook->GetWorksheets() ;



	pSheet = pSheets->GetItem((short)1);



	VARIANT varSheet;

	varSheet.vt = VT_DISPATCH;

	varSheet.pdispVal = pSheet;



	_variant_t vtNull;

// 在最前面插入一个空Sheet表，调用成功

//	pSheets->Add (varSheet ,vtMissing ,_variant_t((short)1),XlSheetType::xlWorksheet); 



// 在当前位置插入一个空Sheet表，调用成功

//	pSheets->Add (vtMissing ,vtMissing ,_variant_t((short)1),XlSheetType::xlWorksheet);



// 插入模版文件，插入失败

	pSheets->Add (vtMissing ,vtMissing ,vtMissing,vtXTL);



	m_pAppExcel->DisplayAlerts[0] = VARIANT_TRUE;



	return TRUE;

}

catch(_com_error &e)

{

	CString strErr = CADO::GetCOMError (e);

    ::MessageBox(NULL, strErr, _T("LoadXTLtoSheet - _com_error"),   MB_SETFOREGROUND   |   MB_OK);   

	

/*	

	_bstr_t    bstrDescribe(e.Description());

	CString strTmp = bstrDescribe;

	

	CString strTip;



	strTip = _T("严重错误。CXlOper::LoadXTLtoSheet() 错误:") + strTmp;

//*/

}

catch(...)

{

	CString strTip;

	strTip = _T("严重错误。CXlOper::LoadXTLtoSheet() 错误:未知错误") ;

}

	return FALSE;

}

捕获异常是：0x800a03ec,网上查了一下，说是不支持。

当是把VBA的代码作为在VC中通过宏调用，确实是可以到达目的。
只是注意的问题是：不能在多线程中调用

Sub LoadXLT(a As Variant)



    MsgBox "Hi" & a

   ' Exit Sub

    

    On Error Resume Next

    

    Application.ScreenUpdating = False

    Application.EnableEvents = False

    

    Application.DisplayAlerts = False



    Sheets("SP").Visible = xlSheetVisible

    Sheets("SP").Delete

    

 '   Sheets.Add Type:="d:\Test模版.XML"

     Sheets.Add Type:="d:\Test模版.xltm"

   

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

    Application.EnableEvents = True



    

End Sub

在Excel帮助中，说明如下：
Excel 开发人员参考
Sheets.Add 方法
新建工作表、图表或宏表。新建的工作表将成为活动工作表。
语法

表达式.Add(Before, After, Count, Type)

表达式一个代表 Sheets 对象的变量。

参数

名称必选/可选数据类型描述
Before 可选 Variant 指定工作表的对象，新建的工作表将置于此工作表之前。
After 可选 Variant 指定工作表的对象，新建的工作表将置于此工作表之后。
Count 可选 Variant 要添加的工作表数。默认值为 1。
Type 可选 Variant 指定工作表类型。可以为下列 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。如果基于现有模板插入工作表，则指定该模板的路径。默认值为 xlWorksheet。

请问：在VC中如何实现通过MSExcel::SheetsPtr Add方法实现在当前表插入一个模版文件？

...全文