Excel não é possível importar tabelas do Word tão facilmente como pode outros dados. Uma maneira de obter tabelas do Word para o Excel é primeiro converter os dados nas tabelas do Word para valores separados por vírgulas , mais conhecido como CSV. Mas esta é uma tarefa demorada . Outra solução é usar a linguagem de programação do Excel, Visual Basic for Applications, para ler os dados de uma tabela do Word e copiá-lo para uma planilha do Excel. Usando essa abordagem envolve o uso de objetos virtuais do Word, incluindo o objeto "Tabela" . Instruções
1
Use o Windows Explorer para copiar um arquivo do Word que contém pelo menos uma tabela para a pasta "C: . \\ " Renomeie o arquivo como " table.docx ". Você vai escrever um programa de introdução que irá ler uma célula de tabela a partir deste arquivo .
2
Clique na guia "Desenvolvedor" , em seguida, clique no botão " Visual Basic " para entrar no ambiente de programação Visual Basic. Cole o seguinte programa na janela de código VB . Este programa cria um link para o Word, o Excel que permite usar objetos virtuais do Word exatamente como se o programa estava correndo dentro de um documento do Word. Este processo é chamado de " automação ".
Public Sub LoadWordTablebak ()
Dim pgmWord Como Word.Application
Set pgmWord = CreateObject (" Word.Application " ) < br >
pgmWord.Documents.Open . ( "c: \\ table.docx " )
MsgBox pgmWord.ActiveDocument.Tables (1) célula ( 1, 1)
pgmWord.ActiveDocument . Fechar
pgmWord.Quit
End Sub
3
Clique no menu "Ferramentas" , clique no comando "Referências". Percorra a janela que aparece para localizar o item "Microsoft Word " , em seguida, clique na caixa de seleção para esse item. Essa ação permite que o Excel acessar os objetos visuais em um documento do Word .
4
Clique em qualquer declaração no programa e clique em comando "Executar" do menu " Run" . O programa irá exibir uma caixa de mensagem mostrando o conteúdo de uma célula da tabela em um documento do Word. Você vai agora expandir o programa para carregar em uma tabela completa de qualquer documento do Word.
5
Cole o seguinte programa revisto abaixo da instrução " End Sub " do programa original . Este programa solicita ao usuário o nome do arquivo de um documento do Word. O usuário também deve digitar o número de uma tabela dentro do documento. O programa usa o método de automação do primeiro programa para carregar copiar a célula da tabela especificada pela célula em uma planilha do Excel.
Public Sub LoadWordTable2 ()
Dim docname As String
Dim tableID As Integer
Dim c , r, startRow As Integer Dim
curcell
Dim pgmWord Como Word.Application
Definir curcell = ActiveCell
Set pgmWord = CreateObject (" Word.Application " )
docname = InputBox ( " Digite o nome documento do Word " )
docname = InputBox ( " Digite o nome do documento do Word " )
While ( docname < > "")
tableID = InputBox ( "Digite o número de mesa" )
pgmWord.Documents.Open ( "c: \\ mesa. docx " )
Com pgmWord.ActiveDocument.Tables ( tableID )
startRow = ActiveCell.Row
Para c = 1 To . Columns.Count
para r = 1 To Rows.Count
CurCell.Value = celular (r, c)
'Move para a próxima linha. .
Definir curcell = CurCell.Offset ( 1 , 0)
Em seguida r
'
Mover para a próxima coluna
Set curcell = Cells ( startRow , curCell.Column + 1)
próxima c
End With
pgmWord.ActiveDocument.Close
docname = InputBox ( " Digite o nome documento do Word " )
Wend
pgmWord . Sair
End Sub
6
Clique no ícone do aplicativo " Excel" na barra de tarefas do Windows para retornar ao Excel , clique no botão " Macros " da guia "Desenvolvedor" . Clique duas vezes na macro " LoadWordTable " para executar essa macro.
7
Digite o nome de um documento do Word que contém uma tabela quando o prompt para fazê-lo aparecer . Digite o número da mesa que você quer quando a solicitação para que a tabela aparece. Por exemplo, se você deseja que a segunda tabela no documento , digite "2 ". Excel irá carregar a tabela na planilha atual.
8
Continuar carregar tabelas do Word com o programa , se necessário. Pressione "Enter" no " nome do documento " pronta para terminar o programa .
