Astuces Excel
  1. Astuces Excel
  3. Extraire du text d'un tas de = EMBED ("Forms.HTML: TextArea.1", "") dans Excel
Intereting Posts
Excel VBA. Comment passer des objects en option et pouvoir les détecter? Masquer l'hyperlien de la page parent Excel Excel Vba: parcourir les lignes, regrouper les lignes par nom de fournisseur et envoyer les détails du produit par courrier électronique? Comment searchz-vous des données dans Excel correspondant à plusieurs colonnes (date et produit, date et région)? OpenOffice Calc – formule compliquée pour la comparaison Colonnes d'effacement de macro Excel basées sur la preference de l'user Traitement du file Excel avec des pandas Importer des données à partir de plusieurs feuilles de calcul dans la table SQL Server En-têtes répétitifs erreur de valeur de concordance d'index Index des matchs à l'aide de la fonction uniquement Créer une carte XML personnalisée Multiplication masortingcielle impliquant le TRANSPOSE d'une rangée Création de macros avec une condition donnée, ajout de feuilles Problèmes liés à l'ouverture d'un file Excel téléchargé sur une tablette Android

Extraire du text d'un tas de = EMBED ("Forms.HTML: TextArea.1", "") dans Excel

Je – bien, mon ami – a une feuille de calcul Excel avec un mélange de boîtes de text et de text textuelles régulières – il a été copié d'un site Web quelque part, elle veut simplement avoir le text dans les zones de text affichées plutôt que les boîtes.

Aidez-moi?

La sélection d'une des zones de text / zones dans la vue "design" montre = EMBED ("Forms.HTML: TextArea.1", "") dans la barre de formules. Ils s'appellent "Control 1", "Control 2" etc.

Existe-t-il un bon moyen de replace les cases par leur text? Supposons un peu de VBA, mais je ne peux pas savoir comment faire l'object d'une cellule pour se replace … Une erreur de suivi est-elle complète?

Merci,

Amy

Cela pourrait vous rapprocher. 

Sub Tester() Dim o For Each o In ActiveSheet.OLEObjects If o.progID = "Forms.HTML:TextArea.1" Then Debug.Print o.Name, o.Object.Value, o.TopLeftCell.Address() 'sometimes merged cells result from a HTML copy/paste, ' so don't just use .TopLeftCell to set the Value o.TopLeftCell.MergeArea.Value = o.Object.Value o.Delete End If Next o End Sub