Jos sinun on kopioitava ja liitettävä tietoja useista Excel -laskentataulukoista MS Wordiin, sinun kannattaa lukea tämä artikkeli. Excelissä ei ole sellaista ominaisuutta, jonka avulla voit muuntaa tiedot Excel -työkirjasta Word -tiedostoksi. Word -sovellus ei voi avata Excel -tiedostoja suoraan. Excel -tiedot voidaan kuitenkin kopioida ja liittää Wordiin ja tallentaa sitten Word -asiakirjana.
Me kaikki siirrämme tietoja Excelistä sanaan manuaalisesti, mikä tulee joskus ikäväksi, kun on kyse samojen vaiheiden suorittamisesta liian monta kertaa päivässä; manuaalisten vaiheiden välttämiseksi kirjoitamme VBA -koodin kaikkien vaiheiden suorittamiseksi.
Tässä artikkelissa keskitymme tietojen siirtämiseen Excelistä Word -asiakirjaan. Automatisoimme koko menettelyn VBA -koodin avulla. Makrokoodilla voit yksinkertaisesti kopioida tiedot yhdelle laskentataulukolle kerrallaan ja sitten Word -sovellus käynnistyy automaattisesti ja VBA -koodi käyttää liitä -komentoa tietojen lisäämiseksi doc -tiedostoon.
Koodin saaminen; meidän on noudatettava alla olevia ohjeita VB -editorin käynnistämiseksi:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- On tärkeä askel, jota ei kannata jättää väliin
- Valitse Viitteet valitsemalla Työkalut
- Vieritä alaspäin, kunnes löydät "Microsoft Word 15.0 Object Library"
- Muista valita ruutu; katso alla oleva kuva
- Kopioi alla oleva koodi vakiomoduuliin
Sub CopyWorksheetsToWord () Dim wdApp Kuten Word.Application, wdDoc As Word.Document, ws Työsivun Application.ScreenUpdating = False Application.StatusBar = "Luo uutta asiakirjaa …" Aseta wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add Jokaiselle ActiveWorkbook.Worksheets Application.StatusBar = "Kopioidaan tietoja kohteesta" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paszaks (wdDoc.Pa bekezds.Count). .Count) .Range.Paste Application. Laske) .Lue. ActivePane.View.Type = wdNormalView Else .View.Type = wdNormalView Loppu Jos päättyy asetuksella wdDoc = Ei mitään wdApp.Visible = Tosi joukko wdApp = Ei mitään Application.StatusBar = False End Sub
Koodin testaamiseksi lisäämme kaksi arkkia ja lisäämme satunnaislukuja. Alla on otos molemmista laskentataulukoista:
1. arkki:-
2. arkki:-
- Kun olet asettanut tiedot laskentataulukoihin; voimme suorittaa makron
- Word -sovellus käynnistyy välittömästi ja tiedot kopioidaan kaikista laskentataulukoista Wordiin; katso alla oleva kuva
Jos tietojen kopiointi on mielestäsi yksi tehtävä, mutta jokaisen laskentataulukon datan välillä on oltava tauko, jotta kuka tahansa voi helposti tehdä eron kunkin laskentataulukon tiedoista.
Yllä olevat tiedot kopioidaan yhdeltä arkilta ja sitten VBA -koodi lisää sivunvaihdon sivujen väliin.
Johtopäätös: Tällä tavoin voimme auttaa monia Microsoft Office -käyttäjiä, joiden mielestä tietojen muuntaminen Excel -tiedostosta Wordiksi on hieman monimutkaista tai mahdotonta. Yllä oleva koodi on osoittanut, kuinka helposti voidaan kopioida ja liittää tietoja Word -tiedostoon ilman hätää useista Excel -sivuista Word -asiakirja -tiedostoon.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse