Copiare testo nella clipboard

[n***@yahoo.it]

Con ACCESS 2016 in VBA uso FM20.dll per acce3dere alla ClipBoard.

uso il seguente codice per copiare nella Clip una serie di valori separato da un ritorno a capo
-------------------------------
Dim Clip As MSForms.DataObject
Dim R As DAO.Recordset
Dim s As String

Set Clip = New MSForms.DataObject
Set R = CurrentDb.OpenRecordset("8 00 Sedi Tecniche")
s = ""
While Not R.EOF
s = s & vbNewLine & R.Fields("SeTe")
R.MoveNext
Wend
R.Close
Clip.SetText (s)
Clip.PutInClipboard
-------------------------------
la stringa s dovrebbe essere del tipo

LO*
TR*
CM*


ma non ottengo il risultato atteso, ma due strani punti interrogativi.

cosa sbaglio?

[@Alex]

Post by n***@yahoo.it
Con ACCESS 2016 in VBA uso FM20.dll per acce3dere alla ClipBoard.
uso il seguente codice per copiare nella Clip una serie di valori separato da un ritorno a capo
-------------------------------
Dim Clip As MSForms.DataObject
Dim R As DAO.Recordset
Dim s As String
Set Clip = New MSForms.DataObject
Set R = CurrentDb.OpenRecordset("8 00 Sedi Tecniche")
s = ""
While Not R.EOF
s = s & vbNewLine & R.Fields("SeTe")
R.MoveNext
Wend
R.Close
Clip.SetText (s)
Clip.PutInClipboard
-------------------------------
la stringa s dovrebbe essere del tipo
LO*
TR*
CM*
ma non ottengo il risultato atteso, ma due strani punti interrogativi.
cosa sbaglio?

Da dove lo hai copiato questo codice...? Access non ha l'oggetto ClipBoard nè le MSForm... di Excel... quindi forse dovresti spiegarci meglio...

Perchè poi vuoi copiare in ClipBoard...? Che esigenza hai...?

@Alex

[@Alex]

Una volta si usavano le API... ma se inserisci i RIFERIMENTI a MSFORM... è corretto.

In ogni caso il codice è corretto, prova a fare un esempio SEMPLICE... senza il VbNewLine o sostituirlo con un carattere come ";" e poi userai lo SPLIT per ricostruire...!

While Not R.EOF
s = s & ";" & R.Fields("SeTe")
R.MoveNext
Wend

Perchè poi vuoi copiare in ClipBoard...? Che esigenza hai...?

@Alex

[n***@yahoo.it]

uso la ClipBoard per incollare in un altro programma.

Mi serve quindi la lista nel formato che hai visto cioè una sequenza di stringhe separate da un ritorno a capo, che per esempio in excel riempiono un range.

esempio:

LO*
TR*
CM*
Valore1
Valore 2

ma la cosa strana è che se incollo in Excel dopo avere eseguito la routine mi visualizza due punti interrogativi racchiusi in un rettangolino, che proprio non riesco a capire

ecco i quadratini che copia con dentro però un punto interrogativo

[n***@yahoo.it]

Post by n***@yahoo.it
uso la ClipBoard per incollare in un altro programma.
Mi serve quindi la lista nel formato che hai visto cioè una sequenza di stringhe separate da un ritorno a capo, che per esempio in excel riempiono un range.
LO*
TR*
CM*
Valore1
Valore 2
ma la cosa strana è che se incollo in Excel dopo avere eseguito la routine mi visualizza due punti interrogativi racchiusi in un rettangolino, che proprio non riesco a capire
ecco i quadratini che copia con dentro però un punto interrogativo

��

[n***@yahoo.it]

Oggi stranamente non lo ha fatto.
Manco il tempo di cantare vittoria a zac di nuovo quello strano comportamento.
la stringa da copiare è la seguente con i ritorni a capo

Lista
CM*
LO*
TR*