Question

所以我想打开一个受密码保护的excel文件，提示用户输入密码但是我想在提示用户之前检查文件确实需要密码。

我目前的方法是这样，并且确实有效。

CREATE OBJECT app 'EXCEL.APPLICATION'.
CALL METHOD OF app 'WORKBOOKS' = workbook.
CALL METHOD OF workbook 'OPEN'
  EXPORTING
  #1 = arch               "filename
  #2 = 0                  "Update links
  #3 = 0                  "ReadOnly
  #4 = 1                  "Format
  #5 = gv_password.       "password

 IF sy-subrc NE 0.

  CALL METHOD OF app 'QUIT'.
  FREE OBJECT app. FREE OBJECT workbook.
  CLEAR: app, workbook.
  CREATE OBJECT app 'EXCEL.APPLICATION'.

  gv_password = <user_entered_password>

  CALL METHOD OF app 'WORKBOOKS' = workbook.

  CALL METHOD OF workbook 'OPEN'
    EXPORTING
    #1 = arch               "filename
    #2 = 0                  "Update links
    #3 = 0                  "ReadOnly
    #4 = 1                  "Format
    #5 = gv_password.       "password

ENDIF.

这基本上尝试使用空白密码打开excel文件，如果失败则提示用户。但它并不是一个特别快速或优雅的解决方案。有没有更好的办法？也许在尝试打开之前直接检查房产？感谢

Answer 1

根据以下信息，您无法判断Excel文件在打开之前是否受密码保护：http://www.mrexcel.com/archive/General/2130.html

在那次讨论中，他们基本上建议你已经在做什么。但是，最后的海报确实表明将密码传递给非密码保护的文件没有任何效果，因此您可以随时抢先传递密码（取决于应用程序的逻辑）。

ABAP OLE - 检查OLE对象是否受密码保护

1 个答案: