Jak przekonwertować arkusz programu Excel na natywną tabelę programu Word za pośrednictwem języka VBA

W tym artykule z przyjemnością oferujemy sposób konwersji arkusza programu Excel do natywnej tabeli programu Word za pośrednictwem języka VBA.

Pliki pakietu Office przyjmują różne formaty. Od czasu do czasu pojawi się potrzeba konwersji plików z jednego formatu na inny. Na przykład konwersja między plikiem Excela a dokumentem Worda jest jedną z najczęściej wymaganych. Właściwie, omawialiśmy ten temat w jednym z naszych poprzednich artykułów: 5 łatwych sposobów przesyłania danych tabelarycznych programu Excel do programu Word

Obecnie istnieje znacznie szybszy makro-sposób na wyodrębnienie skoroszytu programu Excel do dokumentu programu Word. Cała zawartość arkusza zostanie przekonwertowana na natywną tabelę programu Word.

Zainstaluj i uruchom makro programu Word

Uruchomimy makro w Wordzie. Ponieważ część kodu w makro dotyczy wywoływania obiektów Excela, należy dodać odwołanie do biblioteki obiektów.

1. Przede wszystkim otwórz nowy, pusty dokument Word.
2. I naciśnij „Alt + F11”, aby otworzyć edytor VBA w programie Word.
3. Następnie kliknij „Normalne” w lewej kolumnie.
4. Następnie kliknij „Wstaw” i wybierz „Moduł”.
5. Teraz masz nowy moduł. Kliknij dwukrotnie, aby otworzyć.
6. Następnie kliknij zakładkę „Narzędzia” na pasku menu.
7. Wybierz „Referencje” z rozwijanego menu.
8. W oknie „Odwołania - Normalne” zaznacz pole wyboru „Biblioteka obiektów Microsoft Excel 14.0” i kliknij „OK”.
9. Następnie skopiuj i wklej następujące kody do nowego modułu:

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. Kliknij „Uruchom” lub naciśnij „F5”.
11. Teraz jest okno „Przeglądaj”. Po prostu wybierz plik Excel i kliknij „OK”.

Oto wynik:

Upewnij się, że Twoje dokumenty nadal działają

Na twoim komputerze są prawdopodobnie przechowywane setki dokumentów. W miarę upływu czasu łatwo o niektórych z nich zapomnieć. A kiedy przypomnisz sobie, że sprawdzałeś je w pewnym momencie, okazuje się, że są niedostępne. Następnie należy natychmiast skorzystać z narzędzia naprawa doc.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com