Jotta voimme kopioida tietoja Excelistä Word -tiedostoon VBA: n avulla, meidän on päästävä Word -sovellukseen Excel VBA: n avulla. Tässä opetusohjelmassa opimme avaamaan sanasovelluksen, lisäämään asiakirjan ja kopioimaan ja liittämään tiedot Excelistä siihen.
Tässä artikkelissa käytämme Early Binding -menetelmää luodaksemme sanasovelluksen objektin myöhäisen sidonnan sijaan. Voit lukea siitä täältä yksityiskohtaisesti.
Excel -tietojen kopioiminen Word -tiedostoon Excel VBA: n avulla
Jos haluat kopioida tietoja Excelistä Word -tiedostoon VBA: n avulla, meidän on ensin avattava tietysti Word -sovellus. Lisää sitten asiakirja siihen (jos haluat uuden asiakirjan). Kopioi tiedot Excel -tiedostosta. Valitse asiakirjan kappale ja liitä se. Tallenna ja sulje asiakirja. Kaikki nämä vaiheet voidaan tehdä helposti Excelistä. Sinun ei tarvitse olla vuorovaikutuksessa Word -asiakirjan kanssa.
Aloitetaan esimerkillä menemättä pidemmälle teoriaan. Koska Iron Man sanoi: "Joskus sinun täytyy juosta ennen kuin voit kävellä".
Esimerkki: Liitä Excel -tiedot Wordiin VBA: n avulla
Alla oleva koodi on esimerkki siitä, kuinka voit kopioida jonkin Excel -alueen ja liittää sen uuteen Word -asiakirjaan ja tallentaa sen asemaan myöhempää käyttöä varten
'VBA Code to Write to Copy data from Excel to a Document Sub ExcelToWord ()' Early Binding Dim -sovelluksen käyttäminen Dim wordApp kuten Word. Word.Application 'Sanasovelluksen tekeminen näkyväksi wordApp.Visible = True' Uuden asiakirjan luominen Aseta mydoc = wordApp.Documents.Add () 'sisällön kopioiminen Excel -taulukosta ThisWorkbook.Worksheets ("sheet1"). Alue ("A1: g20 "). Kopioi" Liittäminen asiakirjaan mydoc.Kohdat (1) .Range.PasteExcelTable _ LinkedToExcel: = False, _ WordFormatting: = False, RTF: = False "asiakirjan tallentaminen mydoc.SaveAs2" MyDoc "'sulkee asiakirjan mydoc .Close 'Leikepöydän tyhjentäminen CutCopyMode = False End Sub
Koodin selitys:
No, olen selittänyt koodin jokaisen vaiheen kommenteilla, mutta sanotaanpa muutama sana tässä osassa käytetyistä riveistä.
'Luotu muuttujia sanasovelluksesta ja asiakirjatyypistä
Himmentää wordApp kuin Word.Application
Dim mydoc kuten Word.Document
Tässä olemme ilmoittaneet kaksi muuttujaa vaadituista tyypeistä. Voimme tehdä tämän, koska olemme jo lisänneet viittauksen sanaan sovellus. Voit tehdä tämän siirtymällä valikon työkaluihin. Etsi viittausvaihtoehto ja etsi sitten sana viittaus.
'Uuden ilmentymän luominen vain, jos muita esiintymiä ei ole
Aseta wordApp = Uusi Word.Application
'Sana -sovelluksen näkyminen
wordApp.Visible = Totta
'Uuden asiakirjan luominen
Aseta mydoc = wordApp.Documents.Add ()
Yllä olevalla ensimmäisellä rivillä tarkoitamme wordApp -muuttujaa Word.App -tyyppisellä objektilla käyttämällä uutta avainsanaa. Tämä avaa Word -sovelluksen.
Toisella rivillä teemme sanasovelluksen näkyväksi, jotta voimme työskennellä sen kanssa.
Seuraavalla rivillä lisäämme uuden asiakirjan sanasovellukseen käyttämällä Word.Documents.Add () -funktiota. Tämä tallennetaan mydoc -muuttujaan.
'sisällön kopioiminen Excel -taulukosta
ThisWorkbook.Worksheets ("sheet1"). Alue ("A1: G20"). Kopio
Täällä kopioimme vain alueen Excelistä. Olet varmasti tehnyt sen ennen. Se tallennetaan leikepöydälle.
'Liittäminen asiakirjaan
mydoc.Kohdat (1) .Range.PasteExcelTable _
LinkedToExcel: = False, _
WordFormatting: = False,
RTF: = väärä
Liitämme tiedot leikepöydältä käyttämällä kappaleen PasteExcelTable -menetelmää kappaleen Range -luokassa.
'asiakirjan tallentaminen
mydoc.SaveAs2 "MyDoc"
'asiakirjan sulkeminen
mydoc.Sulje
'Leikepöydän tyhjentäminen
CutCopyMode = Väärä
Tallennamme asiakirjan nimellä MyDoc. Sitten suljemme asiakirjan Sulje -toiminnolla. Lopulta julkaisemme leikepöydän muiden käyttöön.
Joten kyllä kaverit, tällä tavalla voit luoda uuden Word -asiakirjan ja kopioida Excel -tiedot siihen VBA: n avulla. En ole mennyt yksityiskohtiin, koska se tekisi artikkelista uuvuttavan pitkän. Tämä oli vain oppiaksesi liittämään Word -asiakirjaan Excelin kautta. Toivottavasti se auttoi sinua ymmärtämään prosessin. Jos sinulla on kysyttävää tästä artikkelista, voit ottaa minuun yhteyttä alla olevien kommenttien kautta.
Excel VBA UserForms -ohjelman käytön aloittaminen| Selitän, miten Excel -lomake luodaan, kuinka VBA -työkalupakkia käytetään, miten käyttäjän syötteitä käsitellään ja lopuksi kuinka tallennetaan käyttäjän syötteet. Käymme nämä aiheet läpi yhden esimerkin ja vaiheittaisen oppaan avulla.
VBA -muuttujat Excelissä| VBA tarkoittaa Visual Basic for Applications. Se on Microsoftin ohjelmointikieli. Sitä käytetään Microsoft Office -sovelluksissa, kuten MSExcel, MS-Word ja MS-Access, kun taas VBA-muuttujat ovat erityisiä avainsanoja.
Excel VBA -muuttujan laajuus| Kaikilla ohjelmointikielillä on muuttujan käyttöoikeusmäärittelyt, jotka määrittävät, mistä määriteltyä muuttujaa voidaan käyttää. Excel VBA ei ole poikkeus. Myös VBA: ssa on laajuuden määrittäjiä.
ByRef- ja ByVal -argumentit | Kun argumentti välitetään ByRef -argumenttina toiselle ala- tai funktiolle, todellisen muuttujan viite lähetetään. Kaikki muuttujan kopioon tehdyt muutokset näkyvät alkuperäisessä argumentissa.
Poista taulukot ilman vahvistuskehotteita käyttämällä VBA: ta Microsoft Excelissä | Koska poistat arkkeja VBA: n avulla, tiedät mitä olet tekemässä. Haluat kertoa Excelille, ettei se näytä tätä varoitusta ja poista kirottu arkki.
Lisää ja tallenna uusi työkirja VBA: n avulla Microsoft Excel 2016: ssa| Tässä koodissa loimme ensin viittauksen työkirjaobjektiin. Ja sitten alustimme sen uudella työkirjaobjektilla. Tämän lähestymistavan etuna on, että voit tehdä tämän uuden työkirjan toimintoja helposti. Kuten tallentaminen, sulkeminen, poistaminen jne
Näytä viesti Excel VBA -tilapalkissa| Excelin tilariviä voidaan käyttää koodinäytönä. Kun VBA -koodisi on pitkä ja teet useita tehtäviä VBA: n avulla, poistat usein näytön päivityksen käytöstä, jotta et näe sitä välkkyvää.
Poista varoitusviestit käytöstä VBA: n avulla Microsoft Excel 2016: ssa| Tämä koodi ei vain poista VBA -hälytyksiä käytöstä, vaan myös lisää koodin aikatehokkuutta. Katsotaanpa miten.
Suosittuja artikkeleita:
50 Excel -pikanäppäintä tuottavuuden lisäämiseksi | Nopeuta tehtävääsi. Nämä 50 pikanäppäintä tekevät työskentelystäsi entistä nopeampaa Excelissä.
VLOOKUP -toiminto Excelissä | Tämä on yksi eniten käytetyistä ja suosituimmista Excel -toiminnoista, jota käytetään arvon etsimiseen eri alueilta ja arkeilta.
COUNTIF Excel 2016: ssa | Laske arvot olosuhteilla käyttämällä tätä hämmästyttävää toimintoa. Sinun ei tarvitse suodattaa tietoja laskeaksesi tiettyjä arvoja. Laskutoiminto on välttämätön kojelaudan valmistelemiseksi.
SUMIF -toiminnon käyttäminen Excelissä | Tämä on toinen kojelaudan olennainen toiminto. Tämä auttaa sinua laskemaan yhteen arvot tietyissä olosuhteissa.