Using IE to seed the clipboard

[Weaver]

I had a bit of vbs code that seeded certain strings into the clipboard

    With CreateObject("internetexplorer.application")
        .navigate ("about:blank")
        .document.parentwindow.clipboarddata.SetData "text", a
        .Quit
    End With

I need to use this in excel but as it currently stands, it issues an alert "Do you want this webpage to access your clipboard". Can I override this? Or is there a better way to achieve the same result?

 

[RichardMGreen]

Might sound a bit dim, but what about switching displayalerts off?

 

[Weaver]

I tried that, but I think maybe the IE equivalent is required inside the with..end with

 

[Weaver]

Flagellation, necrophilia and bestiality - Am I flogging a dead horse ?

We always used to rephrase it as "Deceased Equine Retail"

 

[RichardMGreen]

Took me a minute to work that one out!!

 

[RichardMGreen]

What about the security settings in IE?
I know they can cause all sorts of issues if they're too high.

 

[RoryA]

Are you just trying to put text in the clipboard?

 

[Weaver]

Yes, that's about it. It's for a system variable (the full path name) so that users can hit shift-ctrl-F then paste into other apps (mostly lotus notes). I imagine I could just write the value to a cell and copy it from there, but I was trying to avoid that.

 

[RoryA]

Try this:

Public Sub PutInClipBoard(strText as string)
   Dim objData As Object
   Set objData = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
   With objData
      .SetText strText
      .PutInClipboard
   End With

End Sub

 

[Weaver]

That did the trick, thanks.

What's the syntax/logic behind that getobject() call, if you don't mind me asking?

Would this work in VBS also? It'd save messing around with internet explorer.

Cheers,