Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index


Bom dia,

Após atualizar o BrOffice da versão 3.2 para a versão 3.3 as macros pararam de funcionar.

Segue tela do erro:



Segue a macro:

REM  *****  BASIC  *****

sub VW
dim resultfound as new com.sun.star.sheet.GoalResult '(divergence,result structure) dim formula_address as new com.sun.star.table.CellAddress '(sheet,column, Row structure)
dim variable_address as new  com.sun.star.table.CellAddress
dim targetresult as string  'goal value sought as STRING
Dim oDoc as object
Dim oSheet as object
dim cell as object
Dim oCell1 as object

oDoc=thiscomponent
oSheet = oDoc.Sheets.getByName("Planilha1")
'set location of formula to be evaluated to give goal value
formula_address.sheet = 0  'index values - zero based
formula_address.Column = 15
formula_address.Row = 67
' set location of variable to be changed
variable_address.sheet = 0
variable_address.Column = 15
variable_address.Row = 62
' set goal value
oCell1 = oSheet.getCellByPosition(19,62)
targetresult = oCell1.Value

' run goalseek
resultfound = oDoc.seekgoal(formula_address,variable_address,targetresult)
' do something with result
'msgbox resultfound.result
cell = oSheet.getCellByPosition(15,62)
cell.Value = resultfound.result

'Data 1
formula_address.sheet = 0  'index values - zero based
formula_address.Column = 12
formula_address.Row = 67
' set location of variable to be changed
variable_address.sheet = 0
variable_address.Column = 12
variable_address.Row = 62
' set goal value
oCell1 = oSheet.getCellByPosition(19,61)
targetresult = oCell1.Value

' run goalseek
resultfound = oDoc.seekgoal(formula_address,variable_address,targetresult)
' do something with result
'msgbox resultfound.result
cell = oSheet.getCellByPosition(12,62)
cell.Value = resultfound.result

end sub

O que fazer para resolver este problema.

--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.