Kako pretvoriti Excel radni list u izvornu Word tablicu putem VBA

U ovom članku sa zadovoljstvom vam možemo ponuditi način da pretvorite Excel radni list u izvornu Word tabelu putem VBA.

Office datoteke prihvataju različite formate. S vremena na vrijeme, naići ćete na potrebu za konverzijom formata datoteke iz jednog u drugi. Na primjer, konverzija između Excel datoteke i Word dokumenta je jedna od najtraženijih. Zapravo, o ovoj temi smo već raspravljali u jednom od naših prethodnih članaka: 5 jednostavnih načina za prijenos Excel tabličnih podataka u Word

Danas postoji mnogo brži makro način za izdvajanje Excel radne knjige u Word dokument. I sav sadržaj na radnom listu će biti konvertovan u izvornu Word tabelu.

Instalirajte i pokrenite Word makro

Makro ćemo pokrenuti u Wordu. Budući da dio koda u makrou uključuje pokretanje Excel objekta, morate dodati referencu biblioteke objekata.

1. Prvo i najvažnije, otvorite novi prazan Word dokument.
2. I pritisnite “Alt+ F11” da otvorite VBA editor u Wordu.
3. Zatim kliknite na "Normalno" na lijevoj koloni.
4. Zatim kliknite na “Insert” i odaberite “Module”.
5. Sada imate novi modul. Dvaput kliknite na njega kako biste otvorili.
6. Zatim kliknite karticu "Alati" na traci menija.
7. Na padajućem izborniku odaberite “Reference”.
8. U prozoru „References-Normal“ označite polje „Microsoft Excel 14.0 Object Library“ i kliknite na „OK“.
9. Zatim kopirajte i zalijepite sljedeće kodove u novi modul:

Sub ExtractWorksheetsToWordDocument()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim objTable As Table
  Dim dlgFile As FileDialog
  Dim strFileName As String
 
  Application.ScreenUpdating = False
 
  ' Select an Excel file from Browse window.
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    If .Show = -1 Then
      strFileName = .SelectedItems(1)
    Else
      MsgBox "No file is selected! Please select the target file."
      Exit Sub
    End If
  End With
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open(strFileName)
  objExcel.Visible = False
 
  ' Step through each worksheet in the Excel file and extract data to each _
  individual section in Word document.
  For Each objWorksheet In ActiveWorkbook.Worksheets
    objWorksheet.UsedRange.Copy
    ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
    ActiveDocument.Range.InsertAfter objWorksheet.Name
    If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
      With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
        .Collapse Direction:=wdCollapseEnd
        .InsertBreak Type:=wdSectionBreakNextPage
      End With
    End If
  Next objWorksheet
 
  For Each objTable In ActiveDocument.Tables
    objTable.Borders.Enable = True
  Next objTable
 
  ' Close the Excel application using the Quit method.
  objExcel.Application.Quit
  ' Release the object variables.
  Set objWorksheet = Nothing
  Set objWorkbook = Nothing
  Set objExcel = Nothing

  Application.ScreenUpdating = True
End Sub

10. Kliknite na “Run” ili pritisnite “F5”.
11. Sada postoji prozor "Pretraži". Samo odaberite Excel datoteku i kliknite "OK".

Evo ishoda:

Uvjerite se da vaši dokumenti i dalje rade

Moguće je da su na vašem računaru pohranjene stotine dokumenata. Kako vrijeme prolazi, neke od njih je lako zaboraviti. A kada se sjetite da ste ih u nekom trenutku provjerili, samo ih smatrate nedostupnima. Tada biste trebali odmah pribjeći alatu za popravka doc.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com