Kako pretvoriti Excel radni list u izvornu Word tablicu putem VBA

U ovom članku sa zadovoljstvom vam možemo ponuditi način pretvaranja Excel radnog lista u izvornu Word tablicu putem VBA.

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

Danas postoji puno brži makronačin za izdvajanje Excelove radne knjige u Word dokument. I sav sadržaj na radnom listu bit će pretvoren u izvornu Word tablicu.

Instalirajte i pokrenite Word Macro

Makro ćemo pokrenuti u Wordu. Budući da dio koda u makrou uključuje pokretanje Excel objekta, morate dodati referencu na biblioteku 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 "Normalno" u lijevom stupcu.
4. Zatim kliknite "Umetni" i odaberite "Modul".
5. Sada imate novi modul. Dvaput kliknite na njega da biste ga otvorili.
6. Zatim kliknite karticu "Alati" na traci izbornika.
7. Na padajućem izborniku odaberite "Reference".
8. U prozoru "References-Normal" označite okvir "Microsoft Excel 14.0 Object Library" i kliknite "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. Pritisnite "Pokreni" ili pritisnite "F5".
11. Sada postoji prozor "Pregledaj". Samo odaberite Excel datoteku i kliknite "OK".

Evo ishoda:

Provjerite rade li vaši dokumenti

Na vašem računalu vjerojatno su pohranjene stotine dokumenata. Kako vrijeme prolazi, lako je neke od njih zaboraviti. A kad se sjetite da ste ih provjerili u nekom trenutku, samo ćete ih naći nedostupnima. Tada biste trebali odmah pribjeći alatu za popravak dok.

Uvod za autora:

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