- 13 Mai 2019 às 11:44
#43836
Bom dia,
Pessoal estou necessitando de uma ajuda,
O problema é o seguinte, tenha um arquivo excel principal com nome "Plataforma", nesse arquivo necessito criar uma macro que me disponibilize eu listar quais arquivos tem em um determinado diretório e possibilitar eu criar um arquivo nesse diretório.
Tenho um código onde consigo abrir arquivos de um determinado diretório com um button,
Nesse caso eu queria que quando eu clicar em um button ele listar quais arquivos tem nesse diretório e permitir eu criar um novo. Existe essa possibilidade?
Conto com ajuda de vocês, sou meio leigo ainda com vba.
Código:
Sub Botão1_Clique()
ChDrive ("C")
ChDir ("C:\Users\administrador\Documents\Projeto\")
With Application
Dim b As Variant
b = Application.GetOpenFilename("files,*", _
1, "Selecione Para Abrir o Arquivo", , False)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
If TypeName(b) = "Boolean" Then
Exit Sub
Else
Workbooks.Open (b)
End If
End Sub
Pessoal estou necessitando de uma ajuda,
O problema é o seguinte, tenha um arquivo excel principal com nome "Plataforma", nesse arquivo necessito criar uma macro que me disponibilize eu listar quais arquivos tem em um determinado diretório e possibilitar eu criar um arquivo nesse diretório.
Tenho um código onde consigo abrir arquivos de um determinado diretório com um button,
Nesse caso eu queria que quando eu clicar em um button ele listar quais arquivos tem nesse diretório e permitir eu criar um novo. Existe essa possibilidade?
Conto com ajuda de vocês, sou meio leigo ainda com vba.
Código:
Sub Botão1_Clique()
ChDrive ("C")
ChDir ("C:\Users\administrador\Documents\Projeto\")
With Application
Dim b As Variant
b = Application.GetOpenFilename("files,*", _
1, "Selecione Para Abrir o Arquivo", , False)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
If TypeName(b) = "Boolean" Then
Exit Sub
Else
Workbooks.Open (b)
End If
End Sub
