CApplication ExcelApp;
CWorkbooks books;
CWorkbook book;
CWorksheets sheets;
CWorksheet sheet;
CRange range;
LPDISPATCH lpDisp = NULL;
if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("启动Excel服务器失败!"));
return -1;
}
ExcelApp.put_Visible(TRUE);
ExcelApp.put_UserControl(FALSE);
books.AttachDispatch(ExcelApp.get_Workbooks());
CString strpath= _T("D:\\Projects vc\\RealtyApp\\SaveFile\\test.xlsx");
lpDisp = books.Open(strpath, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing);
book.AttachDispatch(lpDisp);
CWorkbooks books;
CWorkbook book;
CWorksheets sheets;
CWorksheet sheet;
CRange range;
LPDISPATCH lpDisp = NULL;
if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("启动Excel服务器失败!"));
return -1;
}
ExcelApp.put_Visible(TRUE);
ExcelApp.put_UserControl(FALSE);
books.AttachDispatch(ExcelApp.get_Workbooks());
CString strpath= _T("D:\\Projects vc\\RealtyApp\\SaveFile\\test.xlsx");
lpDisp = books.Open(strpath, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing);
book.AttachDispatch(lpDisp);
本文介绍了一种使用VBA(Visual Basic for Applications)来启动Excel应用程序,并通过编程方式打开指定路径下的Excel文件的方法。该过程涉及创建Excel应用程序实例、设置可见性和用户控制属性、获取工作簿对象及附加其接口指针。
4329

被折叠的 条评论
为什么被折叠?



