Lai kopētu datus no Excel uz Word failu, izmantojot VBA, mums ir jāpiekļūst Word lietojumprogrammai, izmantojot Excel VBA. Šajā apmācībā mēs uzzināsim, kā atvērt Word lietojumprogrammu, pievienot dokumentu un tajā kopēt un ielīmēt datus no Excel.
Šajā rakstā mēs izmantosim agrīnās iesiešanas metodi, lai izveidotu vārdu lietojuma objektu, nevis izmantosim vēlo iesiešanu. Par to varat detalizēti izlasīt šeit.
Excel datu kopēšanas process Word failā, izmantojot Excel VBA
Lai kopētu datus no Excel uz Word failu, izmantojot VBA, mums, protams, vispirms ir jāatver Word lietojumprogramma. Pēc tam pievienojiet tam dokumentu (ja vēlaties jaunu dokumentu). Kopējiet datus no Excel faila. Atlasiet dokumenta rindkopu un ielīmējiet to. Visbeidzot saglabājiet un aizveriet dokumentu. Katru no šīm darbībām var viegli veikt, izmantojot programmu Excel. Jums nevajadzēs mijiedarboties ar Word dokumentu.
Sāksim ar piemēru, neiedziļinoties teorijā. Jo Dzelzs vīrs teica: "Dažreiz tev jāskrien, pirms vari staigāt."
Piemērs: ielīmējiet Excel datus Word, izmantojot VBA
Zemāk esošais kods ir piemērs tam, kā varat kopēt kādu Excel diapazonu un ielīmēt to jaunā Word dokumentā un saglabāt to diskā, lai to izmantotu vēlāk
'VBA kods, lai rakstītu, lai kopētu datus no Excel uz dokumentu apakškopā ExcelToWord ()', izmantojot agrīnu iesiešanu Dim wordApp kā Word. Lietojumprogramma Dim mydoc kā Word.Document 'Jauna vārda gadījuma izveide tikai tad, ja nav citu gadījumu Iestatīt wordApp = New Word.Application 'Word lietotnes padarīšana redzamam wordApp.Visible = True' Jauna dokumenta izveide Iestatiet mydoc = wordApp.Documents.Add () 'satura kopēšana no Excel lapas ThisWorkbook.Worksheets ("sheet1"). Diapazons ("A1: g20 "). Kopējiet 'ielīmēšanu dokumentā mydoc.Punkti (1) .Range.PasteExcelTable _ LinkedToExcel: = False, _ WordFormatting: = False, RTF: = False', saglabājot dokumentu mydoc.SaveAs2" MyDoc "', aizverot dokumentu mydoc Aizveriet 'Starpliktuves iztukšošana CutCopyMode = False End Sub
Kodeksa skaidrojums:
Nu, es esmu izskaidrojis katru paša koda darbību, izmantojot komentārus, bet pieņemsim dažus vārdus par rindām, kuras esam izmantojuši šajā apakšpozīcijā.
'Izveidoti Word lietojumprogrammas un dokumenta tipa mainīgie
Aptumšot vārduApp kā Word.Application
Dim mydoc kā Word.Document
Šeit mēs esam deklarējuši divus nepieciešamo veidu mainīgos. Mēs to varam izdarīt, jo mēs jau esam pievienojuši atsauci vārdam lietojumprogramma. To var izdarīt, izvēlnē atverot rīkus. Atrodiet atsauces opciju un pēc tam meklējiet vārdu atsauce.
'Jauna vārda gadījuma izveide tikai tad, ja nav citu gadījumu
Iestatīt wordApp = New Word.Application
“Padarīt vārdu lietotni redzamu
wordApp.Visible = True
'Jauna dokumenta izveide
Iestatīt mydoc = wordApp.Documents.Add ()
Pirmajā rindiņā mēs mainām mainīgo wordApp ar objektu, kura tips ir Word.App, izmantojot jaunu atslēgvārdu. Tas atvērs Word lietojumprogrammu.
Otrajā rindā mēs padarām vārdu lietojumprogrammu redzamu, lai mēs varētu ar to strādāt.
Nākamajā rindā mēs pievienojam jaunu dokumentu vārdu lietojumprogrammai, izmantojot funkciju Word.Documents.Add (). Tas tiek saglabāts mainīgajā mydoc.
'satura kopēšana no Excel lapas
ThisWorkbook.Worksheets ("sheet1"). Diapazons ("A1: G20"). Kopēt
Šeit mēs vienkārši kopējam diapazonu no Excel. Jūs to noteikti esat izdarījis iepriekš. Tas tiek saglabāts starpliktuvē.
"Līmēšana uz dokumenta
mydoc. 1. punkts. Range.PasteExcelTable _
LinkedToExcel: = Nepareizi, _
WordFormatting: = False,
RTF: = nepatiesa
Mēs izmantojam rindkopas PasteExcelTable metodi. Range mydoc klase, lai ielīmētu datus no starpliktuves.
'dokumenta saglabāšana
mydoc.SaveAs2 "MyDoc"
'aizverot dokumentu
mydoc. Aizvērt
'Starpliktuves iztukšošana
CutCopyMode = Nepareizs
Mēs saglabājam dokumentu ar nosaukumu MyDoc. Pēc tam mēs aizveram dokumentu, izmantojot funkciju Aizvērt. Visbeidzot, mēs atbrīvojam starpliktuvi, lai to varētu izmantot citi.
Jā, puiši, šādi jūs varat izveidot jaunu Word dokumentu un kopēt tajā Excel datus, izmantojot VBA. Es neesmu iedziļinājies detaļās, jo tas padarītu rakstu nogurdinoši garu. Tas bija tikai, lai uzzinātu, kā jūs varat ielīmēt Word dokumentā, izmantojot Excel. Es ceru, ka tas palīdzēja jums saprast procesu. Ja jums ir kādi jautājumi par šo rakstu, varat sazināties ar mani, izmantojot zemāk esošo komentāru sadaļu.
Darba sākšana ar Excel VBA UserForms| Es paskaidrošu, kā izveidot veidlapu programmā Excel, kā izmantot VBA rīklodziņu, kā rīkoties ar lietotāja ievadi un visbeidzot, kā saglabāt lietotāja ievadīto informāciju. Mēs apskatīsim šīs tēmas, izmantojot vienu piemēru un soli pa solim.
VBA mainīgie programmā Excel| VBA apzīmē Visual Basic for Applications. Tā ir programmēšanas valoda no Microsoft. To izmanto ar Microsoft Office lietojumprogrammām, piemēram, MSExcel, MS-Word un MS-Access, turpretī VBA mainīgie ir specifiski atslēgvārdi.
Excel VBA mainīgā darbības joma| Visās programmēšanas valodās mums ir mainīgas piekļuves specifikatori, kas nosaka, no kurienes var piekļūt definētajam mainīgajam. Excel VBA nav izņēmums. Arī VBA ir darbības jomas specifikatori.
ByRef un ByVal argumenti | Kad arguments tiek nodots kā ByRef arguments citai apakšfunkcijai vai funkcijai, tiek nosūtīta faktiskā mainīgā atsauce. Visas izmaiņas, kas veiktas mainīgā kopijā, tiks atspoguļotas sākotnējā argumentā.
Izdzēsiet lapas bez apstiprinājuma uzvednēm, izmantojot Microsoft Excel VBA | Tā kā jūs dzēšat lapas, izmantojot VBA, jūs zināt, ko darāt. Jūs vēlaties pateikt programmai Excel nerādīt šo brīdinājumu un izdzēst sasodīto lapu.
Pievienojiet un saglabājiet jaunu darbgrāmatu, izmantojot VBA programmā Microsoft Excel 2016| Šajā kodā mēs vispirms izveidojām atsauci uz darbgrāmatas objektu. Un tad mēs to inicializējām ar jaunu darbgrāmatas objektu. Šīs pieejas priekšrocība ir tā, ka jūs varat viegli veikt darbības ar šo jauno darbgrāmatu. Piemēram, saglabāšana, aizvēršana, dzēšana utt
Parādiet ziņojumu Excel VBA statusa joslā| Excel statusa joslu var izmantot kā koda monitoru. Ja jūsu VBA kods ir garš un veicat vairākus uzdevumus, izmantojot VBA, jūs bieži atspējojat ekrāna atjaunināšanu, lai neredzētu ekrāna mirgošanu.
Izslēdziet brīdinājuma ziņojumus, izmantojot VBA programmā Microsoft Excel 2016| Šis kods ne tikai atspējo VBA brīdinājumus, bet arī palielina koda laika efektivitāti. Redzēsim, kā.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk programmā Excel.
Funkcija VLOOKUP programmā Excel | Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
COUNTIF programmā Excel 2016 | Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai saskaitītu noteiktas vērtības. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.