Excel VBA Copy String into Single cell

[kyletreyfield]

I need to copy a string of text into Excel that may contain spaces and chr(10) so I want it all in one cell.

Here is the code I've tried to use

STORE filetostr("c:\path\filename.txt") TO _cliptext
oSheet1.Select
oX.SendKeys("F2")
oSheet1.Paste
oX.SendKeys("Enter") 
 _cliptext = ""

Pastes into Excel fine but not all in one cell. What am I doing wrong?

 

[Ljupce Zagorac]

Can you try:
oSheet1.range("A1").Paste()
or
oSheet1.range("A1").value=_cliptext

Should work.

 

[kyletreyfield]

Thanks, Ljupce. The paste has always worked,as it did now, but the problem is that I want the whole string to be pasted into one cell. When you do it manually, you can either double-click the cell, or press F2 (edit). I thought sendkeys would be the answer but I'm not even sure if sendkeys has any effect.

 

[Ljupce Zagorac]

Hi,

Unless there is tab-chr(9) within the string it should fit into one cell. Can you try:

oSheet1.range("A1").value='^'+'"'+_cliptext+'"'

Thus we will force it (even if the string contains digits) to be accepted as a character string.

Any specific reason to use Paste() to populate single cell?