Ja jums ir nepieciešams kopēt un ielīmēt datus no vairākām Excel darblapām MS Word, jums vajadzētu izlasīt šo rakstu. Programmā Excel nav tādas funkcijas, kas ļautu pārvērst datus no Excel darbgrāmatas par Word failu. Word lietojumprogramma nevar tieši atvērt Excel failus. Tomēr Excel datus var kopēt un ielīmēt Word un pēc tam saglabāt kā Word dokumentu.
Mēs visi pārsūtām datus no Excel uz vārdu manuāli, kas dažkārt kļūst apnicīgi, kad vienas un tās pašas darbības tiek veiktas pārāk daudzas reizes dienā; lai izvairītos no manuālajām darbībām, mēs uzrakstīsim VBA kodu, lai veiktu visas darbības.
Šajā rakstā mēs koncentrēsimies uz datu pārvietošanu no Excel uz Word dokumentu. Mēs automatizēsim visu procedūru, izmantojot VBA kodu. Izmantojot makro kodu, jūs varat vienkārši kopēt datus vienā darblapā vienlaikus, un tad Word lietojumprogramma tiks automātiski palaista, un VBA kods izmantos komandu ielīmēt, lai ievietotu datus doc failā.
Lai iegūtu kodu; mums ir jāveic šādas darbības, lai palaistu VB redaktoru:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Ir svarīgs solis, kuru nedrīkst palaist garām
- Noklikšķiniet uz Rīki, lai atlasītu atsauces
- Ritiniet uz leju, līdz atrodat “Microsoft Word 15.0 objektu bibliotēka”
- Noteikti atzīmējiet izvēles rūtiņu; skatiet zemāk esošo attēlu
- Nokopējiet zemāk esošo kodu standarta modulī
Sub CopyWorksheetsToWord () Dim wdApp Kā Word.Application, wdDoc Kā Word.Document, ws Kā darblapas Application.ScreenUpdating = False Application.StatusBar = "Notiek jauna dokumenta izveide …" Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add Par katru ws ActiveWorkbook.Worksheets Application.StatusBar = "Datu kopēšana no" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Pa8.s (wdDoc.Pa37s.Count). .Count) .Range.Paste Application.CutCopyMode = False wdDoc.Pa8.s (wdDoc.Pa8.s.Count) .Range.InsertPa paragraphAfter Ja nav ws.Name = Darblapas (Worksheets.Count) .Nosaukums Pēc tam ar wdDoc.Parags (wdsDoc.Pa. Skaits) .Range .InsertPa bekezdésBefore .Collapse Direction: = wdCollapseEnd .InsertBreak Type: = wdPageBreak End With End If Next ws Set ws = Nothing Application.StatusBar = "Cleaning up …" Ar wdApp.ActiveWindow If .View.SplitSpecial = wdPaneN ActivePane.View.Type = wdNormalView Else .View.Type = wdNormalView Beigas Ja beidzas ar kopu wdDoc = Nekas wdApp.Visible = Patiesa kopa wdApp = Nekas Application.StatusBar = False End Sub
Lai pārbaudītu kodu, ievietojiet 2 lapas un pievienojiet nejaušus skaitļus. Tālāk ir redzams abu darblapu momentuzņēmums:
1. lapa:-
2. lapa:-
- Pēc datu iestatīšanas darblapās; mēs varam palaist makro
- Word lietojumprogramma tiks nekavējoties palaista, un dati no visām darblapām tiks kopēti Word; skatiet zemāk momentuzņēmumu
Ja domājat, ka datu kopēšana ir viens uzdevums, bet starp katras darblapas datiem ir jābūt lapas pārtraukumam, lai ikviens varētu viegli atšķirt datus no katras darblapas.
Iepriekš minētie dati tiks nokopēti no vienas lapas, un pēc tam VBA kods starp lapām noteikti pievienos lappuses pārtraukumu.
Secinājums: Tādā veidā mēs varam palīdzēt daudziem Microsoft Office lietotājiem, kuri uzskata, ka datu konvertēšana no Excel faila uz Word ir nedaudz sarežģīta vai neiespējama. Iepriekš minētais kods ir parādījis, cik viegli var kopēt un ielīmēt datus Word failā bez satraukuma no vairākām Excel lapām uz Word doc failu.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē