Kuidas konverteerida Word Exceli, kuid säilitada vormindamine (2 lihtsat meetodit)

Hugh West

16-10-2023 Exceli põhitõed
  • Jaga Seda
Hugh West

See artikkel illustreerib, kuidas saab Word-dokumente konverteerida Exceli tabelisse, kuid säilitada sama vorming. Oletame, et teil on vaja vormindada või sorteerida oma andmeid, mis on Word-dokumendis. Ilmselt on selleks parem valik Excel. Õnneks ei pea te uues Exceli-failis andmeid uuesti sisestama. Te saate lihtsalt konverteerida Word-dokumendi Exceli tabelisse, säilitades samal ajal omavormistamine. Järgnev pilt toob esile selle artikli eesmärgi. Vaadake see kiiresti läbi, et õppida, kuidas seda hõlpsasti teha.

Lae alla praktiline töövihik

Praktilise töövihiku saate alla laadida allolevalt allalaadimisnupust.

Wordi konverteerimine Excelisse.xlsm

2 viisi Wordi konverteerimiseks Excelisse sama vormingu abil

Kujutage ette, et teil on järgmine Word-dokument. Nüüd soovite selle teisendada Exceli tabelisse. Järgige siis allpool toodud meetodeid.

1. Wordi konverteerimine Excelisse Copy-Paste abil

Te võite lihtsalt kopeerida andmed Wordi dokumendist ja kleepida need Exceli tabelisse. Järgige selleks alljärgnevaid samme.

📌 Sammud

  • Kõigepealt minge Wordi faili. Seejärel vajutage CTRL+A kogu dokumendi valimiseks. Vajaduse korral saate valida ka ainult teatud vahemiku.
  • Pärast seda vajutage CTRL+C andmete kopeerimiseks, nagu allpool näidatud.

  • Seejärel minge Exceli tabelisse. Seejärel valige selle vahemiku vasakpoolne ülemine lahter, kust soovite andmeid saada.
  • Nüüd vajutage CTRL+V andmete kleepimiseks. Teise võimalusena võite teha sellel lahtril parempoolse hiireklõpsu. Seejärel valige Hoidke allika vorming (K) alates Paste Valikud .
  • Pärast seda saate järgmise tulemuse.

Loe edasi: Kuidas kopeerida Wordist Excelisse mitmesse lahtrisse (3 võimalust)

2. Wordi konverteerimine Excelisse VBA abil

Sama saate teha ka Exceli VBA abil. Järgige selleks alljärgnevaid samme.

📌 Sammud

  • Kõigepealt lisage uus tööleht. Seejärel salvestage töövihik kui makrotoimingutega töövihik .
  • Seejärel vajutage ALT+F11 VBA akna avamiseks.
  • Seejärel valige Sisesta>> moodul et luua uus moodul, nagu on näidatud alloleval pildil.

  • Pärast seda kopeerige järgmine kood, kasutades kopeerimisnuppu. 
 Sub WordToExcelWithFormating() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word fail(*.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
  • Seejärel kleepige kopeeritud kood mooduli aknasse, nagu allpool näidatud.

  • Nüüd vajutage F5 koodi käivitamiseks. Seda saab teha ka koodist Käivita
  • Pärast seda palutakse teil valida Wordi fail, mida soovite teisendada.
  • Nüüd sirvige soovitud Word-dokumendi asukohta. Seejärel valige fail ja klõpsake nuppu Avatud .

  • Lõpuks saate samasuguse tulemuse nagu varasema meetodi puhul.

🔎 Kuidas kood toimib?

Sub WordToExcelWithForming()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Range

Vajalike muutujate deklareerimine.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("Word fail(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Palun valige")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

See määrab Sõna muutuja word-dokumendina.

Set Document = Word.Documents.Open(Failinimi:=Fail, ReadOnly:=True)

See määrab Dokument muutuja kasutaja poolt viidatud objektile või failile.

Document.Activate

PG = Document.Paragraphs.Count

See koodirida määrab PG muutuja lõigete arvule word-dokumendis

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

Range.Select

Vea korral Jätka järgmist

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Loe edasi: Kuidas konverteerida Wordi tabel Exceli tabelisse (6 meetodit)

Asjad, mida meeles pidada

  • Võite salvestada Word-faili ka PDF-failina. Seejärel teisendage see PDF-redaktori abil Exceli tabeliks.
  • Ärge unustage salvestada töövihik kui .xlsm Vastasel juhul kaotate koodi.

Kokkuvõte

Nüüd teate, kuidas konverteerida Wordi dokument Exceli tabelisse ja säilitada ka vormingu. Palun andke meile teada, kas see artikkel on aidanud teil oma probleemi lahendada. Võite kasutada ka allpool olevat kommentaaride sektsiooni edasiste küsimuste või soovituste jaoks. Külastage meie ExcelWIKI blogi, et uurida rohkem excelist. Jää meiega ja õpi edasi.

Eelmine postitus Exceli VLOOKUP-funktsioon IF tingimusega (7 reaalseid näiteid)
Järgmine postitus Kuidas kopeerida tingimuslik vorming Exceli teise lahtrisse (2 meetodit)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.