[初学者有关问题]想要操作Excel需要添加什么头文件吗
[菜鸟问题]想要操作Excel需要添加什么头文件吗?
如题
我在程序里已经添加了
#import "C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL " no_namespace rename( "RGB ", "RBGXL ") rename( "DocumentProperties ", "DocumentPropertiesXL ") rename( "IAccessible ", "IAccessibleXL ")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb " no_namespace no_namespace rename( "Component ", "ComponentXL ")
#import "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " rename( "DialogBox ", "DialogBoxXL ") rename( "RGB ", "RGBXL ") rename( "DocumentProperties ", "DocumentPropertiesXL ") rename( "PermissionPtr ", "PermissionPtrXL ") no_dual_interfaces
请问还需要包含什么头文件进来吗?
------解决方案--------------------
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Range iCell;
LPDISPATCH lpDisp;
COleVariant vResult;
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//*****
//初始化COM的动态连接库
if(!AfxOleInit())
{
AfxMessageBox( "无法初始化COM的动态连接库! ");
return ;
}
//*****
//创建Excel 2000服务器(启动Excel)
if(!app.CreateDispatch( "Excel.Application "))
{
AfxMessageBox( "无法启动Excel服务器! ");
return;
}
app.SetVisible(TRUE); //使Excel可见
app.SetUserControl(TRUE); //允许其它用户控制Excel
//*****
//打开c:\\1.xls
books.AttachDispatch(app.GetWorkbooks());
lpDisp = books.Open( "C:\\\\1.xls ",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
//*****
//得到Workbook
book.AttachDispatch(lpDisp);
//*****
//得到Worksheets
sheets.AttachDispatch(book.GetWorksheets());
//*****
//得到当前活跃sheet
//如果有单元格正处于编辑状态中,此操作不能返回,会一直等待
lpDisp=book.GetActiveSheet();
sheet.AttachDispatch(lpDisp);
//*****
//读取已经使用区域的信息,包括已经使用的行数、列数、起始行、起始列
Range usedRange;
usedRange.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
long iRowNum=range.GetCount(); //已经使用的行数
range.AttachDispatch(usedRange.GetColumns());
long iColNum=range.GetCount(); //已经使用的列数
long iStartRow=usedRange.GetRow(); //已使用区域的起始行,从1开始
long iStartCol=usedRange.GetColumn(); //已使用区域的起始列,从1开始
//*****
//读取第一个单元格的值
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
COleVariant vResult =range.GetValue();
CString str;
if(vResult.vt == VT_BSTR) //字符串
{
str=vResult.bstrVal;
}
else if (vResult.vt==VT_R8) //8字节的数字
{
str.Format( "%f ",vResult.dblVal);
}
else if(vResult.vt==VT_DATE) //时间格式
{
SYSTEMTIME st;
VariantTimeToSystemTime(&vResult.date, &st);
如题
我在程序里已经添加了
#import "C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL " no_namespace rename( "RGB ", "RBGXL ") rename( "DocumentProperties ", "DocumentPropertiesXL ") rename( "IAccessible ", "IAccessibleXL ")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb " no_namespace no_namespace rename( "Component ", "ComponentXL ")
#import "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE " rename( "DialogBox ", "DialogBoxXL ") rename( "RGB ", "RGBXL ") rename( "DocumentProperties ", "DocumentPropertiesXL ") rename( "PermissionPtr ", "PermissionPtrXL ") no_dual_interfaces
请问还需要包含什么头文件进来吗?
------解决方案--------------------
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Range iCell;
LPDISPATCH lpDisp;
COleVariant vResult;
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//*****
//初始化COM的动态连接库
if(!AfxOleInit())
{
AfxMessageBox( "无法初始化COM的动态连接库! ");
return ;
}
//*****
//创建Excel 2000服务器(启动Excel)
if(!app.CreateDispatch( "Excel.Application "))
{
AfxMessageBox( "无法启动Excel服务器! ");
return;
}
app.SetVisible(TRUE); //使Excel可见
app.SetUserControl(TRUE); //允许其它用户控制Excel
//*****
//打开c:\\1.xls
books.AttachDispatch(app.GetWorkbooks());
lpDisp = books.Open( "C:\\\\1.xls ",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
//*****
//得到Workbook
book.AttachDispatch(lpDisp);
//*****
//得到Worksheets
sheets.AttachDispatch(book.GetWorksheets());
//*****
//得到当前活跃sheet
//如果有单元格正处于编辑状态中,此操作不能返回,会一直等待
lpDisp=book.GetActiveSheet();
sheet.AttachDispatch(lpDisp);
//*****
//读取已经使用区域的信息,包括已经使用的行数、列数、起始行、起始列
Range usedRange;
usedRange.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
long iRowNum=range.GetCount(); //已经使用的行数
range.AttachDispatch(usedRange.GetColumns());
long iColNum=range.GetCount(); //已经使用的列数
long iStartRow=usedRange.GetRow(); //已使用区域的起始行,从1开始
long iStartCol=usedRange.GetColumn(); //已使用区域的起始列,从1开始
//*****
//读取第一个单元格的值
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
COleVariant vResult =range.GetValue();
CString str;
if(vResult.vt == VT_BSTR) //字符串
{
str=vResult.bstrVal;
}
else if (vResult.vt==VT_R8) //8字节的数字
{
str.Format( "%f ",vResult.dblVal);
}
else if(vResult.vt==VT_DATE) //时间格式
{
SYSTEMTIME st;
VariantTimeToSystemTime(&vResult.date, &st);