Come convertire il foglio di lavoro di Excel in una tabella di parole nativa tramite VBA

In questo articolo, siamo lieti di offrirti il ​​modo per convertire il foglio di lavoro di Excel in una tabella di Word nativa tramite VBA.

I file di Office possono essere in vari formati. A volte, può capitare di dover convertire un formato di file in un altro. Ad esempio, la conversione tra un file Excel e un documento Word è una delle più richieste. In realtà, abbiamo già trattato questo argomento in un nostro precedente articolo: 5 semplici modi per trasferire i dati tabulari di Excel nella tua parola

Oggi esiste un modo macro molto più rapido per estrarre la cartella di lavoro di Excel in un documento di Word. E tutti i contenuti di un foglio di lavoro verranno convertiti in una tabella Word nativa.

Installa ed esegui la macro di Word

Eseguiremo una macro in Word. Poiché una parte del codice della macro prevede l'attivazione di un oggetto Excel, è necessario aggiungere un riferimento alla libreria di oggetti.

1. Innanzitutto, apri un nuovo documento Word vuoto.
2. E premi "Alt + F11" per aprire l'editor VBA in Word.
3. Quindi fare clic su "Normale" nella colonna di sinistra.
4. Quindi fai clic su "Inserisci" e scegli "Modulo".
5. Ora hai un nuovo modulo. Fare doppio clic su di esso per aprire.
6. Quindi fare clic sulla scheda "Strumenti" sulla barra dei menu.
7. Scegli "Riferimenti" nel menu a discesa.
8. Nella finestra "Riferimenti - Normale", selezionare la casella "Libreria oggetti Microsoft Excel 14.0" e fare clic su "OK".
9. Quindi copia e incolla i seguenti codici nel nuovo modulo:

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. Fare clic su "Esegui" o premere "F5".
11. Ora c'è la finestra "Sfoglia". Basta selezionare un file Excel e fare clic su "OK".

Ecco il risultato:

Assicurati che i tuoi documenti funzionino ancora

Ci sono probabilmente centinaia di documenti memorizzati sul tuo computer. Col passare del tempo, è facile dimenticarne alcuni. E quando ricordi di averli controllati a un certo punto, li trovi solo inaccessibili. Quindi dovresti immediatamente ricorrere a uno strumento a ripara doc.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correggere xlsx and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com