Visual Basic for Applications ( VBA ) , Microsoft's scripttaal voor Excel en Word , laat gebruikers van deze programma's te schrijven scripts die de snelheid van algemene taken , zoals toegang tot tabelgegevens Extract . Naast het geven van Excel- gebruikers de mogelijkheid om Excel-tabel gegevens te beheren , VBA biedt ook een middel voor toegang tot tabellen in Word-documenten . VBA ontwikkelaars verwijzen naar dit vermogen van een Office- programma naar het andere lopen als ' automatisering. " Een voordeel dat het automatiseren van Word- extractie van gegevens biedt, is tijd te besparen . Zonder automatisering , kunnen Excel-gebruikers moeten meer tijdrovende methoden te gebruiken voor het brengen van gegevens in Excel in Word . Instructies
1 Maak een nieuw document in Word door op "Control - N . " Klik op het menu "Invoegen" en klik vervolgens op het pictogram "Table " in de " Tafel" -paneel. Klik op een willekeurige cel pictogram om een tafel en typ vervolgens de gegevens maken in ten minste de bovenste rij van de meest linkse cel . Het document op te slaan als " C : \\ WordTableData.doc " en sluit Word . Deze stap zorgt sample gegevens die je uitpakken met Excel . Kopen van 2 Maak een nieuw document in Excel en vervolgens op ' Alt - F11 "om de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) in te voeren . De IDE biedt de middelen voor het handmatig invoeren van VBA -programma's , in tegenstelling tot het opnemen van macro binnen Excel .
3 Klik op " Invoegen " en vervolgens " Module " om een nieuwe module te maken voor het invoeren van programmacode . Typ de volgende code ergens in de nieuwe module : Public Sub accessTable ( )
Stel appWD = CreateObject ( " Word.Application " ) appWD.Documents.Open Filename
: = " C : \\ WordTableData.doc " , _ ConfirmConversions
: = False , ReadOnly : = False , AddToRecentFiles : = False ,
PasswordDocument : = " " , PasswordTemplate : = " " , Revert : = False , _
WritePasswordDocument : = " " , WritePasswordTemplate : = " " , Formaat : _ wdOpenFormatAuto
x = appWD.ActiveDocument.Tables = ( 1 ) . Rijen ( 1 ) . Cells ( 1 ) MsgBox
( x ) appWD.Quit End Sub
Deze subroutine creëert een verborgen exemplaar van Microsoft Word , gebruikt u deze om een Word-document te openen en de waarde van een cel in de eerste tabel van het document .
4 Klik op de " References " punt IDE 's onder het menu "Extra " en dan naar beneden scrollen in de lijst van objecten totdat u " Microsoft Word Object Library . " Plaats een vinkje in het vak aan de linkerkant van dit item en sluit vervolgens de " References dialoogvenster . " Te lopen, moet uw code te koppelen aan virtuele objecten van Word ( bijvoorbeeld tabellen ) . De " References " dialoogvenster kunt u die link te maken .
5 Klik ergens in de " accessTable " subroutine die u in stap 3 schreef en vervolgens op " F5 " om de subroutine uit te voeren. Na een korte pauze , zal Excel een dialoogvenster weer met de door u in tabel het Word- document in stap 1 ingevoerde gegevens .
Type 6 de volgende nieuwe code na de " Public Sub " verklaring in de " accessTable " subroutine : dim someRow
, someColumn
someRow = inputbox ( " Voer de rij die u wilt gegevens te trekken van . " ) someColumn = inputbox
( " Voer de kolom die u wilt gegevens te trekken van . " ) op Twitter Deze nieuwe verklaringen , en de ene in de volgende stap , zodat u om te kiezen welke tafel cel om gegevens te extraheren uit .
7 Vervang de verklaring die begint met " x = appWD " met deze stelling : .
x = appWD.ActiveDocument.Tables ( 1 ) Rijen ( someRow ) Cells ( someColumn ) op Twitter . 8 Voer de subroutine zoals u deed in stap 5 . Reageer op de vraag van de rij en kolom . Uw herzien programma zal de tabel gegevens uit de cel die u hebt opgegeven en weergeven in een dialoogvenster .
|
