links da Web muitas vezes refletem a estrutura de diretórios do site. Por exemplo, " http://example.com/images " refere-se a uma pasta chamada "imagens" na pasta raiz do "example.com" website. Para criar automaticamente hyperlinks , digitalizando uma estrutura de diretório e usando os nomes das pastas dentro dos hyperlinks , VBA fornece o objeto do sistema de arquivos. FSO permite que você leia as pastas e arquivos e recuperar propriedades, como seus nomes. Com um script VBA em uma planilha do Excel , você pode criar um conjunto de hiperlinks com base nos nomes de pastas em uma estrutura de diretório . Instruções
1

lançamento Excel para exibir uma pasta de trabalho em branco. Guarde o livro como um livro habilitado para macro para que você possa armazenar e executar scripts VBA nele. Escolha " Arquivo" e " Salvar como .. ", digite um nome de arquivo , selecione " Pasta de Trabalho Habilitada para Macro do Excel (*. Xlsm )" como o tipo de arquivo e clique em " Salvar".

2

Selecione "Developer" na barra de fita principal, e em seguida, selecione " Visual Basic " na barra de desenvolvedor fita .
3

Criar um script de Visual Basic for Applications para escanear todas as pastas em um diretório, incorporar o nome da pasta em um link e inserir o link na pasta de trabalho do Excel. Comece por criar a sub-rotina. Tipo:

FolderLinks Sub ( )
4

Declare uma variável para armazenar o objeto do sistema de arquivos , uma variável para armazenar a pasta de início, uma variável para armazenar cada subpasta , um contador de o número de pastas que você encontrar e uma string que contém o link que você cria. Tipo:

Dim fso Como pastas New FileSystemObjectDim Como FolderDim subpasta como Conde FolderDim como elo Integer = 0Dim As String
5

Obter a primeira pasta para iniciar a digitalização . Tipo:

Set pastas = fso.GetFolder ("d : \\ Users \\ \\ steve Documentos")
6

Criar um loop, e obter cada subpasta dentro da pasta . Tipo:

para cada subpasta Em folders.Subfolders
7

Monte a seqüência de ligação usando um E comercial para concatenar substrings . Obter o nome da pasta do "Nome" propriedade da subpasta . Tipo:

link = " " & subfolder.Name & " "
8

Incremente a contagem e definir a célula no número da linha que corresponde à contagem para a seqüência de link. Tipo:

count = count + 1Cells (contagem , 1) = ligação
9

Fechar o ciclo e acabar com a sub-rotina. Tipo:

Próxima subfolderEnd Sub
10

Selecione "Arquivo " e escolha " Run " e "Run Sub /User Form " para executar o " Salvar". script VBA . Volte para a pasta de trabalho para ver os resultados.