Съдържание
Тази статия показва как можете да конвертирате текстови документи в електронни таблици на Excel, но да запазите същото форматиране. Да предположим, че трябва да форматирате или сортирате данните си, които се намират в текстови документ. Очевидно Excel е по-добрият избор за това. За щастие не е необходимо да въвеждате данните отново в новия файл на Excel. Можете просто да конвертирате текстовия документ в електронна таблица на Excel, като запазитеформатиране. Следващата снимка подчертава целта на тази статия. Разгледайте я набързо, за да научите как да направите това лесно.
Изтегляне на работна тетрадка за практика
Можете да изтеглите работната тетрадка за упражнения от бутона за изтегляне по-долу.
Преобразуване на Word в Excel.xlsm
2 начина за конвертиране на Word в Excel със същото форматиране
Представете си, че имате следния документ на Word. Сега искате да го превърнете в електронна таблица на Excel. След това следвайте методите по-долу.
1. Конвертиране на Word в Excel с Copy-Paste
Можете просто да копирате данните от документа на Word и да ги поставите в листа на Excel. Следвайте стъпките по-долу, за да направите това.
📌 Стъпки
- Първо, отидете на файла с думи. След това натиснете CTRL+A за да изберете целия документ. Можете също така да изберете определен диапазон само ако е необходимо.
- След това натиснете CTRL+C за да копирате данните, както е показано по-долу.
- След това отидете в електронната таблица на Excel. След това изберете горната лява клетка на диапазона, в който искате да получите данните.
- Сега натиснете CTRL+V алтернативно можете да щракнете с десния бутон на мишката върху тази клетка. След това изберете Запазване на форматирането на източника (K) от Опции за вмъкване .
- След това ще получите следния резултат.
Прочетете още: Как да копирате от Word в Excel в няколко клетки (3 начина)
2. Конвертиране на Word в Excel с VBA
Можете да направите същото с Excel VBA. Следвайте стъпките по-долу, за да го направите.
📌 Стъпки
- Първо добавете нов работен лист. След това запишете работната книга като работна книга с активирани макроси .
- След това натиснете ALT+F11 за да отворите прозореца VBA.
- След това изберете Вмъкване>> Модул за да създадете нов модул, както е показано на снимката по-долу.
- След това копирайте следния код, като използвате бутона за копиране.
Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub - След това поставете копирания код в прозореца на модула, както е показано по-долу.
- Сега натиснете F5 за да стартирате кода. Можете да направите това и от Изпълнявайте
- След това ще бъдете помолени да изберете word файла, който искате да конвертирате.
- Сега отидете до местоположението на желания от вас документ на Word. След това изберете файла и щракнете върху Отворете .
- Накрая ще получите подобен резултат като при предишния метод.
🔎 Как работи кодът?
Sub WordToExcelWithFormatting()
Dim Document, Word като обект
Dim Файл като вариант
Dim PG, обхват
Деклариране на необходимите променливи.
Application.ScreenUpdating = False
Файл = Application.GetOpenFilename _
("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Моля, изберете")
If File = False Then Exit Sub
Задайте Word = CreateObject("Word.Application")
Това задава Word променлива като документ на Word.
Set Document = Word.Documents.Open(Име на файла:=File, ReadOnly:=True)
Това присвоява Документ към обекта или файла, посочен от потребителя.
Document.Activate
PG = Document.Paragraphs.Count
Този ред код присвоява PG променлива за броя на параграфите в документа на Word
Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End)
Range.Select
При грешка продължете Next
Word.Selection.Copy
ActiveSheet.Range("B2").Select
ActiveSheet.Paste
Document.Close
Word.Quit (wdDoNotSaveChanges)
Application.ScreenUpdating = True
Край на Sub
Прочетете още: Как да конвертирате таблица на Word в електронна таблица на Excel (6 метода)
Нещата, които трябва да запомните
- Можете също така да запишете текстовия файл като PDF файл. След това използвайте редактора на PDF файлове, за да го превърнете в електронна таблица на Excel.
- Не забравяйте да запазите работната книга като .xlsm В противен случай ще загубите кода.
Заключение
Сега вече знаете как да конвертирате документ на Word в електронна таблица на Excel и да запазите форматирането и. Моля, уведомете ни дали тази статия ви е помогнала да разрешите проблема си. Можете също така да използвате раздела за коментари по-долу за допълнителни запитвания или предложения. Посетете нашия ExcelWIKI Останете с нас и продължавайте да учите.
