[pt-br-usuarios] Erro em Macro[era]Re: Erro no Broffice 3.3

Olá Marcio,

Estou encaminhando tua questão para a lista de usuários (não recebe
arquivos atachados). Para acompanhar as respostas favor se inscrever
nela enviando email em branco para:

usuarios+subscribe@pt-br.libreoffice.org

Em seguida, responda o email de confirmação.


Abraços,

Luiz Oliveira
twitter/luizheli
identi.ca/luiggi

Em 25-05-2011 09:47, Marcio escreveu:
> Bom dia,
>
> Após atualizar o BrOffice da versão 3.2 para a versão 3.3 as macros não
> estão funcionando.
>
> 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.
>
> -- 
> Atenciosamente,
>
>
>   A U T O  P E Ç A S
>
> Márcio S. Mendonça | Analista Desenvolvimento de Sistemas
>
> Tecnologia da Informação | Rodovia Índio Tibiriçá, km 48,5 , 2061-
> Bairro Roncon
> 09431-600 - Ribeirão Pires - SP - Brasil
>
> Tel+55 11 2808-7350 | Fax+55 11 2808-7382 | www.copam.com.br


-- 
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/