Vb.Net - Copying cells from from one Excel worksheet to another

Question

0.00/5 (No votes)

See more:

This I think is a simple solution. Just that I have spent too long trying to do it.

I have a worksheet named, "SheetA" and have headings from A1....D1 e.g. forename, surname, department, age

I want to copy and paste this line into my other worksheet "SheetB" at the same place.

How is this done?

Posted 8-Apr-13 6:31am

directred

Add a Solution

2 solutions

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)

Kenneth Haugland · Answer 1 · 2013-04-08T07:12:00

Solution 1

You do it like this:
http://www.techonthenet.com/excel/macros/copy_range.php[^]

Posted 8-Apr-13 7:12am

Kenneth Haugland

Comments

Maciej Los 8-Apr-13 14:11pm

This is for VBA, not for VB.NET ;(

Kenneth Haugland 8-Apr-13 14:52pm

I know, that is true, but they are easily converted. :-)

Maciej Los 8-Apr-13 14:57pm

I know, i expected that you reply me this way ;)

Kenneth Haugland 8-Apr-13 15:12pm

Google is rather predictable, I know :laugh:

Maciej Los · Answer 2 · 2013-04-08T08:09:00

Using late binding ;)

VB

Dim oExc As Object = Nothing, oWbk As Object = Nothing
Dim oSrcWsh As Object = Nothing, oDstWsh As Object = Nothing

Try
    oExc = CreateObject("Excel.Applictaion")
    oWbk = oExc.Workbooks.Open("FullPathToWorkbook.xls")

    oSrcWsh = oWbk.WorkSheets("Sheet1")
    oDstWsh = oWbk.WorkSheets("Sheet2")

    oSrcWsh.Range("A1:D1").Copy(oDstWsh.Range("A1"))
    oWbk.Save()

Catch ex As Exception
    Console.WriteLine(ex.Message)

Finally
    oSrcWsh = Nothing
    oDstWsh = Nothing
    oWbk.Close(SaveChanges:=False)
    oWbk = Nothing
    oExc.Quit()
    oExc = Nothing
End Try