Como escrever uma macro no Word para ler dados do Excel

Passo 1

Abra o Excel e insira 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 o livro e feche o Excel.

Passo 2

Clique no botão Office no Word e depois 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.

Passo 3

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

Passo 4

Clique no menu "Ferramentas", depois no comando "Referências". Clique no item "Microsoft Excel Objects", que permite que a macro acesse objetos virtuais do Excel.

Passo 5

Escreva o seguinte programa na janela de código. Este programa irá criar um link para o aplicativo do Excel, em seguida, fechá-lo. 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

Passo 6

Escreva as seguintes novas instruções após "Set". Essas instruções abrem a pasta de trabalho do Excel criada na Etapa 1 e a fecha. O programa revisado ainda não leu nenhuma informação do livro. A seguinte declaração que você escreve lerá as informações no livro.

PgmExcel.Workbooks.Abra "c: \ ReadFromExcel.xlsx"

Passo 7

Escreva as seguintes declarações após "Abrir". Essa instrução usa o objeto pgmExcel para ler o valor da primeira célula na pasta de trabalho da etapa 1. O comando "MsgBox" mostra esse valor.

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

Passo 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.