diff options
Diffstat (limited to 'wizards/source/depot/Internet.xba')
| -rw-r--r-- | wizards/source/depot/Internet.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/depot/Internet.xba b/wizards/source/depot/Internet.xba index 62522956fadc..d6d718561384 100644 --- a/wizards/source/depot/Internet.xba +++ b/wizards/source/depot/Internet.xba @@ -121,7 +121,7 @@ End Sub -Function GetCurrentRate(sUrl as String, fValue As Double, iValueCol as Integer) as Boolean +Function GetCurrentRate(sUrl as String, fValue As Double, iValueRow as Integer) as Boolean Dim sFilter As String Dim sOptions As String Dim oLinkSheet As Object @@ -139,10 +139,10 @@ Dim sDate as String oLinkSheet.LinkMode = com.sun.star.sheet.SheetLinkMode.NONE oLinkSheet.link(sUrl, "", sFilter, sOptions, 1 ) - fValue = oLinkSheet.getCellByPosition(1, iValueCol).Value + fValue = oLinkSheet.getCellByPosition(iValueCol, iValueRow).Value If fValue = 0 Then Dim sValue as String - sValue = oLinkSheet.getCellByPosition(1, iValueCol).String + sValue = oLinkSheet.getCellByPosition(1, iValueRow).String sValue = ReplaceString(sValue, ".",",") fValue = Val(sValue) End If |