16,472
社区成员
发帖
与我相关
我的任务
分享
IOleObject *m_pole;
//.....m_pole赋值
//....
IStorage * m_pstgfile = NULL;
IStorage * is = NULL;
IPersistStorage* pipstg = NULL;
pwszFile = L"C:\\ex.xls";
DWORD dwBindFlgs = (STGM_TRANSACTED | STGM_SHARE_DENY_WRITE | STGM_READWRITE);
if (SUCCEEDED(hr = StgOpenStorage(pwszFile, NULL, dwBindFlgs, NULL, 0, &is)))
{
hr = is->CopyTo(0, NULL, NULL, m_pstgfile);
if (SUCCEEDED(hr)){ m_pstgfile->Commit(STGC_OVERWRITE);}
}
if (SUCCEEDED(hr = m_pole->QueryInterface(IID_IPersistStorage, (void**)&pipstg)))
{
pipstg->Load(m_pstgfile);
pipstg->Release();
}
_ApplicationPtr pXL;
pXL.CreateInstance(L"Excel.Application");
WorkbooksPtr pBooks = pXL->Workbooks;
_WorkbookPtr pBook = pBooks->Add((long)xlWorksheet);
_WorksheetPtr pSheet = pXL->ActiveSheet;