BCB6 DLL中操作Excel的问题

[csinfo_hou]

直接在工程中能够实现对Excel的操作（Variant方式），但在 DLL 文件中，
却老是不能成功。即便是如下的简单代码也不能build啊！
现象：勾选"Build with runtime pakages"，则正确，清除该选项则报告如下错误信息：
[Linker Fatal Error] Fatal: Unable to open file 'EXCEL_2K_SRVR.OBJ'

代码：
//---------------------------------------------------------------------------
#include <vcl.h>
#include "Excel_2K_SRVR.h"

//#include <windows.h>
#pragma hdrstop

// ...... 自定义 export函数 ......

#pragma link "Excel_2K_SRVR"

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}
//---------------------------------------------------------------------------
环境：xp + bcb6 + office2003

？？？为什么呢 ？？？？

[Behard]

取消 #pragma link "Excel_2K_SRVR"

#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#include <Excel_2K_SRVR.h> 

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    switch(reason)
    {
    case DLL_PROCESS_ATTACH:        //初始化 COM
        CoInitialize(NULL);
        break;
    case DLL_PROCESS_DETACH:        //释放 COM
        CoUninitialize();
        break;

    case DLL_THREAD_ATTACH:
        break;
    case DLL_THREAD_DETACH:
        break;
    }
    return 1;
}

[csinfo_hou]

首先谢谢Behard的回复！

问题依旧存在：
参考你的代码，去掉 #pragma link "Excel_2K_SRVR"，则报了30来个诸如以下的错误：
Build
[Linker Error] Unresolved external 'Oleserver::TOleServer::' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall Excel_2k::TExcelOLEObject::BeforeDestruction()' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall Oleserver::TOleServer::~TOleServer()' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall Oleserver::TOleServer::Loaded()' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__stdcall Oleserver::TOleServer::QueryInterface(const _GUID&, void *)' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall Oleserver::TOleServer::TOleServer(Classes::TComponent *)' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall Excel_2k::TExcelOLEObject::InitServerData()' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall Oleserver::TOleServer::GetServer()' referenced from F:\MYBCB\DLL\DLLXLS\UNIT1.OBJ

在#include <Excel_2K_SRVR.h>之后，加上 #pragma link "Excel_2K_SRVR"则只报告：
[Linker Fatal Error] Fatal: Unable to open file 'EXCEL_2K_SRVR.OBJ'

郁闷！

[Behard]

哦 你使用了哪些类进行操作？
简单的代码呢

[csinfo_hou]

现在只用OLE代码，在DLL文件中实现操作XLS文件。
在成功打开.XLS文件后，想根据其活动工作表新建一个.DBF表。链接时报错：
[Linker Fatal Error] Fatal: Unable to open file 'EXTCTRLS.OBJ'

目前的完整代码如下：
//---------------------------------------------------------------------------
#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBTables.hpp> // TTable
#include <OleServer.hpp> // OLE

extern "C" __declspec(dllexport) void __stdcall XLStoDBF( const char *cpXLS, const char *cpDBF );
bool __fastcall openXLSFile( const String sXLSFile );
bool __fastcall creatNewTmpDBF( const String sOutDBF );

//------- OLE函数 宏定义 -------------------------
#define PG OlePropertyGet // 取属性
#define PS OlePropertySet // 设置属性
#define FN OleFunction // 函数调用
#define PC OleProcedure // 过程调用
//------- OLE 常用变量定义 -----------------------
Variant ExcelApp; // Excel Application 对象
Variant WorkB, WorkS; // 工作簿, 工作表
//------- 全局变量定义 ---------------------------
String sXLS, sDBF; // 全路径：原.XLS文件，临时DBF表
int iColCnt, iRowCnt, iColWidth; // .XLS文件 列数.行数.列宽

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}
//---------------------------------------------------------------------------

bool __fastcall openXLSFile( const String sXLSFile )
{// 打开指定的.XLS文件
try
{ ExcelApp = CreateOleObject( "Excel.Application" ); }
catch(...)
{ MessageBox( NULL, "MS Office 的 Excel组件可能未安装 ！ ",
"错误", MB_OK|MB_TOPMOST|MB_ICONERROR|MB_APPLMODAL);
return false;
}
ExcelApp.PG("WorkBooks").PC( "Open", sXLSFile.c_str() );
WorkB = ExcelApp.PG( "ActiveWorkBook" ); // 工作薄
WorkS = WorkB.PG( "ActiveSheet" ); // 活动工作表
ExcelApp.PS( "Visible", false ); // 隐藏 excel窗口

iColCnt = WorkS.PG("UsedRange").PG("Columns").PG("Count"); // 列数
iRowCnt = WorkS.PG("UsedRange").PG("Rows").PG("Count"); // 行数

return true;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
bool __fastcall creatNewTmpDBF( const String sTmpDBF )
{//根据先前打开的.XLS文件活动表，创建空.DBF表
if ( FileExists(sTmpDBF) )
if ( ! DeleteFile( sTmpDBF ) )
{ MessageBox( NULL, "删除原有临时数据表时出错！", "删除临时数据表",
MB_OK|MB_TOPMOST|MB_ICONERROR|MB_APPLMODAL );
return false;
}

TTable * tableTmp = new TTable(NULL);
TFieldDef * pNewDef; // 表 字段定义
tableTmp->Active = false;
tableTmp->TableName = sTmpDBF; // 表 名称
tableTmp->TableType = ttDefault; // 表 类型
tableTmp->FieldDefs->Clear(); // 清除 字段定义
try {
for( int i=1; i<=iColCnt; i++ )
{
pNewDef = tableTmp->FieldDefs->AddFieldDef(); // 添加一个 字段定义表
pNewDef->Name = WorkS.PG("Cells",1,i).PG("Value"); // 字段名：XLS工作表首行
pNewDef->DataType = ftString; // 字段类型：String
iColWidth = ExcelApp.PG("Columns",i).PG("ColumnWidth"); // 当前i列宽度
pNewDef->Size = iColWidth; // 字段大小
pNewDef->Required = false; // 不强制要求值
}
tableTmp->CreateTable(); // 根据.XLS表 生成空.DBF表
delete tableTmp;
}
catch(...)
{ ...(略) ... }

return true;
}
//---------------------------------------------------------------------------

void __stdcall XLStoDBF( const char *cpXLS, const char *cpDBF )
{//DLL文件 输出函数
sXLS = String( cpXLS );
sDBF = String( cpDBF );

if ( openXLSFile( sXLS ) ) // 打开指定 .XLS表
creatNewTmpDBF( sDBF ); // 创建 新的 .DBF表
}
//---------------------------------------------------------------------------

[sczyq]

OLE 操作，可能要增加

#include <Comobj.hpp>

[csinfo_hou]

感谢各位！问题解决，结贴了。接分哈！

[csinfo_hou]

我作了测试，目前看来，好像不是因为为包含"ComObj.hpp"的问题。