PROBLEMAS NA EXPORTACAO BROFFICE ASPAS SIMPLES

MARCOSSFERREIRA 01/09/2011 14:34:20
#383084
Boa tarde pessoal, a meses venho desenvolvendo um software que exportar os dados para BrOffice ( calc ), porem todos os dados que estao em meu softwware como campos numericos aos exportar vao com [ô] ( aspas simples) e da erros nas formulas que contem em outra Aba da planilha. A pergunta é: Como faço para exportar sem que ( [ô] ) sai nos nos campos.
Hoje esta assim como exemplo: [ô]20
preciso que saia assim: 20
As palavras ( textos saem perfeitos sem os [ô] ).

Obrigado.
KERPLUNK 01/09/2011 14:35:31
#383085
Mostra como é a rotina da exportação...
MARCOSSFERREIRA 01/09/2011 15:13:55
#383091
Public NomeArquivo As String
Public objServiceManager As Object = New Object
Public ObjSM As Object = CreateObject([Ô]com.sun.star.ServiceManager[Ô])
Public ObjCR As Object = ObjSM.createinstance([Ô]com.sun.star.frame.reflection.coreReflection[Ô])
Public objDesktop As Object = ObjSM.createinstance([Ô]com.sun.star.frame.Desktop[Ô])
Public objSheetLV As Object = ObjSM.createinstance([Ô]com.sun.star.Sheet.sheadsheet[Ô])
Public objProperty As Object = ObjSM.createinstance([Ô]com.sun.star.beans.propertySet[Ô])
Public ObjdocumentLV As Object
Public objArg() As Object
Public cell As Object
Public cellRange As Object
Public TextoNovo As String

Public Sub GravaDadosPlanilha()
ReDim objArg(1)
objArg(0) = MakePropertyValue([Ô][Ô], 0)
objArg(1) = MakePropertyValue([Ô]Hidden[Ô], True)

ObjdocumentLV = objDesktop.loadcomponentfromURL(TextoNovo, [Ô]_blank[Ô], 0, objArg)

objSheetLV = ObjdocumentLV.Sheets.getByName([Ô]DadosEntrada[Ô])

GravaConteudoCelula([Ô]txtNomeArquivo[Ô], frmInicial.txtNome1Arquivo.Text)
GravaConteudoCelula([Ô]CboTipoInstrumento[Ô], frmInicial.CboTipoInstrumento.Text)

[ô] dados acima como texto

GravaConteudoCelula([Ô]TxtintRefCalPd1[Ô], frmCalibracao.TxtintRefCalPd1.Text)
GravaConteudoCelula([Ô]TxtintRefCalPd2[Ô], frmCalibracao.TxtintRefCalPd2.Text)

[ô] estes campos como numero.
KERPLUNK 01/09/2011 15:26:00
#383092
Amigo, o que faz a exportação mesmo é o método [Ô]GravaConteudoCelula[Ô] é ali que está o problema...
MARCOSSFERREIRA 01/09/2011 16:01:34
#383095
Exatamente...quando vou exportar estes campos que o [ô] aparece.


GravaConteudoCelula([Ô]TxtintRefCalPd1[Ô], frmCalibracao.TxtintRefCalPd1.Text)
GravaConteudoCelula([Ô]TxtintRefCalPd2[Ô], frmCalibracao.TxtintRefCalPd2.Text)

[ô] estes campos como numero.
KERPLUNK 01/09/2011 16:08:38
#383096
O que queria dizer é pra mostrar o que faz [Ô]GravaConteudoCelula[Ô]. Mas acho que deve ser algo relativo ao tipo de dados. O apóstrofo, geralmente é uma indicação que o conteúdo daquela célula é TEXTO mesmo. Experimente colocar um número bem grande numa célula, ele vai mostrar aqueles valores doidos [Ô]123145+6.54[Ô]. Mas se vc colocar o apóstrofo na frente do número grande, vai mostrar direitinho, mas vai formatar a célula como texto.
MARCOSSFERREIRA 01/09/2011 16:27:16
#383098
Public Sub GravaConteudoCelula(ByVal NomeFaixa As String, ByVal Conteudo As String)
Try
cell = objSheetLV.getCellRangeByName(NomeFaixa)
cell.String = Conteudo
Catch
MsgBox([Ô]Erro no campo[Ô] & NomeFaixa & [Ô] da planilha LV[Ô])
End Try
End Sub


Então mas o que devo fazer para que ao digitar um numero numa textbox e exporta-lo para a planilha estes numeros não apareçam com apóstrofo, para que assim eu consiga realizar meus calculos?

Obrigado.
KERPLUNK 01/09/2011 16:42:37
#383102
Hmmm... veja se [Ô]cell[Ô] tem outras propriedades além de [Ô]String[Ô]. Se tiver algo como [Ô]Number[Ô], vc vai ter que avaliar os tipos de dados e colocar os valores nas propriedades conforme o tipo:
Public Sub GravaConteudoCelula(ByVal NomeFaixa As String, ByVal Conteudo As String, ByVal Tipo As String)
Try
cell = objSheetLV.getCellRangeByName(NomeFaixa)
If Tipo = [Ô]Texto[Ô] then
cell.String = Conteudo
elseif tipo = [Ô]Numero[Ô] then
cell.Number = Conteudo
end if
Catch
MARCOSSFERREIRA 01/09/2011 17:17:24
#383112
Então em alguns campos aparece a seguinte mensagem de erro:

Argument not specified for parameter [ô]tipo[ô] of public sub GravaConteudoCelula (nomeFaixa As String, Conteudo As String, Tipo as String

o que devo fazer, ainda sou novato nisso.
Obrigado.
KERPLUNK 01/09/2011 22:09:47
#383145
Você colocou o parâmetro na assinatura do método???
MARCOSSFERREIRA 02/09/2011 08:34:33
#383161
Na verdade eu fiz desta forma:

Public Sub GravaConteudoCelula(ByVal NomeFaixa As String, ByVal Conteudo As String, ByVal Tipo As String)
Try
cell = objSheetLV.getCellRangeByName(NomeFaixa)
If Tipo = [Ô]Texto[Ô] Then
cell.String = Conteudo
ElseIf tipo = [Ô]Numero[Ô] Then
cell.Number = Conteudo
End If
Catch
MsgBox([Ô]Erro no campo[Ô] & NomeFaixa & [Ô] da planilha LV[Ô])

End Try

[ô] Ai chamo ela deste jeito:


Public Sub GravaDadosPlanilha()
ReDim objArg(1)
objArg(0) = MakePropertyValue([Ô][Ô], 0)
objArg(1) = MakePropertyValue([Ô]Hidden[Ô], True)

ObjdocumentLV = objDesktop.loadcomponentfromURL(TextoNovo, [Ô]_blank[Ô], 0, objArg)

objSheetLV = ObjdocumentLV.Sheets.getByName([Ô]DadosEntrada[Ô])

End Sub
GravaConteudoCelula([Ô]txtNomeArquivo[Ô], frmInicial.txtNome1Arquivo.Text)
GravaConteudoCelula([Ô]CboTipoInstrumento[Ô], frmInicial.CboTipoInstrumento.Text)
GravaConteudoCelula([Ô]CobNomeCliente[Ô], frmCabecalho.CobNomeCliente.Text)
GravaConteudoCelula([Ô]TxtEnderecoCliente[Ô], frmCabecalho.TxtEnderecoCliente.Text)
GravaConteudoCelula([Ô]BtoInteressado[Ô], frmCabecalho.BtoInteressado)
GravaConteudoCelula([Ô]TxtInteressado[Ô], frmCabecalho.TxtInteressado.Text)
GravaConteudoCelula([Ô]TxtNumOS[Ô], frmCabecalho.TxtNumOS.Text)
GravaConteudoCelula([Ô]TxtNumSerie[Ô], frmCabecalho.TxtNumSerie.Text)
GravaConteudoCelula([Ô]TxtNumControle[Ô], frmCabecalho.TxtNumControle.Text)
GravaConteudoCelula([Ô]TxtExecutante[Ô], frmCabecalho.TxtExecutante.Text)
GravaConteudoCelula([Ô]TxtLocalCalibracao[Ô], frmCabecalho.TxtLocalCalibracao.Text)
GravaConteudoCelula([Ô]TxtFabIns[Ô], frmCabecalho.TxtFabIns.Text)

[ô] E todas os comandos acima dão este erro.

Error 4 Argument not specified for parameter [ô]Tipo[ô] of [ô]Public Sub GravaConteudoCelula(NomeFaixa As String, Conteudo As String, Tipo As String)[ô]. C:\Users\Marcos Ferreira\Desktop\Software Indicador de Temperatura - Cópia\SCCV\SCCV\SCCV\Rotinas.vb 29 9 SCCV
Página 1 de 2 [20 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar