LucJonny

E aí pessoal ;D Estou com um problema muito chato, já pesquisei bastante mas ainda não achei uma solução, seguinte: Eu tenho um SWF principal que carrega uma série de SWF's externos, esse sistema funciona tranquilamente. Mas alguns SWF's possuem botões, os quais não funcionam APENAS quando são carregados dentro do SWF principal. Quando eu testo o SWF fora do SWF principal, todos os botões funcionam normalmente. Eu já vi que se estivesse usando AS 2.0 era apenas usar o this._lockroot=true que o problema se resolveria, mas pelo que li, no AS 3.0 essa opção não existe mais pois já é automaticamente colocada no modo true, mas mesmo assim, meus botões não funcionam :( Alguém tem alguma idéia do problema?

No excel, você aperta alt + F11, vai abrir a janela do microsoft visual basic... No menu superior, clique em Inserir, depois módulo. Agora você cola a função que eu postei ali e pronto, pode ir na planilha e digitar =getaddres(célula) :)

Oi ;D Eu dei uma pesquisada, e achei um site com uma função, olha: Function GetAddress(HyperlinkCell As Range) GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "") End Function Tu coloca essa função em um módulo da sua planilha, e tu só precisa digitar "=getaddres(celula)", no lugar da palavra celula tu coloca B1, B2 etc, a localização da célula, pra aparecer o e-mail. Essa função só funciona se os endereços que tu quiser achar forem de e-mails, se tu quiser fazer o mesmo mas com endereços de sites, é a mesma função mas sem o 'mailto:'. site: http://www.ozgrid.com/VBA/HyperlinkAddress.htm Espero ter ajudado x]

O nome do arquivo ainda é o mesmo, inclusive pensando nisso eu cheguei a dar control c control v no nome hahah... O diretório também não mudou... Rodei um teste agora pouco, criei outros dois arquivos, Macro1.xlsm e Macro2.xlsm, e neles o comando funciona. Dentro do Macro1.xlsm eu usei workbooks.open("Macro2.xlsm") e com apenas esse comando já abriu sem problemas... Esse é o começo do macro, até onde o macro pára de funcionar... Dim fornecedor, code, descr, vendor, cliente, data As String Dim item, qtd, pedido, cont, linha As Integer Dim caminho, inicio, fim As Range Dim aberto As Workbook Dim planilha As Worksheet linha = 1 cont = 1 Set caminho = Cells.Find("Item") Application.ScreenUpdating = False fornecedor = UCase(Trim(Mid(Cells.Find("Fornecedor:"), 12))) pedido = Val(Trim(Mid(Cells.Find("Pedido:"), 8))) data = Trim(Mid(Cells.Find("Data:"), 6)) Do Until caminho.Offset(cont, 0).Value = "" With caminho item = Val(Trim(.Offset(cont, 0))) qtd = Val(Trim(.Offset(cont, 1))) code = UCase(Trim(.Offset(cont, 2))) descr = UCase(Trim(.Offset(cont, 3))) cliente = UCase(Trim(.Offset(cont, 4))) vendor = UCase(Trim(.Offset(cont, 5))) End With On Error Resume Next Set aberto = Workbooks("Mercadorias.xlsm") On Error GoTo 0 If aberto Is Nothing Then 'planilha fechada Workbooks.Open ("Mercadorias.xlsm") Exit Sub End If Workbooks("Mercadorias.xlsm").Activate

Primeira postagem :blush: Então, estou montando uma planilha que precisa, quando requisitado, abrir outro arquivo do excel, gravar os dados lá, salvar e fechar. Mas o comando workbooks.open não funciona, nem quando eu apertei para gravar o macro e usei a linha de código que o próprio excel criou... Mas o arquivo que quero abrir está em rede, será que isso influencia? Eu tentei usando o comando create object e depois abrir o arquivo, mas nem assim... Obs.: Os dois arquivos estão na mesma pasta, mas em rede. Eis o código que eu tentei, gravado pelo macro: ChDir "\\Eliane\meus documentos\ALMOXARIFADO\Projetos VBA" Workbooks.Open Filename:="\\Eliane\meus documentos\ALMOXARIFADO\Projetos VBA\Mercadorias.xlsm" E esse outro código eu usei baseado em um tópico que achei no fórum mesmo. Dim WApp As Object Set WApp = CreateObject("Excel.Application") ChDir ("\\eliane\meus documentos\almoxarifado\projetos vba") WApp.documents.Open ("Mercadorias.xlsm") WApp.Visible = True Só que no tópico era word.application, eu mudei pra excel pra tentar e não consegui ._. Alguém sabe qual poderia ser o problema?