51Testing软件测试论坛

标题: 请大虾帮忙，用WR怎么控制多工作表的Excel表格？ [打印本页]

作者: winterson 时间: 2006-12-1 14:13
标题: 请大虾帮忙，用WR怎么控制多工作表的Excel表格？
最近工作中发现一个比较棘手的问题，用WR怎么来控制多工作表的Excel表格，我自己想的办法是使用其他语言写一个动态库，然后WR调用，我使用delphi写，结果失败，请大虾帮忙哦

作者: winterson 时间: 2006-12-1 16:46
问题解决，思路还是用动态库处理，WR调用动态库，基本代码如下：

public const E_NO_EXCEL = -20661;
public const E_NO_EXCEL_FILE = -20662;
public const E_NO_EXCEL_SHEET = -20663;
public const E_EXCEL_ERROR = -20664;

public function Excel_active_sheet ( in excel_file, in excel_sheet )
{
auto rc, line;

static excel_signature = "邢唷?";#这个是标准Excel文件前8个字节

rc = file_open( excel_file, FO_MODE_READ );
if ( rc != E_OK )
return rc;
rc = file_getline ( excel_file, line );#取文件第一行
file_close( excel_file );
if ( rc != E_OK || match( line, excel_signature ) != 1 )#如果第1、2个字节组成不是“邢”，说明不是标准的Excel文件
return E_NO_EXCEL_FILE;

rc = SetExcelSheet ( excel_file, excel_sheet );

return (rc) ? -20660+rc : E_OK;#若rc返回0，则return E_OK,否则返回-20660+rc;

}

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)