Saber escrever uma macro do Word que lê os dados do Excel apresenta-lhe uma abordagem para o controle de um aplicativo do Office com o outro. Microsoft chama este tipo de controle " Automação ". Automação permite que qualquer um dos programas do Office, como Word, Excel, Access e PowerPoint, estabelecer um link para , em seguida, usar os objetos virtuais de outro aplicativo do Office . Para escrever uma macro do Word que lê os dados do Excel , use a instrução " CreateObject " do Visual Basic para criar um link para o Excel. Em seguida, use o link para ler os dados do objeto "Cell" do Excel. Instruções
1

Abra o Excel , em seguida, digite qualquer valor na primeira célula da primeira planilha. Clique comando " Salvar " do botão do Office, em seguida, digite "c: \\ ReadFromExcel.xlsx " para o nome do arquivo. Clique em " Save" para salvar a pasta de trabalho, feche o Excel.
2

Clique no botão do Office no Word , clique no botão "Opções" . Clique na caixa de seleção "Developer" para exibir a guia "Desenvolvedor" , que detém macro comandos do Word .
3

Clique no botão da guia "Desenvolvedor" " Visual Basic " para entrar no desenvolvimento do Visual Basic ambiente.
4

Clique no menu "Ferramentas" , clique no comando "Referências". Clique no item " objetos do Microsoft Excel" , que permite o seu acesso macro os objetos virtuais de Excel.
5

Digite o seguinte programa na janela de código . Este programa cria um link para o aplicativo Excel, em seguida, fechar o link. O programa ainda não faz nada com a ligação estabelecida. Agora você vai usar o link para abrir o livro 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
6

Digite os seguintes novas declarações após a instrução "Set" . Estas declarações abrir o livro do Excel que você criou no passo 1, em seguida, fechar o livro . O programa revisto ainda não lê todas as informações do livro. A próxima instrução que você vai escrever vai ler informações a partir do livro

PgmExcel.Workbooks.Open "c: \\ ReadFromExcel.xlsx " .
7

Digite as seguintes declarações após o " Abra " declaração . Esta declaração usa o objeto pgmExcel para ler o valor da primeira célula na pasta de trabalho a partir do passo 1. A afirmação " MsgBox" exibe esse valor.

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

Clique em qualquer das declarações do programa, clique em o comando "Executar" do menu " Run" . O seu programa será executado e exibirá o valor da célula na qual você escreveu no passo 1.