Copiare il valore non formattato della cella tramite macro

Ho creato un foglio di Excel con un generatore di text, basato su determinate circostanze.

Il text generato è basato sui parametri e viene raggruppato in paragrafi di text in una singola cella, utilizzando la function CONCATENATE .

Se copiamo il contenuto finito della cella in un editor basato su HTML, ad esempio una e-mail – copia la formattazione e una tabella (TD).

C'è un modo per copiare il text (solo valori) negli appunti?

Ho trovato soluzioni per incollarlo non formattato in una cella in Excel, utilizzando il seguente codice Visual Basic:

Sub Copy() Sheet1.Range("GeneratedText").Copy Sheet2.Cells(1, 1).PasteSpecial xlPasteValues Sheet2.Cells(1, 1).Copy End Sub 

Questo copia e incolla il text non formattato nella nuova cella in Excel – Ma vorrei incollarlo altrove, e quindi averlo memorizzato senza formattazione negli Appunti.

Qualche idea?

Solutions Collecting From Web of "Copiare il valore non formattato della cella tramite macro"

Puoi farlo in questo modo:

 Sub CopyValToClipboard() val = Sheet1.Range("GeneratedText") // Here, the val contains unformatted value of cell With New MSForms.DataObject .SetText val .PutInClipboard End With Sheet2.Cells(1, 1).value = val End Sub Fine con Sub CopyValToClipboard() val = Sheet1.Range("GeneratedText") // Here, the val contains unformatted value of cell With New MSForms.DataObject .SetText val .PutInClipboard End With Sheet2.Cells(1, 1).value = val End Sub 

Se non è ansible trovare la libreria di oggetti di Microsoft Forms 2.0 nell'elenco dei riferimenti, quindi sfogliare e aggiungere un riferimento a FM20.dll:

immettere qui la descrizione dell'immagine

Inizia a mostrare immediatamente:

immettere qui la descrizione dell'immagine

Spero che sia d'aiuto!