copy from first workbook to another

Question

0.00/5 (No votes)

See more:

i am creating a macro that transfer data from one workbook to another. i am getting a error please help. i have taken command button on workbook on b.xls which will run this.

VB

Private Sub CommandButton1_Click()

Dim wkb1 As Workbook
Dim wknm As String
wknm = "d:\a.xlsx";
Set wkb1 = Workbooks.Open(wknm)
wkb1.Sheets("Sheet1").Range("A1:A8").Copy

ThisWorkbook.Sheets("Sheet1").Range("A1").Select
Selection.Paste

End Sub

Please help me find out what i am doing wrong
Thanks
aks619

Posted 22-Oct-12 21:50pm

aksh619

Updated 22-Oct-12 21:58pm

v2

Add a Solution

Comments

Zoltán Zörgő 23-Oct-12 3:55am

You are getting error. Fine, and what error?

aksh619 23-Oct-12 3:57am

Application Defined or Object defined error !!

Zoltán Zörgő 23-Oct-12 4:14am

And you have done step-by-step debugging, and you reached witch code row?
Buy as I see, you can not copy a range. Select it first, than copy, than select the target and than paste (See msdn).

aksh619 23-Oct-12 4:20am

now giving error select method of range class faild . i has put the whole code in Module .

Zoltán Zörgő 23-Oct-12 4:26am

Workbook is opened?
Is there Sheet1?
Range is selected?

aksh619 23-Oct-12 4:28am

hey how can i go to different work book.... copy step is complete but

ThisWorkbook.Sheets("Sheet1").Range("A1").Select
Selection.Paste

not working

aksh619 23-Oct-12 4:26am

how to move to different workbook after copying from first

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

**Zoltán Zörgő** · Answer 1 · 2012-10-22T22:49:00

Solution 1

This is working fine for me:

VB

Public Sub test()
Dim wb As Workbook
Set wb = Workbooks.Add
Workbooks(1).Activate
ActiveSheet.Range("A1").Value = 1
ActiveSheet.Range("A8").Value = 8
ActiveSheet.Range("A1:A8").Select
Selection.Copy
Workbooks(2).Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
End Sub

Posted 22-Oct-12 22:49pm

Zoltán Zörgő

Comments

aksh619 23-Oct-12 4:52am

Thanks Zoltan Zorgo, really appreciate you help .. but with one thing more how can i transfer entire coulmn to different workbook worksheet ..

Zoltán Zörgő 23-Oct-12 12:32pm

Use the "A:A" format for one column or "A:C" for many. I suppose you can only select consequent columns.