[Libreoffice-bugs] [Bug 123005] New: After update on 2019/1/26(26th Jan 2019), the macro CurrentController does not exist

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=123005

            Bug ID: 123005
           Summary: After update on 2019/1/26(26th Jan 2019), the macro
                    CurrentController does not exist
           Product: LibreOffice
           Version: 6.1.4.2 release
          Hardware: x86-64 (AMD64)
                OS: Linux (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: BASIC
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: aataka8 at gmail.com

Description:
"ThisComponent.CurrentController.ActiveSheet" does not work when the file
loads.

The error message is "CurrentController does not exist".

Before update on 2019/1/26, it worked.


Steps to Reproduce:
1.write "=Vsr( CELL("COL",A5), CELL("ROW",A5) )" into the Cell A5
2.write any value, e.g. 555, into the any Cell below A5
3.save the file
4.load the file

Actual Results:
error
"BASIC ランタイムエラー(BASIC Runtime Error)
次のプロパティまたはメソッドが見つかりません：getCurrentController。
(Can't find the next property or method : getCurrentController.)"

error-no:423

Expected Results:
Cell A5 shows the value, e.g. 555.


Reproducible: Always


User Profile Reset: Yes



Additional Info:
'Macro########
Function Vsr0( ax As Variant,ay As Variant ) As Variant
rem Search NON-NULL Cell and RETURN the Numeric value
rem e.g. =Vsr( CELL("COL",A5), CELL("ROW",A5) )

on error goto error_vsr0

Dim oDoc, oCtrl, oSheet As Object
  oDoc = ThisComponent
  oCtrl = oDoc.getCurrentController()
  oSheet = oCtrl.ActiveSheet
'or'  oSheet = ThisComponent.CurrentController.ActiveSheet

rem addr：１〜 ;  index：０〜'i=ax-1 :  j=ay-1
dim i, j  As Variant
i=ax-1
j=ay     ' look the value below 1 line; 1行下から値を見る

Dim  oCell, t4R As Object
Dim ans, a As Variant
ans=""
a=0

jLmt = iif(jLimit>0, jLimit, 500)
jx =j+jLmt

do
  oCell = oSheet.getCellByPosition(i,j)
  a = oCell.Value
     ans = oCell.String
  j=j+1

  if j>jx then'
    exit do
  end if

loop while isNull(ans)  OR ans = ""
goto ok_vsr0

error_vsr0:
  print( "error-line:"& erl & ", err:" & err & chr$(10) & error$ )
stop
ok_vsr0:
Vsr0=a
end Function
'########

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20190128/145e65af/attachment-0001.html>