OlePropertySet,OleFunction,为什么在link时总出错?
我用的是CB6,代码用途是将数据库的内容转换到excel中
// 向Excel发送数据
System::Variant Excel, NewExcel;
int i, j = 1;
try
{
Excel = CreateOleObject("Excel.Application");
}
catch(...)
{
MessageBox(Handle, "无法启动Excel,请检查Excel是否正确安装!", "错误", MB_OK|MB_ICONERROR);
return;
}
Excel.OlePropertySet("Visible", (Variant)true); // 使excel启动后可见
NewExcel = (Excel.OleFunction("Workbooks")).OleFunction("Add"); // 新建一个工作薄
// 插入列
for(i = 0; i < QuerySoot->Fields->Count; i++)
{
(Excel.OleFunction("Cells")).OlePropertySet("Item", (Variant)i, (Variant)(i+1), (Variant)QuerySoot->Fields->Fields[i]->FieldName);
}
// 将数据添加至excel中
QuerySoot->First();
while(!QuerySoot->Eof)
{
j = j + 1;
for(i=0; i < QuerySoot->FieldCount; i++)
{
(Excel.OleFunction("Cells")).OlePropertySet("Item", (Variant)j, (Variant)(i+1), (Variant)QuerySoot->Fields->Fields[i]->AsString);
}
QuerySoot->Next();
}
String sFile = "c:\\histroy.xls";
NewExcel.OleFunction("SaveAs", (Variant)sFile);
Excel.OleFunction("Quit");
请高手不吝指教