Tamos a�... ;)
[s]
Jos� Alves escreveu:
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]
--
Prof. Gilvan Vilarim
gilvan.vilarim ARROBA terra.com.br
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
