Weten hoe je een Word- macro die gegevens uit Excel maakt u kennis met een aanpak voor het beheersen van een Office- applicatie met een andere leest te schrijven . Microsoft noemt deze vorm van controle " Automation . " Automatisering laat een van de Office- programma's zoals Word , Excel , Access en PowerPoint , stellen een link naar , gebruik dan de virtuele objecten van een andere Office-toepassing . Naar een Word- macro die gegevens uit Excel leest schrijven , gebruik dan de " CreateObject " verklaring van Visual Basic om een koppeling naar Excel. Maak dan gebruik van die verwijzen naar gegevens uit Excel 's "Cell " object lezen . Instructies
Open Excel 1 , typ een waarde in de eerste cel van het eerste werkblad . Klik op " Save " opdracht van de Office knop , typ " c: \\ ReadFromExcel.xlsx " voor de bestandsnaam . Klik op " Opslaan " om de werkmap op te slaan , sluit Excel . Kopen van 2 Klik op de Office- knop in Word , klik op de knop "Opties " . Klik op het selectievakje " Developer " op het tabblad "Ontwikkelaar " , waarin macro-opdrachten van Word houdt weer .
3 Klik op de knop van het tabblad "Ontwikkelaar " " Visual Basic " om de Visual Basic ontwikkeling in te voeren milieu .
4 Klik op het menu 'Extra' , klik vervolgens op de " References " commando . Klik op de " Microsoft Excel- objecten" punt , waarmee de macro toegang tot de virtuele objecten van Excel .
5 Typ het volgende programma in het venster code . Dit programma maakt een koppeling naar de Excel-toepassing , sluit vervolgens de link. Het programma is nog niets doen met de gevestigde link. U zult nu de link naar de Excel-werkmap die u hebt gemaakt in stap 1 te openen . Public Sub ReadExcelData ( ) op Dim pgmExcel
Zoals Excel.Application
Set pgmExcel = CreateObject ( " Excel.Application " ) pgmExcel.Quit End Sub
Type
6 de volgende nieuwe verklaringen na de " Set" statement . Deze verklaringen Open de Excel-werkmap die u in stap 1 , dan sluit de werkmap . Het herziene programma is nog niet gelezen geen informatie van de werkmap .
Type 7 de volgende uitspraken na de " : de volgende verklaring die u zult schrijven zal informatie uit de werkmap PgmExcel.Workbooks.Open " \\ ReadFromExcel.xlsx c "
lezen . open " statement . Deze instructie gebruikt de pgmExcel object de waarde van de eerste cel in de werkmap stap 1 lezen . De " MsgBox " verklaring geeft die waarde . MsgBox pgmExcel.ActiveWorkbook.Sheets
( 1 ) . Cells ( 1 , 1 ) op Twitter 8 Klik op een van de verklaringen van de programma 's , en klik vervolgens op de " Run " commando van het menu " Run" . Uw programma uit te voeren en de waarde van de cel waarin u hebt getypt in stap 1 .
|
