请问如何在一个打开的Excel文件中在创建一个表

Question

首先会先WorkbooksPtr spBooks = pApp->GetWorkbooks();
  pBooks->Open("C:/Users/Desktop/Book1.xlsx",vtMissing,false);
         SheetsPtr pSheets = pBook->GetWorksheets();
  _WorksheetPtr pSheet = pBook->GetActiveSheet();
         VARIANT var;
         var.vt = VT_DISPATCH;
         var.pdispVal = pSheet;
         pSheets->Add(vtMissing,vtMissing,1,xlWorksheet);
以上是一个临时代码。这样的结果会创建一个新的工作薄而不是在原有的工作博上面创建高手帮帮忙！

Answer 1

问题在于你pBook是一个没有初始化的变量吧？如果你要在Book1.xlsx中加一个sheet，你需要在下面语句后把pBook设置为当前活动book(必须在下面语句之后立刻执行，否则活动book不是这个新打开的）
pBooks->Open("C:/Users/Desktop/Book1.xlsx",vtMissing,false);
pBook=pApplication->ActiveWorkBook

Answer 2

LPDISPATCH  lpDisp=NULL;lpDisp = pSheets->Add(vtMissing,vtMissing,1,xlWorksheet);
pSheets->AttachDispatch(lpDisp,TRUE);
pSheets->SetName(SheetName);