Astuces Excel
  1. Astuces Excel
  3. Prendre des données à partir d'Excel et insert dans une table Word antérieure?
Intereting Posts
Comment vérifier éliminer plusieurs lignes à partir d'un dataframe en utilisant R Excel Date minimale dans une plage donnée Problèmes de connection OLAP intermittents à partir d'Excel excel formule aide à split les noms complexes Soustrayez deux cellules de deux classurs différents dans excel comment find et copyr une colonne spécifique à l'aide de vba Comment get des titres de mots-keys dans Excel Exécuter une macro contenant deux instructions For et If Ajouter une list de validation à une feuille protégée UserInterfaceOnly Comment nettoyer les espaces entre les cellules dans le file Excel généré en utilisant apache poi Combinez une export de données de masse en "R" sans avoir à append de fil et de coller des lignes une par une Créer une list déroulante dynamic des nombres entiers Excel amélioré et maintenant le studio visuel ne me permettra pas d'exécuter mon projet complémentaire Python écrit des lignes et cols vers Excel VBA HTML ne fonctionne pas sur tous les ordinateurs

Prendre des données à partir d'Excel et insert dans une table Word antérieure?

Je sais que cela a été demandé précédemment, mais je ne peux que find des sites qui créent la table dans Word lorsque vous transférez datatables.

J'ai un document Word avec 3 tables et je souhaite extraire des données d'un file Excel envoyé par un client dans certaines cellules dans les tables Word. EG Je voudrais prendre le contenu de la cellule D3 dans Excel et la mettre dans la cellule 2,2 dans la deuxième table dans Word? Existe-t-il un moyen de faire reference à quel tableau insert datatables?

Est-ce que quelqu'un peut aider à cela ou simplement me pousser dans la bonne direction alors que je suis relativement nouveau sur Macros, etc. Comme nous utilisons le document Word et que le file Excel nous a été envoyé, la Macro en Word serait-elle plus bénéfique ou non?

Merci

J'ai réussi à le réparer et c'est généralement relativement simple, mais grâce à @David Zemens pour la poussée dans la bonne direction. Je ne sais pas comment j'ai manqué les "Tables" qui ont été extraites lors de la search de "ThisDocument" précédemment. 

  Sub GetData() Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Dim ExcelFileName As Ssortingng ExcelFileName = "{Put the directory of Excel file here}" Set exWb = objExcel.Workbooks.Open(ExcelFileName) 'Set the text of the cell from Excel to the cell in the specified table in Word (the second table in this instance) ActiveDocument.Tables(2).Cell(2, 2).Range.Text = exWb.Sheets("Test").Cells(2, 1) ' Close Excel bits exWb.Close Set exWb = Nothing End Sub