Kā konvertēt Excel darblapu uz vietējo vārdu tabulu, izmantojot VBA

Šajā rakstā mēs priecājamies piedāvāt jums iespēju pārveidot Excel darblapu vietējā Word tabulā, izmantojot VBA.

Office faili ir pieejami dažādos formātos. Laiku pa laikam jūs saskarsieties ar pieprasījumu konvertēt failu formātus no viena uz citu. Piemēram, konvertēšana starp Excel failu un Word dokumentu ir viena no pieprasītākajām. Patiesībā mēs jau esam apsprieduši šo tēmu vienā no mūsu iepriekšējiem rakstiem: 5 vienkārši veidi, kā pārsūtīt Excel tabulas datus uz jūsu vārdu

Mūsdienās ir daudz ātrāks makro veids, kā Excel darbgrāmatu izvilkt Word dokumentā. Un viss darblapas saturs tiks pārveidots par vietējo Word tabulu.

Instalējiet un palaidiet Word Macro

Mēs palaidīsim makro programmā Word. Tā kā daļa no makro kodiem ietver Excel objekta aktivizēšanu, jums jāpievieno objektu bibliotēkas atsauce.

1. Pirmkārt un galvenokārt, atveriet jaunu tukšu Word dokumentu.
2. Nospiediet “Alt + F11”, lai Word atvērtu VBA redaktoru.
3. Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
4. Pēc tam noklikšķiniet uz “Ievietot” un izvēlieties “Modulis”.
5. Tagad jums ir jauns modulis. Veiciet dubultklikšķi uz tā, lai atvērtu.
6. Pēc tam izvēlņu joslā noklikšķiniet uz cilnes Rīki.
7. Nolaižamajā izvēlnē izvēlieties “Atsauces”.
8. Logā “Atsauces-parasts” atzīmējiet izvēles rūtiņu “Microsoft Excel 14.0 objektu bibliotēka” un noklikšķiniet uz “Labi”.
9. Pēc tam nokopējiet un ielīmējiet jaunajā modulī šādus kodus:

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. Noklikšķiniet uz “Run” vai nospiediet “F5”.
11. Tagad tur ir logs “Pārlūkot”. Vienkārši atlasiet Excel failu un noklikšķiniet uz Labi.

Lūk, rezultāts:

Pārliecinieties, ka jūsu dokumenti joprojām darbojas

Jūsu datorā, iespējams, ir simtiem dokumentu. Laikam ejot, ir viegli aizmirst dažus no tiem. Un, atceroties, ka tos kādā brīdī esat pārbaudījis, jūs atradīsit tos tikai nepieejamus. Tad jums nekavējoties jāizmanto rīks remonts doc.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot xlsx un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar