Norėdami nukopijuoti duomenis iš „Excel“ į „Word“ failą naudodami VBA, turime pasiekti „Word“ programą naudodami „Excel VBA“. Šioje pamokoje sužinosime, kaip atidaryti „Word“ programą, pridėti dokumentą ir į ją įklijuoti „Excel“ duomenis.
Šiame straipsnyje mes naudosime ankstyvojo įrišimo metodą, kad sukurtume žodžio taikymo objektą, o ne vėlyvą įrišimą. Čia galite išsamiai apie tai perskaityti.
„Excel“ duomenų kopijavimo į „Word“ failą procesas naudojant „Excel VBA“
Norėdami nukopijuoti duomenis iš „Excel“ į „Word“ failą naudodami VBA, pirmiausia turime atidaryti „Word“ programą. Tada pridėkite dokumentą (jei norite naujo dokumento). Nukopijuokite duomenis iš „Excel“ failo. Pasirinkite dokumento pastraipą ir įklijuokite ją. Galiausiai išsaugokite ir uždarykite dokumentą. Kiekvieną iš šių veiksmų galima lengvai atlikti naudojant „Excel“. Jums nereikės bendrauti su „Word“ dokumentu.
Pradėkime nuo pavyzdžio, nesigilindami į teoriją. Kadangi Geležinis žmogus sakė: „Kartais reikia bėgti, kol negali vaikščioti“.
Pavyzdys: įklijuokite „Excel“ duomenis į „Word“ naudodami VBA
Žemiau pateiktas kodas yra pavyzdys, kaip galite nukopijuoti tam tikrą „Excel“ diapazoną ir įklijuoti jį į naują „Word“ dokumentą ir išsaugoti diske, kad galėtumėte naudoti vėliau
„VBA kodas, skirtas rašyti, kad duomenys būtų kopijuojami iš„ Excel “į dokumentą„ ExcelToWord (“) „Word.Application“ „Padaryti„ Word App “matomą wordApp.Visible = True“ Naujo dokumento kūrimas Nustatykite mydoc = wordApp.Documents.Add () “kopijuodami turinį iš„ Excel “lapo„ ThisWorkbook.Worksheets “(„ sheet1 “). Diapazonas („ A1: g20 “ "). Nukopijuokite" Įklijavimą į dokumentą mydoc.Punktai (1). Range.PasteExcelTable _ LinkedToExcel: = Netiesa, _ WordFormatting: = Netiesa, RTF: = Netiesa "išsaugojant dokumentą mydoc.SaveAs2" MyDoc "'uždaro dokumentą mydoc .Uždaryti 'Ištuštinti iškarpinę CutCopyMode = False End Sub
Kodekso paaiškinimas:
Na, aš paaiškinu kiekvieną kodo žingsnį naudodamas komentarus, bet pakalbėkime apie eilutes, kurias naudojome šiame poskyryje.
„Sukurti„ Word “programos ir dokumento tipo kintamieji
„Dim wordApp“ kaip „Word.Application“
Dim mydoc As Word. Dokumentas
Čia mes deklaravome du reikalingų tipų kintamuosius. Mes galime tai padaryti, nes jau pridėjome nuorodą į žodį programa. Tai galite padaryti, eidami į meniu esančius įrankius. Raskite nuorodų parinktį ir tada ieškokite žodžio nuoroda.
„Naujo žodžio egzemplioriaus kūrimas tik tuo atveju, jei nėra kitų egzempliorių
Nustatyti wordApp = Naujas Word.Application
„Žodžių programos matomumas“
wordApp.Visible = Tiesa
„Naujo dokumento kūrimas
Nustatykite mydoc = wordApp.Documents.Add ()
Pirmoje eilutėje „WordApp“ kintamąjį ketiname naudoti „Word.App“ tipo objektu, naudojant naują raktinį žodį. Tai atvers „Word“ programą.
Antroje eilutėje mes matome žodį taikymas, kad galėtume su juo dirbti.
Kitoje eilutėje į Word programą įtraukiame naują dokumentą naudodami funkciją Word.Documents.Add (). Tai saugoma kintamajame mydoc.
„Turinio kopijavimas iš„ Excel “lapo
ThisWorkbook.Worksheets ("sheet1"). Diapazonas ("A1: G20"). Kopija
Čia mes tiesiog nukopijuojame diapazoną iš „Excel“. Turbūt tai padarėte anksčiau. Jis saugomas iškarpinėje.
„Įklijavimas ant dokumento
mydoc. 1 pastraipos. Range.PasteExcelTable _
LinkedToExcel: = Netiesa, _
„WordFormatting“: = klaidinga,
RTF: = klaidinga
Norėdami įklijuoti duomenis iš mainų srities, naudojame pastraipos PasteExcelTable metodą. Range mydoc klasė.
“išsaugoti dokumentą
mydoc.SaveAs2 "MyDoc"
“uždaryti dokumentą
mydoc.Uždaryti
„Ištuštinti iškarpinę
CutCopyMode = Netiesa
Išsaugome dokumentą pavadinimu „MyDoc“. Tada mes uždarome dokumentą naudodami funkciją Uždaryti. Galiausiai išleidžiame iškarpinę, kad ją galėtų naudoti kiti.
Taigi taip, vaikinai, taip galite sukurti naują „Word“ dokumentą ir nukopijuoti „Excel“ duomenis į jį naudodami VBA. Nesileidau į detales, nes tai straipsnį paverstų varginančiu ilgu. Tai buvo tik norint sužinoti, kaip galite įklijuoti į „Word“ dokumentą naudodami „Excel“. Tikiuosi, tai padėjo jums suprasti procesą. Jei turite klausimų apie šį straipsnį, galite susisiekti su manimi per žemiau pateiktą komentarų skiltį.
Darbo su „Excel VBA UserForms“ pradžia| Aš paaiškinsiu, kaip sukurti formą „Excel“, kaip naudoti VBA įrankių rinkinį, kaip tvarkyti vartotojo įvestis ir galiausiai, kaip išsaugoti vartotojo įvestis. Mes pereisime šias temas naudodami vieną pavyzdį ir žingsnis po žingsnio vadovą.
VBA kintamieji „Excel“| VBA reiškia „Visual Basic for Applications“. Tai programavimo kalba iš „Microsoft“. Jis naudojamas su „Microsoft Office“ programomis, tokiomis kaip „MSExcel“, „MS-Word“ ir „MS-Access“, tuo tarpu VBA kintamieji yra konkretūs raktiniai žodžiai.
„Excel VBA“ kintamoji apimtis| Visose programavimo kalbose mes turime kintamosios prieigos specifikatorius, kurie apibrėžia, iš kur galima pasiekti apibrėžtą kintamąjį. „Excel VBA“ nėra išimtis. VBA taip pat turi apimties specifikacijas.
ByRef ir ByVal argumentai | Kai argumentas perduodamas kaip „ByRef“ argumentas kitam padaliniui ar funkcijai, siunčiama tikrojo kintamojo nuoroda. Bet kokie kintamojo kopijos pakeitimai atsispindės pradiniame argumente.
Ištrinkite lapus be patvirtinimo raginimų naudodami „Microsoft Excel“ VBA | Kadangi trinate lapus naudodami VBA, žinote, ką darote. Norite pasakyti „Excel“ nerodyti šio įspėjimo ir ištrinti prakeiktą lapą.
Pridėkite ir išsaugokite naują darbaknygę naudodami „Microsoft Excel 2016“ VBA| Šiame kode pirmiausia sukūrėme nuorodą į darbaknygės objektą. Ir tada mes jį inicijavome naudodami naują darbo knygos objektą. Šio metodo pranašumas yra tas, kad galite lengvai atlikti operacijas su šia nauja darbaknyge. Kaip išsaugoti, uždaryti, ištrinti ir pan
Rodyti pranešimą „Excel“ VBA būsenos juostoje| „Excel“ būsenos juosta gali būti naudojama kaip kodo monitorius. Kai jūsų VBA kodas yra ilgas ir atliekate kelias užduotis naudodami VBA, dažnai išjungiate ekrano atnaujinimą, kad nematytumėte to ekrano mirgėjimo.
Išjunkite įspėjamuosius pranešimus naudodami VBA programoje „Microsoft Excel 2016“| Šis kodas ne tik išjungia VBA įspėjimus, bet ir padidina kodo laiko efektyvumą. Pažiūrėkime, kaip.
Populiarūs straipsniai:
50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų leis dar greičiau dirbti naudojant „Excel“.
„VLOOKUP“ funkcija „Excel“ | Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.
COUNTIF „Excel 2016“ | Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečias vertes, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.
Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.
