2014-04-08 1 views
0

Excel에 여러 매크로가 있습니다. 엑셀의 참고 자료에는 SiebelHtml Type Libary라는 파일이나이 효과가있는 파일이 있습니다. 이것이 Excel에 포함되면 많은 함수와 클래스를로드합니다. 나는 libary를 포함 예를Perl에서 Excel에서 사용하는 일부 라이브러리에 액세스 할 수 있습니까?

sApp as SiebelApplication 

를 들어

은 컴파일합니다. 디렉토리에 두 개의 파일이 있습니다. 이들은 SiebelAX_Desktop_Integration.exe 및 SiebelAx_Desktop_Integration.inf입니다.

내가 관리 할 수있는 사람이 누구인지 아는 사람은 위의 코드와 동등한 작업 perl을 작성할 수 있도록 perl 스크립트에서 이러한 파일의 데이터를 포함합니다. 나는 VBA에 너무 익숙하지 않아서 말하면서 두포에서 무슨 일이 벌어지고 있는지 이해하지 못한다.

답변

-1

난 당신이 아래의 예처럼 보이도록 코드를 다시 작성해야합니다 ..이 1 ​​일에 가능할 것이라고 생각하지 않습니다

use feature 'say'; 
use Siebel::COM::App::DataControl; 
use TryCatch; 

my $app = Siebel::COM::App::DataControl->new(
     { 
      user  => 'sadmin', 
      password => 'sadmin', 
      host  => 'test', 
      enterprise => 'SIEBEL', 
      lang  => 'ENU', 
      aom  => 'eClinicalObjMgr_enu' 

     } 
); 

my $created_by = '0-1'; 
try { 
    $app->login(); 

    my $bo = $app->get_bus_object('Account'); 
    my $bc = $bo->get_bus_comp('Account'); 

    $bc->activate_field('Location'); 
    $bc->activate_field('Extension Phone Number'); 

    $bc->clear_query(); 
    $bc->set_view_mode(); 

    $bc->set_search_spec('Created By', "='$created_by'"); 
    $bc->query(); 

    if ($bc->first_record()) { 
     do { 
      my $val = $bc->get_field_value('Location'); 
      say $val; 
     } while ($bc->next_record()) 
    } else { 
     say 'Could not find the account'; 
    } 
} catch { 
    die 'Exception: ' . $app->get_last_error(); 
} 

마법 Siebel::COM 펄 모듈 않는 일을. Excel 스크립트의 예를 게시하면 해당 스크립트를 Perl로 변경하는 데 도움이 될 수 있습니다.