Clipboard

[presuming ed]

i have a macro that opens numerous excel spreadsheets in an array and pastes data into sheets in a master document. after each paste the source spreadsheet is closed, then the loop begins again by opening the next spreadsheet in the array.

the problem i have is the message stating that "there is a large amount of data still on the clipboard etc.." when each source spreadsheet is closed. This requires me to manually select "NO" at the end of every loop, to inform Excel that i do not need this data to be stored for future use (as i have already pasted it).

is there a way of disabling this, or coding something in the macro to automatically select "NO" when prompted by the clipboard message.

any ideas welcomed!

[kikde]

Hi,
take this:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

Public Sub CleanClipBoard()
OpenClipboard FindWindow("xlMain", vbNullString)
EmptyClipboard
CloseClipboard
end sub

Jens



"presuming ed" wrote:

>
> i have a macro that opens numerous excel spreadsheets in an array and
> pastes data into sheets in a master document. after each paste the
> source spreadsheet is closed, then the loop begins again by opening the
> next spreadsheet in the array.
>
> the problem i have is the message stating that "there is a large amount
> of data still on the clipboard etc.." when each source spreadsheet is
> closed. This requires me to manually select "NO" at the end of every
> loop, to inform Excel that i do not need this data to be stored for
> future use (as i have already pasted it).
>
> is there a way of disabling this, or coding something in the macro to
> automatically select "NO" when prompted by the clipboard message.
>
> any ideas welcomed!
>
>
> --
> presuming ed
> ------------------------------------------------------------------------
> presuming ed's Profile: http://www.excelforum.com/member.php...o&userid=31526
> View this thread: http://www.excelforum.com/showthread...hreadid=512190
>
>

[keepITcool]

Kikde,
why use api's when excel can do it itself?

application.cutcopymode = false will clear the clipboard.

note to OP:

you can avoid leaving data on the clipboard by specifying the
destination as an argument to the copy or cut function like

range("source").cut range("destination")


else after every paste or when routine finishes
or before you close the (copied) workbook use

application.cutcopymode = false



--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


kikde wrote :

> Hi,
> take this:
>
> Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
> (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
> Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As
> Long) As Long
> Private Declare Function EmptyClipboard Lib "user32" () As Long
> Private Declare Function CloseClipboard Lib "user32" () As Long
>
> Public Sub CleanClipBoard()
> OpenClipboard FindWindow("xlMain", vbNullString)
> EmptyClipboard
> CloseClipboard
> end sub
>
> Jens
>
>
>
> "presuming ed" wrote:
>
> >
> > i have a macro that opens numerous excel spreadsheets in an array
> > and pastes data into sheets in a master document. after each paste
> > the source spreadsheet is closed, then the loop begins again by
> > opening the next spreadsheet in the array.
> >
> > the problem i have is the message stating that "there is a large
> > amount of data still on the clipboard etc.." when each source
> > spreadsheet is closed. This requires me to manually select "NO" at
> > the end of every loop, to inform Excel that i do not need this data
> > to be stored for future use (as i have already pasted it).
> >
> > is there a way of disabling this, or coding something in the macro
> > to automatically select "NO" when prompted by the clipboard message.
> >
> > any ideas welcomed!
> >
> >
> > --
> > presuming ed
> > --------------------------------------------------------------------
> > ---- presuming ed's Profile:
> > http://www.excelforum.com/member.php...o&userid=31526
> > View this thread:
> > http://www.excelforum.com/showthread...hreadid=512190
> >
> >