Como escrever uma macro no Word para ler dados do Excel

Saber como escrever uma macro do Word para ler dados do Excel apresenta o método para um aplicativo do Office controlar outro. A Microsoft chama esse tipo de controle de “automação”. A automação permite que qualquer um dos programas do Office, como Word, Excel, Access e PowerPoint, estabeleça um link e use os objetos virtuais de outro aplicativo. Para escrever uma macro do Word que lê dados do Excel, use a instrução CreateObject do Visual Basic para criar um link para o Excel. Em seguida, use-o para ler os dados do objeto nas “células” do Excel.

Passo 1

Abra o Excel e digite um valor na primeira célula da primeira planilha. Clique no botão de comando do Office “Salvar” e digite “c: ReadFromExcel.xlsx” para o nome do arquivo. Clique em “Salvar” para salvar a pasta de trabalho e fechar o Excel.

Etapa 2

Clique no botão Office no Word e, em seguida, no botão “Opções”. Clique na caixa de seleção “Desenvolvedor” para exibir esta guia que contém os comandos de macro do Word.

Etapa 3

Clique na guia “Desenvolvedor” do “Visual Basic” para entrar no ambiente de desenvolvimento.

Etapa 4

Clique no menu “Ferramentas” e depois no comando “Referências”. Clique no item “Microsoft Excel Objects”, que permite à macro acessar objetos virtuais do Excel.

Etapa 5

Escreva o seguinte programa na janela de código. Este programa criará um link para o aplicativo Excel e depois o fechará. O programa ainda não faz nada com o link estabelecido. Agora vamos usar o link para abrir a pasta de trabalho do Excel que você criou na Etapa 1.

Public Sub ReadExcelData () Dim pgmExcel como Excel.Application Set pgmExcel = CreateObject (“Excel.Application”) pgmExcel.Quit End Sub

Etapa 6

Escreva as seguintes novas instruções após “Set”. Essas instruções abrem a pasta de trabalho do Excel que você criou na Etapa 1 e fecham-na. O programa revisado ainda não leu nenhuma informação do livro. A próxima declaração que você escrever lerá as informações do livro.

PgmExcel.Workbooks.Open “c: ReadFromExcel.xlsx”

Etapa 7

Escreva as seguintes instruções após “Abrir”. Esta instrução usa o objeto pgmExcel para ler o valor da primeira célula do livro na Etapa 1. O comando “MsgBox” mostra esse valor.

MsgBox pgmExcel.ActiveWorkbook.Sheets (1) .Cells (1, 1)

Etapa 8

Clique em qualquer um dos estados do programa e no comando “Executar” desse menu. “O programa será executado e exibirá o valor da célula na qual você escreveu na Etapa 1.

Referências

     

    Você pode estar interessado:

    Deixe um comentário