Help for this page

Select Code to Download


  1. or download this
    use Win32::OLE;

$spssapp = Win32::OLE->GetActiveObject('SPSS.Application');
$data = $spssapp->Documents()->GetDataDoc(0);

my $nvars = $data->GetVariableColumnWidths($cwidths);
  2. or download this
    my $cwidths = Variant(VT_BTSR | VT_ARRAY, "");
my $cwidths = Variant(VT_BTSR | VT_ARRAY | VT_BYREF, "");
my $cwidths = Variant(VT_VARIANT | VT_ARRAY, "");
my $cwidths = Variant(VT_VARIANT | VT_ARRAY | VT_BYREF, "");