andoliveira4

Eu tenho um Excel chamado TESTE_ABRE_ARQUIVO e um outro chamado HBA_PROC9_1.xls, um em cada pasta Explicação do cenario: No meu arquivo TESTE_ABRE_ARQUIVO eu tenho nas respectivas celulas: a1 = C:\PROJETOS\HBA\ACL\ a2 = HBA a3 = _PROC9_1.xls Ou seja essas 3 celulas formam um nome de arquivo neste caso C:\PROJETOS\HBA\ACL\HBA_PROC9_1.xls Objetivo: - Abrir um Excel ( HBA_PROC9_1.xls ) apartir das informacões que eu tenho do arquivo TESTE_ABRE_ARQUIVO - Copiar o valor de A1 da planilha aberta dinamicamente, neste caso HBA_PROC9_1.xls - Fechar HBA_PROC9_1.xls - E Colar o valor na ceclula A20 da TESTE_ABRE_ARQUIVO Script Realizado: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 21/11/2008 by YourNameHere ' ' Keyboard Shortcut: Ctrl+Shift+U ' Sheets("Sheet1").Select PathName = Range("A1").Value Enterprise = Range("A2").Value Filename = Range("A3").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Enterprise & Filename ActiveWindow.Visible = False Windows(PathName & Enterprise & Filename).Visible = True Range("A1").Select Selection.Copy ActiveWindow.Close Range("A20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Conclusão Eu consigo abrir a planilha + não consigo pegar o valor dela....o que eu faço por favor me ajudem???