先建立一個名為OPEN的button.新建一個FILE_WK的text item.

新增一個WHEN-BUTTON-PRESSED的ITEMS TRIGGER如下:

DECLARE

    FNAME VARCHAR2(40);

BEGIN

   FNAME := GET_APPLICATION_PROPERTY(CURRENT_FORM_NAME);

    :FILE_WK := GET_FILE_NAME('$WINDIR$',NULL,NULL,'Please Select Path:',1,FALSE)||'\'||RTRIM(FNAME)||'.XLS' ;

    :FILE_WK := REPLACE(:FILE_WK ,'\\','\');

EXCEPTION

 WHEN OTHERS THEN

  NULL;