(已解决)HRESULT的异常: 0x800A01A8动态Navision 2016
(已解决)HRESULT的异常: 0x800A01A8动态Navision 2016
提问于 2022-11-22 03:26:33
我编写了一段代码，其中用户从表中筛选出源代码，该代码获取源代码并在文件夹中打开一个具有相同编号的Excel文件，将其他数据写入该文件，然后保存到临时文件夹中。该程序适用于文件夹中的一些Excel文件，但对大多数文件不起作用。当它完成运行时，它会说是来自HRESULT: 0x800A01A8的异常，文件会被保存到临时文件夹中，但是数据不会写入其中。
https://i.stack.imgur.com/kHtbC.png
我搜索了所有的谷歌，但似乎没有人遇到相同的问题，我是，我不知道这个例外意味着什么。下面是密码。
ProductionOrder - OnAfterGetRecord()
CLEAR(xlApplication);
CLEAR(xlWorkbooks);
CLEAR(xlWorksheet);
CLEAR(xlshape);
// Open excel
IF CREATE(xlApplication, FALSE, TRUE) THEN BEGIN
xlApplication.SheetsInNewWorkbook := 1;
xlApplication.ScreenUpdating(TRUE);
xlWorkbooks := xlApplication.Workbooks;
END ELSE ERROR('Could not start Excel.');
xlWorkbooks.Open('C:\PROCESS CHECKSHEET\' + ProductionOrder."Source No." + '.xlsx');
xlWorkbook := xlApplication.ActiveWorkbook;
xlSheets := xlWorkbook.Worksheets;
FOR i := 1 TO xlSheets.Count DO BEGIN
xlWorksheet := xlSheets.Item(i);
xlWorksheet.Activate;
xlRange := xlWorksheet.Range(xlsCell(14,7));
xlRange.Value := ProductionOrder."No.";
xlRange := xlWorksheet.Range(xlsCell(14,8));
xlRange.Value := FORMAT(ProductionOrder.Quantity);
xlWorkbook._SaveAs('C:\temp\' + ProductionOrder."Source No.");
xlWorkbook.Close(TRUE);
xlApplication.Quit;
END;
CurrReport.QUIT;
LOCAL xlsCol(col : Integer) : Text
IF col > 26 THEN BEGIN
ColFirst := col DIV 26;
col := col MOD 26;
END
ELSE
ColFirst := 0;
Letters := 'ABCDEFGHIJKLMNOPQRSTUVYWXYZ';
IF ColFirst <> 0 THEN
EXIT (STRSUBSTNO('%1%2',Letters[ColFirst],Letters[col]))
ELSE
EXIT (STRSUBSTNO('%1',Letters[col]));
LOCAL xlsCell(col : Integer;row : Integer) : Text[15]
EXIT (STRSUBSTNO('%1%2',xlsCol(col),row));编辑：
我试过调试。调试器说，错误在线"xlWorksheet := xlSheets.Item(i);“。Excel文件中只有一个工作表是我要访问的。我不明白的是，它会在其他Excel文件上工作，只是不适用于我目前试图访问的这个文件。
我还发现，如果我将内容复制到一个新的Excel文件中，那么代码将在新的Excel文件上工作。这是否也是Excel版本的问题呢？
回答 1
Stack Overflow用户
发布于 2022-11-24 04:47:51
我自己解决了这个问题。
由于Excel文件是我的HOD在工作中给我的(这些Excel文件是由其他部门编写的)，所以我不知道这些Excel文件中有一个隐藏的工作表，因此它输出了异常错误，因为我的代码只是索引只有一个工作表的Excel文件。我把索引改为2，它起作用了。请注意，下次要检查隐藏的床单。
我不知道对于C/AL编程，每个工作表是否有一个等价项，因为我对这种语言很陌生，所以我使用了2 for循环来解决这个问题。
CLEAR(xlApplication);
CLEAR(xlWorkbooks);
CLEAR(xlWorksheet);
IF CREATE(xlApplication, FALSE, TRUE) THEN BEGIN
xlApplication.SheetsInNewWorkbook := 1;
xlApplication.ScreenUpdating(TRUE);
xlWorkbooks := xlApplication.Workbooks;
END ELSE ERROR('Could not start Excel.');
xlWorkbooks.Open('C:\13. PROCESS CHECKSHEET\' + ProductionOrder."Source No." + '.xlsx');
xlWorkbook := xlApplication.ActiveWorkbook;
xlSheets := xlWorkbook.Worksheets;
FOR I := 1 TO xlSheets.Count DO BEGIN
xlWorksheet := xlSheets.Item(I);
xlWorksheet.Activate;
xlRange := xlWorksheet.Range(xlsCell(14,7));
xlRange.Value := ProductionOrder."No.";
xlRange := xlWorksheet.Range(xlsCell(14,8));
xlRange.Value := FORMAT(ProductionOrder.Quantity);
END;
FOR I := 2 TO xlSheets.Count DO BEGIN
xlWorksheet := xlSheets.Item(I);
xlWorksheet.Activate;
IF (FORMAT(xlWorksheet.Name) = 'PROCESS CHECKSHEET') OR (FORMAT(xlWorksheet.Name) = 'Process Checksheet') THEN BEGIN
xlRange := xlWorksheet.Range(xlsCell(14,7));
xlRange.Value := ProductionOrder."No.";
xlRange := xlWorksheet.Range(xlsCell(14,8));
xlRange.Value := FORMAT(ProductionOrder.Quantity);
END;
END;
xlWorkbook.SaveAs('C:\13. PROCESS CHECKSHEET\temp\' + ProductionOrder."Source No.");
MESSAGE('Success');
xlWorkbook.Close(TRUE);
xlApplication.Quit;
CurrReport.QUIT;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/74527206
复制相关文章
相似问题
腾讯云开发者
