Če morate v MS Word kopirati in prilepiti podatke iz več delovnih listov programa Excel, preberite ta članek. V Excelu ni take funkcije, ki bi vam omogočala pretvorbo podatkov iz Excelovega delovnega zvezka v besedilno datoteko. Wordova aplikacija ne more neposredno odpreti Excelovih datotek. Vendar pa lahko podatke programa Excel kopirate in prilepite v besedo ter jih nato shranite kot besedilni dokument.
Vsi ročno prenašamo podatke iz Excela v besedo, kar včasih postane dolgočasno, ko gre za izvajanje istih korakov prevečkrat na dan; da bi se izognili ročnim korakom, bomo za vse korake napisali kodo VBA.
V tem članku se bomo osredotočili na premikanje podatkov iz Excela v dokument Word. Celoten postopek bomo avtomatizirali s kodo VBA. Z makro kodo lahko preprosto kopirate podatke na en delovni list hkrati, nato pa se bo samodejno zagnala besedna aplikacija, koda VBA pa bo z ukazom paste prilepila podatke v datoteko doc.
Za pridobitev kode; Za zagon urejevalnika VB moramo slediti spodnjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Obstaja pomemben korak, ki ga ne smete zamuditi
- Kliknite Orodja, da izberete Reference
- Pomaknite se navzdol, dokler ne najdete »Knjižnica predmetov Microsoft Word 15.0«
- Potrdite polje; glej spodnjo sliko
- Kopirajte spodnjo kodo v standardni modul
Sub CopyWorksheetsToWord () Zatemni wdApp kot Word.Application, wdDoc kot Word.Document, ws kot Worksheet Application.ScreenUpdating = False Application.StatusBar = "Ustvarjanje novega dokumenta …" Nastavite wdApp = New Word.Application Set wdDoc = wdApp.Documents Za vsako ws v ActiveWorkbook.Worksheets Application.StatusBar = "Kopiranje podatkov iz" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count). Range.InsertParagraphAfter wdDoc.Paragraphs (wdDo .Število. Število. ActivePane.View.Type = wdNormalView Drugače. View.Type = wdNormalView End if End With Set wdDoc = Nič wdApp.Visible = True Set wdApp = Nič Application.StatusBar = False End Sub
Za preizkus kode vstavimo 2 lista in dodamo naključne številke. Sledi posnetek obeh delovnih listov:
1. list:-
2. list:-
- Po nastavitvi podatkov na delovnih listih; lahko zaženemo makro
- Wordova aplikacija se bo takoj zagnala in podatki bodo kopirani iz vseh delovnih listov v word; glejte spodnji posnetek
Če menite, da je kopiranje podatkov ena naloga, vendar mora biti med podatki na vsakem delovnem listu prelom strani, tako da lahko vsakdo zlahka naredi razliko med podatki iz vsakega delovnega lista.
Zgornji podatki bodo kopirani z enega lista, nato pa bo koda VBA zagotovo dodala prelom strani med stranmi.
Zaključek: Na ta način lahko pomagamo številnim uporabnikom Microsoft Officea, ki menijo, da je pretvorba podatkov iz Excelove datoteke v besedo nekoliko zapletena ali nemogoča. Zgornja koda je pokazala, kako enostavno je mogoče kopirati in prilepiti podatke v besedilno datoteko brez težav z več listov Excel v datoteko word doc.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte