Windows VBA调用Perl脚本无法连接Oracle数据库问题求助

错误信息 #

DBI connect('apsrV/db_v2','user1',...) failed: ERROR OCIEnvNlsCreate.
Check ORACLE_HOME (Linux) env var or PATH (Windows) and or NLS settings, permissions, etc.
at C:\Users\userX\Connect_To_DB_1.pl line 10.
ERROR: db 'db_v2' on server 'apsrV' does NOT exist or is not available.

用到的Perl脚本 #

use strict;
use warnings;
use DBI ;
use DBD::Oracle ;

my $SRV = "apsrV" ; 
my $DB = "db_v2";
my %attr = (PrintError => 1,RaiseError => 0);
my $db;
my $ResX1=eval{$db = DBI->connect("dbi:Oracle:$SRV/$DB", "user1", "pwordVal", \%attr)};
if(!$ResX1) {
    print "ERROR: db '$DB' on server '$SRV' does NOT exist or is not available." . "\n";
    sleep(10);
    exit;
} else {
    $db->{AutoCommit} = 0 ;
    $db->disconnect if defined($db) ;
}

VBA调用代码 #

dim perlcmdstr as string
perlcmdstr = "perl C:\Users\userX\Connect_To_DB_1.pl"
Call ShellWait(perlcmdstr, vbNormalFocus)

问题根源 #

直接打开CMD运行正常，是因为该CMD进程继承了完整的系统环境变量（尤其是PATH），其中包含Oracle客户端的bin目录，DBD::Oracle能找到所需的OCI动态库。而VBA通过Shell启动的进程，环境变量可能被截断或未加载完整的系统PATH，导致找不到Oracle客户端的依赖库，触发OCIEnvNlsCreate错误。

另外你提到echo %ORACLE_HOME%返回变量名，说明该变量未设置，但Windows下DBD::Oracle并不强制要求ORACLE_HOME，核心是PATH必须包含Oracle客户端的bin目录。

解决方法 #

1. 在VBA调用时手动指定PATH
   修改VBA代码，先把Oracle客户端的bin目录加到PATH中，再执行Perl脚本：

   dim perlcmdstr as string
   ' 替换为你的Oracle客户端bin路径
   perlcmdstr = "cmd /c ""set PATH=C:\app\client\your_user\product\19.0.0\client_1\bin;%PATH% && perl C:\Users\userX\Connect_To_DB_1.pl"""
   Call ShellWait(perlcmdstr, vbNormalFocus)
   

2. 确保位数一致
   检查Excel（32/64位）、Perl解释器（32/64位）、Oracle客户端（32/64位）三者位数完全匹配。如果Excel是32位，必须用32位Perl和32位Oracle客户端，否则会因跨位数加载库失败。

3. 修改系统PATH
   将Oracle客户端的bin目录添加到系统环境变量PATH的最前端，确保所有进程启动时都能优先找到该目录下的库文件。

内容的提问来源于stack exchange，提问作者Chazg76