Comment convertir une feuille de calcul Excel en tableau Word natif via VBA

Dans cet article, nous sommes ravis de vous proposer le moyen de convertir une feuille de calcul Excel en tableau Word natif via VBA.

Les fichiers Office prennent différents formats. De temps en temps, vous rencontrerez la demande de convertir le format de fichier de l'un à l'autre. Par exemple, la conversion entre un fichier Excel et un document Word est l'un des most requis. En fait, nous avons abordé ce sujet dans l'un de nos articles précédents : 5 façons simples de transférer des données tabulaires Excel dans votre Word

Aujourd'hui, il existe une méthode beaucoup plus rapide pour extraire un classeur Excel dans un document Word. Et tout le contenu d'une feuille de calcul sera converti en un tableau Word natif.

Installer et exécuter la macro Word

Nous allons exécuter une macro dans Word. Puisqu'une partie des codes de la macro implique le déclenchement d'un objet Excel, vous devez ajouter un objet library référence.

1. Premier et premierost, ouvrez un nouveau document Word vierge.
2. Et appuyez sur "Alt + F11" pour ouvrir l'éditeur VBA dans Word.
3. Cliquez ensuite sur "Normal" dans la colonne de gauche.
4. Cliquez ensuite sur "Insérer" et choisissez "Module".
5. Vous avez maintenant un nouveau module. Double-cliquez dessus pour l'ouvrir.
6. Cliquez ensuite sur l'onglet "Outils" dans la barre de menu.
7. Choisissez "Références" dans le menu déroulant.
8. Dans la fenêtre "References-Normal", cochez "Microsoft Excel 14.0 Object Library » et cliquez sur « OK ».
9. Ensuite, copiez et collez les codes suivants dans le nouveau module :

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. Cliquez sur "Exécuter" ou appuyez sur "F5".
11. Il y a maintenant la fenêtre "Parcourir". Sélectionnez simplement un fichier Excel et cliquez sur "OK".

Voici le résultat:

Assurez-vous que vos documents fonctionnent toujours

Il y a peut-être des centaines de documents stockés sur votre ordinateur. Au fil du temps, il est facile d'en oublier certains. Et lorsque vous vous souvenez de les avoir vérifiés à un moment donné, vous les trouvez seulement inaccessibles. Ensuite, vous devez immédiatement recourir à un outil pour doc de réparation.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com