Início / computer / Perguntas / 1420219
Accepted
gee
Asked: 2019-04-02 18:07:26 +0800 CST

Copie planilhas diferentes de pastas de trabalho diferentes vba

  • 772

Eu tenho uma macro que irá copiar planilhas e salvá-las como novas.

Porém, desejo copiar duas planilhas e combiná-las em uma, mas as planilhas estão localizadas em duas pastas de trabalho diferentes.

por exemplo: workbook1 contém 2 planilhas (worksheet1, worksheet2) workbook2 contém 3 planilhas (worksheet1, worksheet2, worksheet3)

Desejo copiar a planilha1 da pasta de trabalho1 e a planilha1 da pasta de trabalho2. em seguida, combine-os, pois ambos têm o mesmo formato de tabela.

Eu não sei como. Só sei copiar várias planilhas da mesma pasta de trabalho. Eu também sei como combiná-los, meu único problema, como vou copiar a planilha1 de uma pasta de trabalho diferente, que é a pasta de trabalho1 e a pasta de trabalho2

Eu só tenho um código simples para copiar os dados. a propósito, aqui está o meu código:

saveFolder = "C:\Document\Macro"

path = "C:\Document\Workbook1"
fname = "Sample Account.xlsx"

Workbooks.Open path & fname
Sheets("Account1").Copy

ActiveWorkbook.SaveAs saveFolder & "\Conso.xlsx", FileFormat:=51
Workbooks(fname).Close

o outro arquivo está localizado na pasta Workbook2 , o nome do arquivo é Contas Adicionais

microsoft-excel vba

1 respostas

  1. Best Answer

    Este código VBA (Macro) ajudará você a copiar a planilha de sua escolha da pasta de trabalho de origem para combinar no livro ativo.

    Este Código é interativo em vez de Padrão, o que torna o código versátil.

    Sub CombineSheets()
    Dim sPath As String
    Dim sFname As String
    Dim wBk As Workbook
    Dim wSht As Variant

    Application.EnableEvents = False
    Application.ScreenUpdating = False

   sPath = InputBox("Enter File Path Of Source Workbook(s)")

   ChDir sPath

   sFname = InputBox("Enter the Filename")

   sFname = Dir(sPath & "\" & sFname & ".xl*", vbNormal)

   wSht = InputBox("Enter Worksheet Name To Copy")

   Do Until sFname = ""

       Set wBk = Workbooks.Open(sFname)
        Windows(sFname).Activate
        Sheets(wSht).Copy Before:=ThisWorkbook.Sheets(1)
        wBk.Close False
        sFname = Dir()
    Loop
    ActiveWorkbook.Save
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

    Como funciona:

    • Copie e cole este código como Módulo padrão com a pasta de trabalho mestre (na qual você deseja combinar planilhas).
    • Execute a Macro.
    • Primeiro, ele solicita um caminho para a(s) pasta(s) de trabalho de origem.

    Observe que é melhor copiar e colar o caminho do arquivo.

    • Em seguida, pergunte o nome da pasta de trabalho, você também pode usar curingas ou o nome da pasta de trabalho, como Myworkbook.

    • Por fim, solicita que o Nome da planilha seja copiado.

    • 0

relate perguntas