Andmete kopeerimiseks Excelist Wordi faili VBA abil peame pääsema juurde Wordi rakendusele Exceli VBA abil. Selles õpetuses õpime, kuidas avada sõnarakendus, lisada dokument ja kopeerida-kleepida andmed Excelist sinna.
Selles artiklis kasutame varase sidumise meetodit sõnarakenduse objekti loomiseks, selle asemel, et kasutada hilist sidumist. Siit saate üksikasjalikult lugeda siit.
Exceli andmete kopeerimine Wordi faili Excel VBA abil
Andmete kopeerimiseks Excelist Wordi faili VBA abil peame kõigepealt avama muidugi Wordi rakenduse. Seejärel lisage sellele dokument (kui soovite uut dokumenti). Kopeerige andmed Exceli failist. Valige dokumendis lõik ja kleepige see. Lõpuks salvestage ja sulgege dokument. Kõiki neid samme saab hõlpsasti Excelist teha. Te ei pea Wordi dokumendiga suhtlema.
Alustame näitega ilma teooriasse pikemalt laskumata. Sest Raudmees ütles: "Mõnikord tuleb enne kõndimist joosta."
Näide: Kleebi Exceli andmed Wordi VBA abil
Allolev kood on näide sellest, kuidas saate mõnda Exceli valikut kopeerida ja uude Wordi dokumenti kleepida ning hiljem draiviks salvestada
'VBA -kood kirjutamiseks andmete kopeerimiseks Excelist dokumendisse alam ExcelToWord ()' Varajase sidumise kasutamine Dim wordApp kui Word. Rakendus Dim mydoc kui Word.Document 'Uue sõna eksemplari loomine ainult siis, kui muid eksemplare pole Word.Application 'Wordi rakenduse nähtavaks tegemine wordApp.Visible = True' Uue dokumendi loomine Määrake mydoc = wordApp.Documents.Add () 'sisu kopeerimine Exceli lehelt ThisWorkbook.Worksheets ("sheet1"). Vahemik ("A1: g20 "). Kopeerige" Kleepimine dokumendile mydoc.Paragrahvid 1 ".Range.PasteExcelTable _ LinkedToExcel: = False, _ WordFormatting: = False, RTF: = False" dokumendi salvestamine mydoc.SaveAs2 "MyDoc" 'sulgeb dokumendi mydoc .Sulge 'Lõikelaua tühjendamine CutCopyMode = False End Sub
Koodeksi selgitus:
Noh, ma olen selgitanud koodi iga sammu kommentaaride abil, kuid räägime mõne sõna selles alamrivis kasutatud ridade kohta.
"Loodud Wordi rakenduse ja dokumendi tüübi muutujad
Hämardage sõnarakendus kui sõna. Rakendus
Dim mydoc nagu Word. Dokument
Siin oleme deklareerinud kaks nõutavat tüüpi muutujat. Me saame seda teha, kuna oleme juba lisanud viite sõnale rakendus. Seda saate teha menüüs Tööriistad. Leidke valik Viited ja seejärel otsige sõna viide.
"Uue sõna eksemplari loomine ainult siis, kui muid eksemplare pole
Määra wordApp = Uus sõna. Rakendus
„Wordi rakenduse nähtavaks tegemine
wordApp.Visible = Tõsi
'Uue dokumendi loomine
Määra mydoc = wordApp.Documents.Add ()
Ülaltoodud esimesel real kavatseme muutuja wordApp kasutada objektiga Word.App, kasutades uut märksõna. See avab Wordi rakenduse.
Teisel real muudame sõnarakenduse nähtavaks, et saaksime sellega töötada.
Järgmisel real lisame sõnarakendusse Word.Documents.Add () funktsiooni abil uue dokumendi. See salvestatakse muutujale mydoc.
'sisu kopeerimine Exceli lehelt
ThisWorkbook.Worksheets ("sheet1"). Vahemik ("A1: G20"). Kopeeri
Siin me lihtsalt kopeerime vahemiku Excelist. Ilmselt olete seda varem teinud. See salvestatakse lõikelauale.
'Dokumendile kleepimine
mydoc. Lõiked 1 (1). Range.PasteExcelTable _
LinkedToExcel: = Vale, _
WordFormatting: = vale,
RTF: = vale
Kasutame lõikepuhvrist andmete kleepimiseks lõigu PasteExcelTable meetodit Lõige. Range klass mydoc.
'dokumendi salvestamine
mydoc.SaveAs2 "MyDoc"
'dokumendi sulgemine
mydoc.Sulge
'Lõikelaua tühjendamine
CutCopyMode = Vale
Salvestame dokumendi nimega MyDoc. Seejärel sulgeme dokumendi, kasutades funktsiooni Sule. Lõpuks vabastame lõikelaua teiste kasutamiseks.
Nii et jah, poisid, nii saate luua uue Wordi dokumendi ja kopeerida sinna VBA abil Exceli andmed. Ma pole detailidesse laskunud, sest see teeks artikli kurnavalt pikaks. See oli mõeldud ainult selleks, et õppida, kuidas Excelis Wordi dokumenti kleepida. Loodan, et see aitas teil protsessi mõista. Kui teil on selle artikli kohta küsimusi, võite minuga ühendust võtta allpool kommentaaride jaotise kaudu.
Excel VBA UserFormsiga alustamine| Selgitan, kuidas Excelis vormi luua, kuidas VBA tööriistakasti kasutada, kuidas kasutaja sisendeid käsitseda ja lõpuks, kuidas kasutaja sisendeid salvestada. Vaatame need teemad läbi ühe näite ja samm -sammult juhise abil.
VBA muutujad Excelis| VBA tähistab Visual Basic for Applications. See on Microsofti programmeerimiskeel. Seda kasutatakse koos Microsoft Office'i rakendustega, nagu MSExcel, MS-Word ja MS-Access, samas kui VBA muutujad on spetsiifilised märksõnad.
Exceli VBA muutuv ulatus| Kõigis programmeerimiskeeltes on meil muutuva juurdepääsu spetsifikatsioonid, mis määravad, kust saab määratud muutujale juurde pääseda. Excel VBA pole erand. Ka VBA -l on ulatuse täpsustajad.
ByRef ja ByVal argumendid | Kui argument edastatakse ByRef argumendina teisele alam- või funktsioonile, saadetakse tegeliku muutuja viide. Kõik muutuja koopiasse tehtud muudatused kajastuvad algses argumendis.
Kustutage lehed ilma kinnitusviipadeta, kasutades Microsoft Excelis VBA -d | Kuna kustutate lehti VBA abil, teate, mida teete. Sooviksite Excelil seda hoiatust mitte kuvada ja neetud leht kustutada.
Uue töövihiku lisamine ja salvestamine Microsoft Excel 2016 VBA abil| Selles koodis lõime esmalt viite töövihiku objektile. Ja siis vormistasime selle uue töövihikuobjektiga. Selle lähenemisviisi eeliseks on see, et saate selle uue töövihikuga hõlpsalt toiminguid teha. Nagu salvestamine, sulgemine, kustutamine jne
Kuva teade Exceli VBA olekuribal| Exceli olekuriba saab kasutada koodimonitorina. Kui teie VBA -kood on pikk ja teete VBA -ga mitmeid ülesandeid, keelate sageli ekraani värskendamise, nii et te ei näe seda ekraani vilkumist.
Lülitage hoiatussõnumid välja Microsoft Excel 2016 VBA abil| See kood mitte ainult ei luba VBA hoiatusi, vaid suurendab ka koodi ajakasutust. Vaatame, kuidas.
Populaarsed artiklid:
50 Exceli otseteed tootlikkuse suurendamiseks | Saa oma ülesandega kiiremini hakkama. Need 50 otseteed aitavad teil Excelis veelgi kiiremini töötada.
Funktsioon VLOOKUP Excelis | See on üks enim kasutatud ja populaarsemaid Exceli funktsioone, mida kasutatakse erinevate vahemike ja lehtede väärtuse otsimiseks.
COUNTIF Excelis 2016 | Loendage väärtused tingimustega, kasutades seda hämmastavat funktsiooni. Te ei pea oma andmeid teatud väärtuste loendamiseks filtreerima. Countif funktsioon on armatuurlaua ettevalmistamisel hädavajalik.
Funktsiooni SUMIF kasutamine Excelis | See on veel üks armatuurlaua oluline funktsioon. See aitab teil teatud tingimustel väärtusi kokku võtta.