<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body><table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Bug ID</th>
<td><a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - After update on 2019/1/26(26th Jan 2019), the macro CurrentController does not exist"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=123005">123005</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>After update on 2019/1/26(26th Jan 2019), the macro CurrentController does not exist
</td>
</tr>
<tr>
<th>Product</th>
<td>LibreOffice
</td>
</tr>
<tr>
<th>Version</th>
<td>6.1.4.2 release
</td>
</tr>
<tr>
<th>Hardware</th>
<td>x86-64 (AMD64)
</td>
</tr>
<tr>
<th>OS</th>
<td>Linux (All)
</td>
</tr>
<tr>
<th>Status</th>
<td>UNCONFIRMED
</td>
</tr>
<tr>
<th>Severity</th>
<td>normal
</td>
</tr>
<tr>
<th>Priority</th>
<td>medium
</td>
</tr>
<tr>
<th>Component</th>
<td>BASIC
</td>
</tr>
<tr>
<th>Assignee</th>
<td>libreoffice-bugs@lists.freedesktop.org
</td>
</tr>
<tr>
<th>Reporter</th>
<td>aataka8@gmail.com
</td>
</tr></table>
<p>
<div>
<pre>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:1〜 ; index:0〜'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
'########</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>