51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3201|回复: 1
打印 上一主题 下一主题

请大虾帮忙,用WR怎么控制多工作表的Excel表格?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-12-1 14:13:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
最近工作中发现一个比较棘手的问题,用WR怎么来控制多工作表的Excel表格,我自己想的办法是使用其他语言写一个动态库,然后WR调用,我使用delphi写,结果失败,请大虾帮忙哦
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2006-12-1 16:46:32 | 只看该作者
问题解决,思路还是用动态库处理,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;

}
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 20:02 , Processed in 0.075991 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表