Como extrair tabelas de vrios documentos do Word e import-los para o Excel

| Home | Ferragens | Networking | Programao | Software | Pergunta | Sistemas |

Software

Adobe Illustrator

Software de Animao

Software antivrus

Software udio

Fazer backup de dados

Gravar CDs

Gravar DVDs

compresso de dados

Software de banco de dados

editorao eletrnica

desktop Video

Software Vdeo Digital

Drupal

Software Educacional

Engenharia de Software

Tipos de extenso de arquivo

Software Financeiro

Freeware, shareware e Abandonware

GIMP

Software Grfico

Software de gravao Incio

Microsoft Access

Microsoft Excel

Microsoft Publisher

Microsoft Word

Open Source Code

Outro software de computador

Jogos para PC

Photoshop

Portable Document Format

PowerPoint

Apresentao Software

Produtividade de Software

Quicktime

Gesto de rea de Trabalho Remota

SQL Server

Skype

Software beta Lanamentos

Consultores de Software

Empresas de Desenvolvimento de Software

Licenciamento de Software

Planilhas

Imposto Preparao Software

Software Utility

Web Clip Art

Windows Media Player

Software de processamento de texto

*Conhecimento computador>>Software>>Microsoft Access>>

Como extrair tabelas de vrios documentos do Word e import-los para o Excel

Excel no possvel importar tabelas do Word to 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 vrgulas , mais conhecido como CSV. Mas esta uma tarefa demorada . Outra soluo usar a linguagem de programao 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" . Instrues 1

Use o Windows Explorer para copiar um arquivo do Word que contm pelo menos uma tabela para a pasta "C: . \\ " Renomeie o arquivo como " table.docx ". Voc vai escrever um programa de introduo que ir ler uma clula de tabela a partir deste arquivo . 2

Clique na guia "Desenvolvedor" , em seguida, clique no boto " Visual Basic " para entrar no ambiente de programao Visual Basic. Cole o seguinte programa na janela de cdigo 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 " automao ".

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) clula ( 1, 1)

pgmWord.ActiveDocument . Fechar

pgmWord.Quit

End Sub 3

Clique no menu "Ferramentas" , clique no comando "Referncias". Percorra a janela que aparece para localizar o item "Microsoft Word " , em seguida, clique na caixa de seleo para esse item. Essa ao permite que o Excel acessar os objetos visuais em um documento do Word . 4

Clique em qualquer declarao no programa e clique em comando "Executar" do menu " Run" . O programa ir exibir uma caixa de mensagem mostrando o contedo de uma clula 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 instruo " End Sub " do programa original . Este programa solicita ao usurio o nome do arquivo de um documento do Word. O usurio tambm deve digitar o nmero de uma tabela dentro do documento. O programa usa o mtodo de automao do primeiro programa para carregar copiar a clula da tabela especificada pela clula em uma planilha do Excel.

Public Sub LoadWordTable2 ()

Dim docname As String < p > 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 nmero 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 prxima linha. .

Definir curcell = CurCell.Offset ( 1 , 0)

Em seguida r '

Mover para a prxima coluna

Set curcell = Cells ( startRow , curCell.Column + 1)

prxima 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 boto " Macros " da guia "Desenvolvedor" . Clique duas vezes na macro " LoadWordTable " para executar essa macro. 7

Digite o nome de um documento do Word que contm uma tabela quando o prompt para faz-lo aparecer . Digite o nmero da mesa que voc quer quando a solicitao 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 necessrio. Pressione "Enter" no " nome do documento " pronta para terminar o programa .

Anterior : ComocalcularoKappacomExcel

Prximo : No

Os artigos relacionados

ComoatribuirumamacroaumacaixadeseleonoMicEunovejonenhumaPersonagensAodigitarMicrosoftEComoformatarUPCnoExcelComocriarumafunodeprogramaoMicrosoftAcceMicrosoftAccessbarradettulonoexibeoNomeComofazerClulasAutoAjustenoExcelusandoVBScriptComousaroExcelparaTrigonometriaExcelCdigoVBAparaValue&NotaoCientficaMicrosoftAccessBsicoComocriarformulriosemMicrosoftAccess

Artigos em destaque

Comoconverterumvdeo3GPparaumWMVComoajustarasmargensdaimpressoranoOpenOfficeComoseconectaraumSQLRemotoComoJogarSRTcomumMediaPlayerHistriadaMaya3DComodefinirEspelhodeimpressonoWordPerfectComocriarumsiteMarqueeComoremoverFlash10EXEComoselivrardevrusdecomputadorWin32ComocriarbotesnoGIMP2.6

Cop e direita Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados