Šajā rakstā ir parādīts, kā varat konvertēt teksta dokumentus uz Excel izklājlapām, saglabājot to pašu formatējumu. Pieņemsim, ka jums ir jāformātē vai jāsašķiro dati, kas ir teksta dokumentā. Acīmredzot Excel ir labāka izvēle, lai to izdarītu. Par laimi, jums nav vēlreiz jāievada dati jaunajā Excel failā. Jūs varat vienkārši konvertēt teksta dokumentu uz Excel izklājlapu, saglabājotformatēšana. Nākamajā attēlā ir uzsvērts šī raksta mērķis. Ātri aplūkojiet to, lai uzzinātu, kā to viegli izdarīt.

Lejupielādēt Practice Workbook

Jūs varat lejupielādēt prakses darba burtnīcu, izmantojot zemāk redzamo lejupielādes pogu.

Word uz Excel konvertēšana.xlsm

2 veidi, kā konvertēt Word uz Excel ar to pašu formatējumu

Iedomājieties, ka jums ir šāds Word dokuments. Tagad vēlaties to pārvērst Excel izklājlapā. Tad izpildiet tālāk aprakstītās metodes.

1. Konvertējiet Word uz Excel, izmantojot Copy-Paste

Varat vienkārši nokopēt datus no Word dokumenta un ielīmēt tos Excel lapā. Lai to izdarītu, izpildiet tālāk norādītās darbības.

📌 Soļi

• Vispirms dodieties uz Word failu. Pēc tam nospiediet CTRL+A lai atlasītu visu dokumentu. Varat arī atlasīt tikai noteiktu diapazonu, ja nepieciešams.
• Pēc tam nospiediet CTRL+C lai kopētu datus, kā parādīts turpmāk.

• Pēc tam dodieties uz Excel izklājlapu. Pēc tam atlasiet diapazona augšējo kreiso šūnu, kurā vēlaties iegūt datus.
• Tagad nospiediet CTRL+V lai ielīmētu datus. Varat arī noklikšķināt uz šūnas ar peles labo pogu. Pēc tam izvēlieties Saglabāt avota formatējumu (K) no Ielīmēt opcijas .
• Pēc tam iegūsiet šādu rezultātu.

Lasīt vairāk: Kā kopēt no Word uz Excel vairākās šūnās (3 veidi)

2. Konvertējiet Word uz Excel, izmantojot VBA

To pašu varat izdarīt, izmantojot Excel VBA. Lai to izdarītu, izpildiet tālāk norādītās darbības.

📌 Soļi

• Vispirms pievienojiet jaunu darblapu. Pēc tam saglabājiet darbgrāmatu kā darbgrāmata ar iespējotu makru .
• Pēc tam nospiediet ALT+F11 lai atvērtu VBA logu.
• Pēc tam atlasiet Ievietot>>> Modulis lai izveidotu jaunu moduli, kā parādīts attēlā zemāk.

• Pēc tam, izmantojot kopēšanas pogu, nokopējiet šādu kodu.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word fails(*.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 

• Pēc tam ielīmējiet nokopēto kodu moduļa logā, kā parādīts tālāk.

• Tagad nospiediet F5 lai palaistu kodu. To var izdarīt arī no Palaist
• Pēc tam jums tiks lūgts izvēlēties vārdu failu, kuru vēlaties konvertēt.
• Tagad pārlūkojiet vēlamo Word dokumenta atrašanās vietu. Pēc tam atlasiet failu un noklikšķiniet uz Atvērt .

• Visbeidzot, iegūsiet līdzīgu rezultātu kā iepriekšējās metodes gadījumā.

🔎 Kā darbojas kods?

Sub WordToExcelWithFormatting()

Dim Dokuments, Word kā objekts

Dim Failu kā variantu

Dim PG, diapazons

Nepieciešamo mainīgo deklarēšana.

Application.ScreenUpdating = False

Failu = Application.GetOpenFilename _

("Word fails(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Lūdzu, izvēlieties")

Ja fails = False, tad Exit Sub

Iestatīt Word = Izveidot objektu("Word.Application")

Tas nosaka Vārds mainīgo kā word dokumentu.

Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)

Tas piešķir Dokuments mainīgo uz lietotāja norādīto objektu vai failu.

Dokuments.Aktivizēt

PG = Document.Paragraphs.Count

Šī koda rinda piešķir PG mainīgais lielums, lai norādītu rindkopu skaitu word dokumentā.

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End)

Range.Select

Kļūdas gadījumā atsākt Nākamais

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Dokuments.Aizvērt

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Lasīt vairāk: Kā konvertēt Word tabulu uz Excel izklājlapu (6 metodes)

Lietas, kas jāatceras

• Varat arī saglabāt teksta failu kā PDF failu. Pēc tam, izmantojot PDF redaktoru, pārveidojiet to par Excel izklājlapu.
• Neaizmirstiet saglabāt darbgrāmatu kā .xlsm Pretējā gadījumā kods tiks zaudēts.

Secinājums

Tagad jūs zināt, kā konvertēt teksta dokumentu uz Excel izklājlapu un saglabāt arī formatējumu. Lūdzu, informējiet mūs, vai šis raksts ir palīdzējis jums atrisināt jūsu problēmu. Jūs varat arī izmantot komentāru sadaļu zemāk, lai saņemtu papildu jautājumus vai ieteikumus. Apmeklējiet mūsu ExcelWIKI blogā, lai uzzinātu vairāk par Excel. Palieciet kopā ar mums un turpiniet mācīties.