Início / computer / Perguntas / 1418705
Accepted
Rock
Asked: 2019-03-29 08:22:21 +0800 CST

VBA para renomear planilha com base no nome do arquivo

  • 772

Eu tenho um monte de arquivos gravados no formato ".Zip". Meu VBA abre todos eles e subtrai os detalhes como texto. Como são muitas o Workbook cria planilhas e mantém a contagem assim:

ActiveSheet.Paste
Dim sheetsQuantity As Integer
sheetsQuantity = ThisWorkbook.Worksheets.Count
ActiveSheet.Name = "Sheet" & sheetsQuantity - 3

Preciso atualizar o ("Planilha" e quantidade) para ser o nome do arquivo que foi aberto para obter as informações e, como existem muitos arquivos, cada planilha deve corresponder ao arquivo. Portanto, se o arquivo nº 1 for chamado "MatchCase.zip", preciso que a planilha nº 1 seja "MatchCase.zip" e assim por diante.

Qualquer conselho, por favor.

microsoft-excel vba

1 respostas

  1. Best Answer

    Isso pode depender da versão do Win e da estrutura do arquivo. Criei um ZIParquivo na minha área de trabalho chamado holder.Zip . Na pasta existe um único arquivo chamado format.xlsm

    Abro o arquivo e seleciono alguma planilha na pasta de trabalho e examino Patha pasta de trabalho usando:

    Sub WhoHoldsMe()
    Dim sPath As String

    sPath = ActiveSheet.Parent.Path
    arr1 = Split(sPath, "\")
    arr2 = Split(arr1(UBound(arr1)), "_")

    MsgBox sPath & vbCrLf & arr2(1)

End Sub

    Eu recebo:

    insira a descrição da imagem aqui

    Claramente, o ActiveSheet tem um Parent (a pasta de trabalho que contém a planilha) . Essa pasta de trabalho tem um caminho que inclui o nome do ZIParquivo.


    Infelizmente, Pathnão inclui a informação de que holder.zip reside em minha área de trabalho.

    • 0

relate perguntas