Jei jums reikia nukopijuoti ir įklijuoti duomenis iš kelių „Excel“ darbalapių į „MS Word“, turėtumėte perskaityti šį straipsnį. „Excel“ nėra tokios funkcijos, kuri leistų konvertuoti „Excel“ darbaknygės duomenis į „Word“ failą. „Word“ programa negali tiesiogiai atidaryti „Excel“ failų. Tačiau „Excel“ duomenis galima nukopijuoti ir įklijuoti į „Word“, tada išsaugoti kaip „Word“ dokumentą.
Mes visi rankiniu būdu perkeliame duomenis iš „Excel“ į „Word“, o tai kartais tampa nuobodu, kai reikia atlikti tuos pačius veiksmus per daug kartų per dieną; norėdami išvengti rankinių veiksmų, mes parašysime VBA kodą, kad atliktume visus veiksmus.
Šiame straipsnyje mes sutelksime dėmesį į duomenų perkėlimą iš „Excel“ į „Word“ dokumentą. Mes automatizuosime visą procedūrą per VBA kodą. Naudodami makro kodą, galite vienu metu tiesiog nukopijuoti duomenis į vieną darbalapį, tada „Word“ programa bus paleista automatiškai, o VBA kodas naudos įklijavimo komandą, kad įterptų duomenis į doc failą.
Norėdami gauti kodą; Norėdami paleisti VB redaktorių, turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Yra svarbus žingsnis, kurio neturėtumėte praleisti
- Spustelėkite Įrankiai, kad pasirinktumėte nuorodą
- Slinkite žemyn, kol rasite „Microsoft Word 15.0 Object Library“
- Būtinai pažymėkite langelį; žiūrėkite žemiau esančiame paveikslėlyje
- Nukopijuokite žemiau esantį kodą į standartinį modulį
Sub CopyWorksheetsToWord () Dim wdApp Kaip Word.Application, wdDoc Kaip Word.Document, ws Kaip darbalapio Application.ScreenUpdating = False Application.StatusBar = "Kuriamas naujas dokumentas …" Nustatykite wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add Už kiekvieną ws ActiveWorkbook.Worksheets Application.StatusBar = "Duomenų kopijavimas iš" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Pa bekezdės (wdDoc.Pa37s.Count). .Count) .Range.Paste Application. Skaičiuoti.. Range. ActivePane.View.Type = wdNormalView Else .View.Type = wdNormalView Pabaiga Jei pabaiga su rinkiniu wdDoc = Nieko wdApp.Visible = Tikras rinkinys wdApp = Nieko taikymo. StatusBar = False End Sub
Norėdami išbandyti kodą, įdėkime 2 lapus ir pridėkime atsitiktinius skaičius. Žemiau yra abiejų darbalapių momentinė nuotrauka:
1 lapas:-
2 lapas:-
- Nustatę duomenis darbalapiuose; galime paleisti makrokomandą
- „Word“ programa bus nedelsiant paleista ir duomenys bus nukopijuoti iš visų darbalapių į „Word“; žiūrėkite žemiau pateiktą momentinę nuotrauką
Jei manote, kad duomenų kopijavimas yra viena užduotis, tačiau tarp kiekvieno darbalapio duomenų turi būti puslapio pertrauka, kad kiekvienas galėtų lengvai atskirti duomenis iš kiekvieno darbalapio.
Aukščiau pateikti duomenys bus nukopijuoti iš vieno lapo, o tada VBA kodas būtinai pridės puslapio pertrauką tarp puslapių.
Išvada: Tokiu būdu galime padėti daugeliui „Microsoft Office“ vartotojų, kurie mano, kad duomenų konvertavimas iš „Excel“ failo į „Word“ yra šiek tiek sudėtingas arba neįmanomas. Aukščiau pateiktas kodas parodė, kaip lengvai galima nukopijuoti ir įklijuoti duomenis į „Word“ failą be jokių rūpesčių iš kelių „Excel“ lapų į „Word“ doc failą.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el