Pentru a copia date din Excel într-un fișier Word utilizând VBA, trebuie să accesăm aplicația Word utilizând Excel VBA. În acest tutorial vom învăța cum să deschidem o aplicație Word, să adăugăm un document și să copiăm și să lipim date de pe Excel.
În acest articol, vom folosi metoda Early Binding pentru a crea un obiect al aplicației de cuvinte în loc să folosim legarea tardivă. Puteți citi despre aceasta aici în detaliu.
Procesul de copiere a datelor Excel într-un fișier Word utilizând Excel VBA
Pentru a copia date din Excel într-un fișier Word utilizând VBA, trebuie mai întâi să deschidem aplicația Word desigur. Apoi adăugați un document (dacă doriți un document nou). Copiați datele din fișierul Excel. Selectați paragraful de pe document și lipiți-l pe acesta. Salvați și închideți definitiv documentul. Fiecare dintre acești pași se poate face cu ușurință din Excel. Nu va trebui să interacționați cu Documentul Word.
Să începem cu un exemplu fără a intra mai departe în teorie. Pentru că Iron Man a spus: „Uneori trebuie să alergi înainte să poți merge pe jos”.
Exemplu: lipiți date Excel în Word utilizând VBA
Codul de mai jos este un exemplu al modului în care puteți copia o serie de Excel și lipiți-l într-un document Word nou și salvați-l pe unitate pentru a-l utiliza mai târziu
"Cod VBA pentru a scrie pentru a copia date din Excel într-un document Sub ExcelToWord ()" Utilizarea timpurie de legare Dim wordApp ca Word. Aplicație Dim mydoc ca Word.Document "Crearea unei noi instanțe de cuvânt numai dacă nu există alte instanțe Word.Application 'Efectuarea cuvântului App Visible wordApp.Visible = True' Crearea unui document nou Setați mydoc = wordApp.Documents.Add () 'copierea conținutului din foaia Excel ThisWorkbook.Worksheets ("sheet1"). Range ("A1: g20 ") .Copy 'Lipire pe document mydoc.Paragrafele (1) .Range.PasteExcelTable _ LinkedToExcel: = False, _ WordFormatting: = False, RTF: = False' salvarea documentului mydoc.SaveAs2" MyDoc "'închiderea documentului mydoc .Închideți „Golirea clipboardului CutCopyMode = False End Sub
Explicația Codului:
Ei bine, am explicat fiecare pas din cod în sine folosind comentarii, dar hai să vorbim despre liniile pe care le-am folosit în acest sub.
„S-au creat variabile de tip word și tip de document
Dim wordApp As Word.Application
Dim mydoc Ca Word.Document
Aici am declarat două variabile ale tipurilor necesare. Putem face acest lucru deoarece am adăugat deja referința la cuvântul aplicație. Puteți face acest lucru accesând instrumentele din meniu. Găsiți opțiunea referințe și apoi căutați cuvântul referință.
„Crearea unei noi instanțe de cuvânt numai dacă nu există alte instanțe
Setați wordApp = Word nou. Aplicație
„Vizibilizarea cuvântului App
wordApp.Visible = Adevărat
'Crearea unui nou document
Setați mydoc = wordApp.Documents.Add ()
În prima linie de mai sus, intenționăm variabila wordApp cu un obiect de tip Word.App folosind cuvântul cheie Nou. Aceasta va deschide aplicația Word.
În a doua linie facem vizibilă aplicația cuvânt, astfel încât să putem lucra cu ea.
În rândul următor, adăugăm un document nou la aplicația de cuvânt folosind funcția Word.Documents.Add (). Aceasta este stocată în variabila mydoc.
'copierea conținutului din foaia Excel
ThisWorkbook.Worksheets ("sheet1"). Range ("A1: G20"). Copiați
Aici copiem pur și simplu o gamă de la Excel. Trebuie să fi făcut-o înainte. Este stocat în clipboard.
- Lipirea documentului
mydoc.Paragraphs (1) .Range.PasteExcelTable _
LinkedToExcel: = False, _
WordFormatting: = False,
RTF: = Fals
Folosim metoda PasteExcelTable a clasei paragraph.Range din mydoc pentru a lipi date din clipboard.
'salvarea documentului
mydoc.SaveAs2 "MyDoc"
'închiderea documentului
mydoc.Închide
'Golirea clipboardului
CutCopyMode = False
Salvăm documentul cu numele MyDoc. Apoi închidem documentul folosind funcția Închidere. În cele din urmă eliberăm clipboard-ul pentru a fi folosit de alții.
Deci da, băieți, așa puteți crea un document Word nou și copiați datele Excel pe acesta utilizând VBA. Nu am intrat în detalii, deoarece ar face ca articolul să fie extrem de lung. Aceasta a fost doar pentru a afla cum puteți lipi într-un document Word prin Excel. Sper că v-a ajutat să înțelegeți procesul. Dacă aveți întrebări cu privire la acest articol, mă puteți contacta prin secțiunea de comentarii de mai jos.
Noțiuni introductive despre Excel VBA UserForms| Voi explica cum să creați un formular în Excel, cum să utilizați setul de instrumente VBA, cum să gestionați intrările utilizatorului și, în cele din urmă, cum să stocați intrările utilizatorului. Vom trece prin aceste subiecte folosind un exemplu și un ghid pas cu pas.
Variabile VBA în Excel| VBA înseamnă Visual Basic pentru aplicații. Este un limbaj de programare de la Microsoft. Este utilizat cu aplicații Microsoft Office, cum ar fi MSExcel, MS-Word și MS-Access, în timp ce variabilele VBA sunt cuvinte cheie specifice.
Domeniul de aplicare variabil VBA Excel| În toate limbajele de programare, avem specificatori de acces variabil care definesc de unde poate fi accesată o variabilă definită. Excel VBA nu este o excepție. Și VBA are specificatori de domeniu.
Argumente ByRef și ByVal | Când un argument este transmis ca argument ByRef către un sub sau funcție diferit, este trimisă referința variabilei reale. Orice modificare adusă copiei variabilei se va reflecta în argumentul original.
Ștergeți foile fără solicitări de confirmare folosind VBA în Microsoft Excel | Deoarece ștergeți foi folosind VBA, știți ce faceți. Ați dori să spuneți Excel să nu afișeze acest avertisment și să șteargă afurisita de foaie.
Adăugați și salvați un registru de lucru nou folosind VBA în Microsoft Excel 2016| În acest cod, am creat mai întâi o referință la un obiect de registru de lucru. Și apoi l-am inițializat cu un nou obiect de registru de lucru. Avantajul acestei abordări este că puteți face operațiuni cu ușurință pe acest nou registru de lucru. Cum ar fi salvarea, închiderea, ștergerea etc.
Afișați un mesaj pe bara de stare Excel VBA| Bara de stare în excel poate fi utilizată ca monitor de cod. Când codul dvs. VBA este lung și faceți mai multe sarcini folosind VBA, dezactivați adesea actualizarea ecranului, astfel încât să nu vedeți ecranul care pâlpâie.
Dezactivați mesajele de avertizare folosind VBA în Microsoft Excel 2016| Acest cod nu numai că dezactivează alertele VBA, ci și crește eficiența în timp a codului. Să vedem cum.
Articole populare:
50 de comenzi rapide Excel pentru a vă crește productivitatea | Deveniți mai rapid la sarcina dvs. Aceste 50 de comenzi rapide vă vor face să lucrați și mai rapid pe Excel.
Funcția VLOOKUP în Excel | Aceasta este una dintre cele mai utilizate și populare funcții ale Excel, care este utilizată pentru a căuta valoarea din diferite intervale și foi.
COUNTIF în Excel 2016 | Numărați valorile cu condiții folosind această funcție uimitoare. Nu trebuie să vă filtrați datele pentru a număra anumite valori. Funcția Countif este esențială pentru a vă pregăti tabloul de bord.
Cum se utilizează funcția SUMIF în Excel | Aceasta este o altă funcție esențială a tabloului de bord. Acest lucru vă ajută să rezumați valori în condiții specifice.
