Cum să convertiți foaia de lucru Excel în tabelul Word nativ prin VBA

În acest articol, suntem încântați să vă oferim modalitatea de a converti foaia de lucru Excel în tabelul Word nativ prin VBA.

Fișierele Office sunt disponibile în diverse formate. Din când în când, veți întâmpina nevoia de a converti fișiere dintr-un format în altul. De exemplu, conversia între fișiere Excel și documente Word este una dintre cele mai solicitate. De fapt, am discutat acest subiect într-unul din articolele noastre anterioare: 5 moduri ușoare de a transfera date tabelare Excel în Word

Astăzi, există o macro-mod mult mai rapidă de a extrage registrul de lucru Excel într-un document Word. Și tot conținutul dintr-o foaie de lucru va fi convertit într-un tabel Word nativ.

Instalați și rulați Word Macro

Vom rula macrocomanda în Word. Deoarece o parte din codul macrocomandarii implică declanșarea unui obiect Excel, trebuie să adăugați o referință la biblioteca de obiecte.

1. În primul rând, deschideți un nou document Word gol.
2. Și apăsați „Alt+ F11” pentru a deschide editorul VBA în Word.
3. Apoi faceți clic pe „Normal” în coloana din stânga.
4. Apoi faceți clic pe „Inserare” și alegeți „Modul”.
5. Acum ai un nou modul. Faceți dublu clic pe el pentru a deschide.
6. Apoi faceți clic pe fila „Instrumente” din bara de meniu.
7. Alegeți „Referințe” din meniul drop-down.
8. În fereastra „Referințe-Normal”, bifați caseta „Biblioteca de obiecte Microsoft Excel 14.0” și faceți clic pe „OK”.
9. Apoi copiați și inserați următoarele coduri în noul 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. Faceți clic pe „Run” sau apăsați „F5”.
11. Acum există fereastra „Răsfoiește”. Doar selectați un fișier Excel și faceți clic pe „OK”.

Iată rezultatul:

Asigurați-vă că documentele dvs. încă funcționează

Există, probabil, sute de documente stocate pe computer. Pe măsură ce trece timpul, este ușor să uiți unele dintre ele. Și când îți amintești că le-ai verificat la un moment dat, le găsești doar inaccesibile. Atunci ar trebui să apelați imediat la un instrument pentru reparatie doc.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com