0

Boa Tarde, fiz um codigo para capturar uma sheets de uma determinada planilha, porem agora estou querendo pegar mais de uma e salvar todas em um unico arquivo, porem não estou conseguindo alguem poderia me ajudar?

Private Sub btnRelatorio_Click()

    Dim chamarWb As Workbook
    Dim Destwb As Workbook
    Dim caminhoTemp As String
    Dim caminhoNome As String
    Dim sExtensao As String
    Dim nome As String
    Dim Plan As String

    
    Do Until Worksheets_Existe(Plan)
    Plan = InputBox("Informe o nome da planilha")
    If Not Worksheets_Existe(Plan) Then MsgBox Plan & " Não existe!", vbExclamation
    Loop
    
    Sheets(Plan).Select
    
    sExtensao = Mid(ThisWorkbook.FullName, (InStrRev(StringCheck:=ThisWorkbook.FullName, StringMatch:=".", Compare:=vbTextCompare)))

    MFIR = Replace(Range("c5").Value, ",", "")
    NOME_CLIENTE = Replace(Range("c4").Value, ",", "")
    
    nome = MFIR & "_" & correto(NOME_CLIENTE) & "_" & Format(Date, "dd-mm-yyyy") & ".xls"
 
    With Application
    
    .ScreenUpdating = False
    .EnableEvents = False
    
    End With
 
    Set chamarWb = ActiveWorkbook
 
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
 
    caminhoTemp = ThisWorkbook.Path & "\"
  
    caminhoNome = nome
 
    With Destwb
        
    .SaveAs caminhoTemp & caminhoNome
      
    End With
 
MsgBox "Seu arquivo se encontra no caminho " & caminhoTemp
 
    With Application

    End With
    
    Workbooks(nome).Close SaveChanges:=False

    Call Macro2
    
    Unload FormSalvar

    End Sub

2
  • Qual é o erro que está acontecendo? Poderia detalhar melhor, por favor? 26/09/2017 às 19:28
  • Sugiro separar em funções diferentes cada etapa de seu código para facilitar tanto o aprendizado em VBA quanto a leitura de seu código. Crie função para abrir/escolher o arquivo, função para ler todas as planilhas e assim por diante.
    – Evert
    26/09/2017 às 19:45

0

Você deve fazer log-in para responder a esta pergunta.

Pesquise outras perguntas com a tag .