Strange Clipboard Response

[johnmtb]

i cannot understand what is happening, and i need to solve the problem.

the following snippet of code is used six times in the programme

 ExcelFile.Worksheets("Calculations").Range(CellAdres).Activate
     Clipboard.Clear
     ExcelFile.Worksheets("Calculations").Range(CellAdres).Copy
     WordObj.ActiveDocument.Tables(i).Rows(j).Cells(k).Range.Paste

the programme may run once, or even twice, successfully, but at some time it hangs and advises:

"This method or property is not available because the clipboard is empty or not valid"

using the debugger i know this happens in different parts of the programme, but always in the above snippet.

the curious thing is that it only happens on my desktop in my office, not on my laptop.

can anyone help me please?

john

[westconn1]

is the clipboard empty because there is nothing in the range to copy?
as the clipboard is cleared immediately before it is unlikely to be not valid

[johnmtb]

westconn1,

no, when i look at the Excel cell, it contains information and is highlighted in the usual manner that excel uses when copying.

i added the "clear" prior to it copying because at first i thought maybe it was getting too full, but that obviously wasn't the case.

do you have nay other ideas, i am completely baffled?

regards,

john

[Hack]

the curious thing is that it only happens on my desktop in my office, not on my laptop.

What do you have running on your desktop, but not on your laptop, that might be accessing, and thus clearing, the clipboard?

[johnmtb]

Hack,

it is difficult to say, it is the company computer, and they often do things behind the scenes that we are not aware of. at the moment i am working in Nigeria, and the whole system is controlled from Houston.

but i have noticed that sometimes when i copy from one place to paste later that the clipboard is empty!

do you have any suggestions what may be casuing such a problem, and i can arrange for our IT guy to remedy the problem.

regards,

john

[Milk]

If something else is hammering the clipboard on your works computer I guess it might be a tricky thing to change.

Accessing WordObj.ActiveDocument.Tables(i).Rows(j).Cells(k).Range is probably not super fast. You could perhaps speed up the copy/paste process by using intermediary variables and/or a with statement. You could also verify the data before pasting, if it's not right try again. I'm not big on excel but when I tried copying a range manually I noticed it copies lots of data in a range of formats (DDE link, Text, Rtf, Bitmap, Metafile, EMetaFile and DIB ) that can't be that fast.

Also is there a way to copy the range directly without using the clipboard?

[si_the_geek]

I suspect the following code (which doesn't use the clipboard) will do the same as the original code:

WordObj.ActiveDocument.Tables(i).Rows(j).Cells(k).Range = ExcelFile.Worksheets("Calculations").Range

[johnmtb]

si the geek,

thank you, i will try that.

regards,

john

[johnmtb]

si the geek,

i tried your suggestion, with a little modification, i had to add (CellAdres) after the word range and it worked fine. however, that created another problem, the number format was lost, and numbers such as 1,234,567.00, came out as 1234567.00, and i cannot find out how to format numbers in Word tables.

can you help with this please?

regards,

john