valeuuuuuuuuuuuu!!!!!!!!!!!!!!
galera voc�s s�o demais...
funcionou direitinho, segue o c�digo devidamente
corrigido, quem diria tres dias de raiva e desespero
por causa de uma | !!!
quero agradecer a todos voces que me ajudaram,
ao Bernardo Meyer, ao Marco de Freitas e especialmente
ao nosso grande gilvan Vilarim, que resolveu a parada
segue o c�digo e sempre que eu puder quero tamb�m
estar ajudando vc's,
at� mais
sub carregaArquivo
dim oDesktop as variant
dim oDocumento as Object
Dim sURL as string
dim mPropriedade (0) as new
com.sun.star.beans.PropertyValue
'cria um objeto desktop
oDesktop =
CreateUnoService("com.sun.star.frame.Desktop")
'passa para a varialvel sURL a string com o
'endere�o completo do arquivo a ser carregado
sURL = "file:///c|/teste.sxc"
'carrega o documento
oDocumento =
oDesktop.LoadComponentFromURL(sURL,"_blank",0,mPropriedade(0))
if isNull ( oDocumento ) then
msgbox "erro ao abrir o arquivo"
end if
end sub
--- [EMAIL PROTECTED] escreveu:
> Gilvan,
>
> Exxxxxxxxxcccccccccccceeeeeeeeeeellllente.
>
> Eu nunca ia pensar em tentar o "|" !!!!
> Ganhei o meu dia.
>
> Abra�a�o,
>
> Bernardo
>
> Citando Gilvan Vilarim
> <[EMAIL PROTECTED]>:
>
> > Complementando: testei a macro abaixo e ela
> funcinou direitinho; veja
> > que mudei a sintaxe:
> >
> > sub ExampleFileExists
> > msgbox FileExists("C:\autoexec.bat")
> > msgbox FileExists("file:///c|/autoexec.bat")
> > msgbox FileExists("file:///d|/autoexe.bat")
> > end sub
> >
> > Ele mostra tres caixas, indicando true, true e
> false para cada arquivo
> > acima (e no meu caso est� certo); sinal de que
> entendeu a string com o
> > nome do arquivo.
> > []s
> >
> >
> > Jos� Alves escreveu:
> >
> > >sem sucesso :(
> > >--- [EMAIL PROTECTED] escreveu:
> > >
> > >
> > >>Z� Alves,
> > >>
> > >>CHUTE 2:
> > >>
> > >>Use duas barras invertidas:
> > >>
> > >>C:\\xxxxx\\xxxxx ...
> > >>
> > >>Bernardo
> > >>
> > >>Citando Jos� Alves <[EMAIL PROTECTED]>:
> > >>
> > >>
> > >>
> > >>>obrigado pela ajuda bernardo, mas infelizmente
> > >>>
> > >>>
> > >>nada
> > >>
> > >>
> > >>>acontece nem de um jeito nem de outro!!!
> > >>>a prop�sito minha vers�o do open � a 1.1.2
> sobre
> > >>>windows xp home, eu utilizo em casa o open no
> > >>>
> > >>>
> > >>kurumim
> > >>
> > >>
> > >>>4.1 (n�o sei te dizer agora a vers�o) em ambas
> n�o
> > >>>funciona :(
> > >>>
> > >>>
> > >>>--- [EMAIL PROTECTED] escreveu:
> > >>>
> > >>>
> > >>>>Z� Alves,
> > >>>>
> > >>>>CHUTE 1:
> > >>>>
> > >>>>Use barras invertidas para o nome do arquivo:
> > >>>>
> > >>>>C:\xxxx\xxxxx\
> > >>>>
> > >>>>Tive este problema em macros, Na 1.1.2
> > >>>>
> > >>>>
> > >>funcionava de
> > >>
> > >>
> > >>>>um jeito, na 1.1.3 de
> > >>>>outro.
> > >>>>
> > >>>>Bernardo
> > >>>>
> > >>>>Citando Jos� Alves <[EMAIL PROTECTED]>:
> > >>>>
> > >>>>
> > >>>>
> > >>>>>boa tarde
> > >>>>>galera, o meu problema � o seguinte, eu quero
> > >>>>>
> > >>>>>
> > >>>>abrir um
> > >>>>
> > >>>>
> > >>>>>arquivo to usando o seguinte c�digo e n�o
> > >>>>>
> > >>>>>
> > >>>>funciona,
> > >>>>
> > >>>>
> > >>>>>algu�m com mais experi�ncia poderia me
> ajudar?
> > >>>>>
> > >>>>>
> > >>>>segue o
> > >>>>
> > >>>>
> > >>>>>meu c�digo:
> > >>>>>
> > >>>>> sub abreArquivo
> > >>>>> dim oDesktop as variant
> > >>>>> dim oDocumento as Object
> > >>>>> Dim sURL as string
> > >>>>> dim mPropriedade (0) as new
> > >>>>>com.sun.star.beans.PropertyValue
> > >>>>>
> > >>>>> 'cria um objeto desktop
> > >>>>> oDesktop =
> >
> >>>>>CreateUnoService("com.sun.star.frame.Desktop")
> > >>>>> 'passa para a varialvel sURL a string com o
>
> > >>>>> 'endere�o completo do arquivo a ser
> > >>>>>
> > >>>>>
> > >>carregado
> > >>
> > >>
> > >>>>> sURL = "file:///C:/TESTE/teste.sxc"
> > >>>>> 'carrega o documento
> > >>>>> oDocumento =
> > >>>>>
> > >>>>>
> > >>>>>
> >
>
>oDesktop.LoadComponentFromURL(sURL,"teste",0,mPropriedade(0))
> > >
> > >
> > >>>>> end sub
> > >>>>>
> > >>>>>
> > >>>>>agrade�o antecipadamente, e parabenizo a
> todos
> > >>>>>
> > >>>>>
> > >>>>pelo
> > >>>>
> > >>>>
> > >>>>>desempenho da lista
> > >>>>>
> > >>>>>
> > >>>Jos� Alves
> > >>>
> > >>>
> > >>>
> > >>>
> > >>>
> > >>>
> > >>>
> > >>>
> >
>
>____________________________________________________Yahoo!
> > >
> > >
> > >>Mail, cada vez
> > >>
> > >>
> > >>>melhor: agora com 1GB de espa�o gr�tis!
> > >>>
> > >>>
> > >>http://mail.yahoo.com.br
> > >>
> > >>
> > >>>
> > >>>
> >
>
>---------------------------------------------------------------------
> > >
> > >
> > >>>To unsubscribe, e-mail:
> > >>>
> > >>>
> > >>[EMAIL PROTECTED]
> > >>
> > >>
> > >>>For additional commands, e-mail:
> > >>>
> > >>>
> > >>[EMAIL PROTECTED]
> > >>
>
=== message truncated ===
Jos� Alves
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
