Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Visual Basic Copy Clipboard Paste as KeyStokes
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3
Default Visual Basic Copy Clipboard Paste as KeyStokes

I am getting an error message
error: object required: 'clipboard'
code: 800a01a8

i am trying to paste the clipboard as key stokes, and not just pasting data.
this is my first script, and i learned this yesterday, so please be nice as
i am a very newbie!!!


Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Clipboard.SetText
WshShell.SendKeys.Send("^{v}")
Next
WScript.Quit

thanks in return!!!!!!!!!!!!!!!!
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3
Default Visual Basic Copy Clipboard Paste as KeyStokes
pretty much i am needing to know how to paste the clipboard as a macro

"staciedaisy" wrote:


I am getting an error message
error: object required: 'clipboard'
code: 800a01a8

i am trying to paste the clipboard as key stokes, and not just pasting data.
this is my first script, and i learned this yesterday, so please be nice as
i am a very newbie!!!


Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Clipboard.SetText
WshShell.SendKeys.Send("^{v}")
Next
WScript.Quit

thanks in return!!!!!!!!!!!!!!!!
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,117
Default Visual Basic Copy Clipboard Paste as KeyStokes
myRange = Worksheets("Sheet1").Range("A1:B1")
myOtherRange = Worksheets("Sheet1").Range("A3:B3")

myRange.Copy
myOtherRange.Paste

hope this helps........ i have no idea what you're doing with the
other code........ :)
susan


On May 1, 11:36*am, staciedaisy
wrote:
pretty much i am needing to know how to paste the clipboard as a macro



"staciedaisy" wrote:

I am getting an error message
error: object required: 'clipboard'
code: 800a01a8

i am trying to paste the clipboard as key stokes, and not just pasting data.
this is my first script, and i learned this yesterday, so please be nice as
i am a very newbie!!!

Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Clipboard.SetText
WshShell.SendKeys.Send("^{v}")
Next
WScript.Quit

thanks in return!!!!!!!!!!!!!!!!- Hide quoted text -

- Show quoted text -

Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3
Default Visual Basic Copy Clipboard Paste as KeyStokes
here is a better explanation of what i'm needing!

i am trying to copy from excel and paste the clipboard as key stokes (like a
macro), and not just pasting data.
this is my first script, and i learned this 2 days ago, so please be nice as
i am a very newbie!!!


Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Next
WScript.Quit

so after
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
i am needing to know how to paste the contents of the clipboard as
keystrokes as if someone was actually typing the contents of the clipboard
out.

i am needing this done like this because the other application it is pasting
into has drop down boxes which you can type into to select but not paste!

any input would be greatly appreciated!!!!

thanks soo much!

thanks in return!!!!!!!!!!!!!!!!

"Susan" wrote:

myRange = Worksheets("Sheet1").Range("A1:B1")
myOtherRange = Worksheets("Sheet1").Range("A3:B3")

myRange.Copy
myOtherRange.Paste

hope this helps........ i have no idea what you're doing with the
other code........ :)
susan


On May 1, 11:36 am, staciedaisy
wrote:
pretty much i am needing to know how to paste the clipboard as a macro



"staciedaisy" wrote:

I am getting an error message
error: object required: 'clipboard'
code: 800a01a8

i am trying to paste the clipboard as key stokes, and not just pasting data.
this is my first script, and i learned this yesterday, so please be nice as
i am a very newbie!!!

Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Clipboard.SetText
WshShell.SendKeys.Send("^{v}")
Next
WScript.Quit

thanks in return!!!!!!!!!!!!!!!!- Hide quoted text -

- Show quoted text -


Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,117
Default Visual Basic Copy Clipboard Paste as KeyStokes
sorry, can't help you with that. ignore my other full-code post.
:)
susan

On May 1, 12:19*pm, staciedaisy
wrote:
here is a better explanation of what i'm needing!

i am trying to copy from excel and paste the clipboard as key stokes (like a
macro), and not just pasting data.
this is my first script, and i learned this 2 days ago, so please be nice as
i am a very newbie!!!

Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Next
WScript.Quit

so after
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
i am needing to know how to paste the contents of the clipboard as
keystrokes as if someone was actually typing the contents of the clipboard
out. *

i am needing this done like this because the other application it is pasting
into has drop down boxes which you can type into to select but not paste!

any input would be greatly appreciated!!!!

thanks soo much!

thanks in return!!!!!!!!!!!!!!!!



"Susan" wrote:
myRange = Worksheets("Sheet1").Range("A1:B1")
myOtherRange = Worksheets("Sheet1").Range("A3:B3")

myRange.Copy
myOtherRange.Paste

hope this helps........ i have no idea what you're doing with the
other code........ :)
susan

On May 1, 11:36 am, staciedaisy
wrote:
pretty much i am needing to know how to paste the clipboard as a macro

"staciedaisy" wrote:

I am getting an error message
error: object required: 'clipboard'
code: 800a01a8

i am trying to paste the clipboard as key stokes, and not just pasting data.
this is my first script, and i learned this yesterday, so please be nice as
i am a very newbie!!!

Set WshShell = WScript.CreateObject("WScript.Shell")
For a = 1 To 1
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 1000
WshShell.SendKeys "{F2}"
WScript.Sleep 2000
WshShell.SendKeys "^(v)"
WScript.Sleep 4000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "%(Q)"
WScript.Sleep 300
WshShell.SendKeys "(R)"
WScript.Sleep 300
WshShell.SendKeys "(U)"
WScript.Sleep 4000
WshShell.SendKeys "^{INSERT}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 300
WshShell.SendKeys "+{TAB}"
WScript.Sleep 1000
WshShell.AppActivate "MICROSOFT EXCEL"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{F2}"
WScript.Sleep 300
WshShell.SendKeys "{END}"
WScript.Sleep 300
WshShell.SendKeys "+{Home}"
WScript.Sleep 300
WshShell.SendKeys "^(c)"
WScript.Sleep 400
WshShell.AppActivate "MICRO KEY"
WScript.Sleep 400
Clipboard.SetText
WshShell.SendKeys.Send("^{v}")
Next
WScript.Quit

thanks in return!!!!!!!!!!!!!!!!- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,117
Default Visual Basic Copy Clipboard Paste as KeyStokes
Option Explicit

Sub do_paste()

Dim myRange As Range
Dim myOtherRange As Range

Set myRange = Worksheets("Sheet1").Range("A1:B1")
Set myOtherRange = Worksheets("Sheet2").Range("A3:B3")

myRange.Copy
myOtherRange.PasteSpecial xlPasteAll

Application.CutCopyMode = False

End Sub

this is the whole code. i have trouble getting "paste" to work so
find .PasteSpecial xlPasteAll does the same thing.
:)
susan

On May 1, 12:08*pm, Susan wrote:
myRange = Worksheets("Sheet1").Range("A1:B1")
myOtherRange = Worksheets("Sheet1").Range("A3:B3")

myRange.Copy
myOtherRange.Paste

hope this helps........ i have no idea what you're doing with the
other code........ :)
susan

On May 1, 11:36*am, staciedaisy



wrote:
pretty much i am needing to know how to paste the clipboard as a macro

"staciedaisy" wrote:

I am getting an error message
<snip

thanks in return!!!!!!!!!!!!!!!!- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
copy and paste (visual basic) ian123 New Users to Excel 1 June 8th 06 12:22 AM
help to paste via visual basic ian123 New Users to Excel 1 June 8th 06 12:13 AM
visual basic (copy and paste) ian123 Excel Worksheet Functions 2 June 7th 06 11:26 PM
copy and paste (visual basic) ian123[_52_] Excel Programming 1 June 7th 06 11:20 PM
visual basic command to special paste a row of formulas into value F.C[_2_] Excel Programming 3 August 30th 05 02:02 PM


All times are GMT +1. The time now is 10:29 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement