none
Como passar uma variavel como parametro do Workbook RRS feed

  • Pergunta

  • Pessoal estou fazendo uma macro que vai basicamente copiar dados fixos de uma planilha e colar nesta onde estará a macro, porém este processo sera efetuado diversas vezes , fazendo essa copia de varias planilhas diferentes , então o nome das planilhas de que vou copiar os dados não são estáticos , oque eu tenho um esboço de código é algo do genero 


    Workbooks.Open Filename:="C:\Users\vinicius.Vinicius\Desktop\excelteste\teste1.xlsx"

    Workbooks("teste1.xlsx").Worksheets("Plan1").Range("A1:F3").Copy Destination:=Workbooks("1.xlsm").Worksheets("Planilha1").Range("a1")

    Workbooks("teste1.xlsx").Close

    porém todas as vezes que aparece o nome "teste1 " no caso eu queria que fosse o valor de uma célula dessa planilha , tipo Workbooks(range("A8").value).worksheet.... pois ai a pessoa que for utilizar a macro so precisara colocar o nome do workbook e pronto. 

    Alguem ai consegue me dar uma luz ? 

    segunda-feira, 19 de junho de 2017 05:19

Todas as Respostas

  • Sub teste()

    'na célula A1 deve estar escrito C:\teste1.xlsx

        Dim wbk As Workbook

        Set wbk = Workbooks.Open(CStr(Sheets("Planilha1").Range("A1")))
        wbk.Worksheets("Planilha1").Range("A1:F3").Copy
    End Sub


    Anderson Diniz


    sábado, 1 de julho de 2017 03:06