Dator > hur extrahera data från ord tabeller i Excel VBA

  • hur extrahera data från ord tabeller i Excel VBA


  • Visual Basic for Applications ( VBA ) , Microsofts skriptspråk för Excel och Word , låter användarna av dessa program skriva skript för att snabba upp vanliga uppgifter som tillgång tabelldata . Förutom att ge Excel -användare möjlighet att hantera Excel- tabell data , ger VBA också ett sätt för åtkomst till tabeller i Word-dokument . VBA utvecklare hänvisar till denna förmåga ett Office -program för att köra en annan som " automatisering ". En fördel att automatisera Word datautvinning ger är att spara tid . Utan automation , kan Excel -användare behöver använda mer tidskrävande metoder för att få data till Excel från Word .
    1
    Skapa ett nytt dokument i Word genom att trycka på . " Control-N . " Klicka på " Infoga " -menyn och klicka sedan på " Tabell "-ikonen i " Tabell " panelen . Klicka i valfri cell ikon för att göra en tabell och sedan skriva in data i åtminstone den översta raden är cellen längst till vänster . Spara dokumentet som " C: \ WordTableData. doc " och stäng sedan Word . Detta steg skapar exempeldata som du extrahera med Excel .
    2 .
    Skapa ett nytt dokument i Excel och sedan trycka " Alt-F11 " för att öppna Visual Basic integrerad utvecklingsmiljö ( IDE ) . IDE ger möjlighet för manuellt in VBA -program , i motsats till inspelningen makron i Excel .
    3 .
    Klicka på " Infoga " och sedan " Modul " för att skapa en ny modul för inmatning program kod . Skriv in följande kod någonstans inuti den nya modulen :



    Public Sub accessTable ( )

    Set appWD=CreateObject ( " Word. Application " )

    appWD. Documents. Open Filnamn :=" C : \ WordTableData. doc " , _

    ConfirmConversions :=False , ReadOnly :=False , AddToRecentFiles :=False ,

    PasswordDocument :="", PasswordTemplate :="", Återställ :=False , _

    WritePasswordDocument :="", WritePasswordTemplate :="", Format :=_

    wdOpenFormatAuto

    x=appWD . ActiveDocument. Tables (1) . Rader (1) . celler (1 )

    MsgBox (x )

    appWD. Quit

    End Sub



    Denna subrutin skapar en dold instans av Microsoft Word , sedan använder det för att öppna ett Word-dokument och få värdet för en cell i dokumentets första tabellen .

    4 .
    Klicka på IDE : s "Referenser " post under menyn "Verktyg" och rulla sedan nedåt i listan över objekt tills du ser " Microsoft Word Object Library . " Placera en kontroll i rutan till vänster på denna punkt och stäng sedan dialogrutan Referenser . " För att köra , behöver din kod för att länka till Word virtuella objekt ( till exempel tabeller ) . "Referenser " i dialogrutan kan du skapa den länken.
    5 .
    Klicka inuti den " accessTable " subrutin du skrev i steg 3 och tryck " F5 " för att köra subrutin . Efter en kort paus , kommer Excel visas en dialogruta med de uppgifter du angav i Word- dokumentet bord i steg 1.

    6
    Skriv följande nya koden efter " Public Sub " uttalande i " accessTable " subrutin .



    dim someRow , someColumn

    someRow=InputBox ( " Ange den rad som du vill hämta data från . " )

    someColumn=InputBox ( " Ange kolumnen som du vill hämta data från . " )



    Dessa nya uttalanden och den som i nästa steg , kan du välja vilken tabell cell att extrahera data från
    7
    tillbaka uttalandet börjar med " x=appWD " med detta uttalande : .



    x=appWD. ActiveDocument. Tables (1) . Rader ( someRow ) . Cells ( someColumn )
    8 .
    Kör subrutin som du gjorde i steg 5 . svara på frågorna för den rad och kolumn . Din reviderade programmet kommer att packa tabelldata från cellen du angav och visa den i en dialogruta .


Previous:nothing Next:skeden av programvara livscykel





Relaterade artiklar


  • hur man kan förebygga kopiera och klistra in
  • hur du låser textrutor i C #
  • Hur konvertera html till text php
  • hur man kommentar i ett java script
  • reguljära uttryck javascript tutorial
  • hur man lär sig & Test html -koder
  • java script vs PHP
  • datakunskap för nybörjare
  • Inaktivera HTML textmarkering
  • hur man gör en spets axelryckning