Ir ao conteúdo
  • Cadastre-se

Visual Basic Criar pasta atraves VBA


Posts recomendados

BOm dia Pessoal.

 

estou utilizando o codigo abaixo para me ajudar a criar pastas para um banco de dados de possue.

porém ele utiliza um campo de data para dar nome a pasta, como neste campo tem / o codigo da erro.

 eu preciso substituir o / por -

 

<Sub criar_patas()


    Dim Rng As Range
    Dim maxRows As Long, maxCols As Long, r As Long, c As Long
    
    Range("B3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    
    Set Rng = Selection
    maxRows = Rng.Rows.Count
    maxCols = Rng.Columns.Count
    
        r = 1
        Do While r <= maxRows
            If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, 1), vbDirectory)) = 0 Then
                MkDir (ActiveWorkbook.Path & "\" & Rng(r, 1) & " - " & Rng(r, 2) & " - " & Rng(r, 9) & " - " & Rng(r, 14))
                On Error Resume Next
            End If
            r = r + 1
        Loop

    
    
End Sub>

 

no campo grifado e em negrito é onde ele busca a celula onde contem data.

 

alguem pode me ajudar.

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...