Копирайте информация за работния лист в Word, използвайки VBA в Microsoft Excel

Ако трябва да копирате и поставите данни от множество работни листове на Excel в MS Word, тогава трябва да прочетете тази статия. В excel няма такава функция, която да ви позволи да конвертирате данните от работната книга на excel в word файл. Приложението Word не може да отваря директно Excel файлове. Данните от Excel обаче могат да бъдат копирани и поставени в word и след това запазени като word документ.
Всички ние прехвърляме данни от Excel в дума ръчно, което понякога става досадно, когато става въпрос за извършване на същите стъпки твърде много пъти на ден; за да избегнем ръчните стъпки, ще напишем VBA код, за да извършим всички стъпки.

В тази статия ще се съсредоточим върху преместването на данни от Excel в word документ. Ще автоматизираме цялата процедура чрез VBA код. С макрокода можете просто да копирате данните в един работен лист едновременно и след това приложението Word ще се стартира автоматично и кодът VBA ще използва командата за поставяне, за да вмъкне данните в doc файл.

За да получите кода; трябва да следваме стъпките по -долу, за да стартираме VB редактор:

Кликнете върху раздела Разработчик
От групата Кодове изберете Visual Basic

Има важна стъпка, която не трябва да пропускате
Щракнете върху Инструменти, за да изберете Препратки
Превъртете надолу, докато намерите „Microsoft Word 15.0 Object Library“
Уверете се, че сте поставили отметка в квадратчето; вижте изображението по -долу

Копирайте кода по -долу в стандартния модул

Sub CopyWorksheetsToWord () Затъмнете wdApp като Word.Application, wdDoc като Word.Document, ws като работен лист Application.ScreenUpdating = False Application.StatusBar = "Създаване на нов документ …" Задайте wdApp = Нов Word.Application Set wdDoc = wdApp.Documents За всеки ws в ActiveWorkbook.Worksheets Application.StatusBar = "Копиране на данни от" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter wdDoc.Paragraphs (wdDo. .Count) .Range.Paste Application.CutCopyMode = False wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter If Not ws.Name = Работни листове (Worksheets.Count) .Name Then With wdDoc.Paragraphs (wdDo Count) .Range .InsertParagraphBefore .Collapse Direction: = wdCollapseEnd .InsertBreak Type: = wdPageBreak End With End If Next ws Set ws = Nothing Application.StatusBar = "Почистване …" С wdApp.ActiveWindow If .View.SplitSpecial = wdPa. ActivePane.View.Type = wdNormalView Иначе .View.Type = wdNormalView Край, ако край с набор wdDoc = Нищо wdApp.Visible = Истинско задаване wdApp = Нищо Application.StatusBar = False End Sub

За да тестваме кода, нека вмъкнем 2 листа и добавим случайни числа. Следва моментната снимка на двата работни листа:

1 -ви лист:-

2 -ри лист:-

След настройване на данните в работни листове; можем да стартираме макроса
Приложението Word ще бъде стартирано незабавно и данните ще бъдат копирани от всички работни листове в word; вижте моментната снимка по -долу

Ако смятате, че копирането на данните е една задача, но трябва да има прекъсване на страницата между данните на всеки работен лист, така че всеки да може лесно да направи разликата между данните от всеки работен лист.

Горепосочените данни ще бъдат копирани от един лист, след което кодът VBA ще се погрижи да добави прекъсване на страницата между страниците.

Заключение: По този начин можем да помогнем на много потребители на Microsoft Office, които смятат, че преобразуването на данни от excel файл в word е малко сложно или невъзможно. Горният код демонстрира колко лесно човек може да копира и постави данни в word файл без никакъв шум от няколко Excel листа в word doc файл.