Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel Office 2007升级中断4GL进度代码_Excel_Office 2007_Progress 4gl - Fatal编程技术网

Excel Office 2007升级中断4GL进度代码

Excel Office 2007升级中断4GL进度代码,excel,office-2007,progress-4gl,Excel,Office 2007,Progress 4gl,我支持一些遗留的4GL进度代码。我们的一台运行4GL的服务器在我不知情的情况下升级到了Office2007,对吗?。无论如何,升级破坏了运行excel.COM组件的一段代码。财务部在Excel文档中维护销售预测编号列表,下面的代码加载这些编号: CREATE "Excel.application" chExcelApplication NO-ERROR. ASSIGN chExcelApplication:VISIBLE = NO NO-ERROR. ASSIGN ch

我支持一些遗留的4GL进度代码。我们的一台运行4GL的服务器在我不知情的情况下升级到了Office2007,对吗?。无论如何,升级破坏了运行excel.COM组件的一段代码。财务部在Excel文档中维护销售预测编号列表,下面的代码加载这些编号:

CREATE 
   "Excel.application" chExcelApplication NO-ERROR.
ASSIGN 
   chExcelApplication:VISIBLE = NO NO-ERROR.

ASSIGN 
   chWorkbook = chExcelApplication:Workbooks:OPEN(STRING(i-infile)) NO-ERROR.

ASSIGN
        chWorkSheet = chExcelApplication:Sheets:ITEM((1)) NO-ERROR.

IF input frame f-in Plan1 <> 0 THEN
    Plan1 = input frame f-in Plan1.
ELSE
    Plan1 = chWorkSheet:range(forecastColumn + "4"):VALUE.

IF input frame f-in Plan2 <> 0 THEN
    Plan2 = input frame f-in Plan2.
ELSE
   Plan2 = chWorkSheet:range(forecastColumn + "7"):VALUE.

IF input frame f-in Plan3 <> 0 THEN
   Plan3 = input frame f-in Plan3.
ELSE
   Plan3 = chWorkSheet:range(forecastColumn + "6"):VALUE.
当代码运行时,我得到以下错误:

处理方法/语句时引用的组件句柄无效:范围

奇怪的是,在Open命令或Create命令上,It并没有失败,所以COM对象本身似乎没有问题。B如果我在我的机器上运行与Office2007相同的代码,它运行得很好

关于如何解决这个问题有什么想法吗


谢谢

我将excel的内容复制到一个新文件中,它现在可以很好地提取数字了。奇怪的