Copiar Dados para uma planilha externa

[Jaque Miguel]

Oi gente. Desde já agradeço a ajuda de voces.

Porfavor me ajudem com isso:

Eu tenho uma Plan1 e gostaria de passar os dados dessa Plan1 para um outro arquivo chamado Planilha2

eu tenho um codigo aqui que esta passando os dados da Plan1 para a Plan2 no mesmo arquivo, só que eu quero que ele cole em outro arquivo já existente. entenderam?

segue o codigo que eu tenho

Sub CopyData()
    
    Dim LRow As Integer
    Dim LColARange As String
    Dim LContinue As Boolean
    
    Sheets("Plan1").Select
    Range("A1").Select
    
    LContinue = True
    LRow = 0
    
    While LContinue = True
        
        LRow = LRow + 1
        LColARange = "A" & CStr(LRow)
        
        If Len(Range(LColARange).Value) = 0 Then
            LContinue = False
        End If
    
    Wend

       Range("A1:B" & CStr(LRow - 1)).Select
       Selection.Copy
          
    Sheets("Plan2").Select
    Range("A2").Select
    ActiveSheet.Paste
    
End Sub

Obrigada gente.

[zinhovba]

Boa noite!

As pastas estão no mesmo diretorio?

Imagine que na sua Pasta1 numa celula escolhida por você esteja escrito"Workbooks.open sheets("plan1").Range("A1").Value

Caso contrario...

Sub proTeste()

Dim varNomeArquivo=Sheets("plan1").Range("A1").Value

Workbooks.Open varFileName

End Sub

Att

[Jaque Miguel]

Boa noite!

As pastas estão no mesmo diretorio?

Imagine que na sua Pasta1 numa celula escolhida por você esteja escrito"Workbooks.open sheets("plan1").Range("A1").Value

Caso contrario...

Sub proTeste()

Dim varNomeArquivo=Sheets("plan1").Range("A1").Value

Workbooks.Open varFileName

End Sub

Att

Muito obrigada.

Desculpa a minha ignorancia, mas eu não consegui entender onde eu coloco isso

bgs

Editado Março 10, 2011 por Jaque Miguel

[zinhovba]

Após abrir o Excel...alt+F11 para abrir o VBA, depois abra um módulo e insira o código lá..o codigo citado seria asociado com sua necessidade.