How do I display the values from a specified Range?

Question

0.00/5 (No votes)

See more:

Hi everyone,

In simple terms I would like to use Vb.net to extract the values of a range of specified cells from an excel workbook and display those values onto a form. I have no problems opening or running the excel application/workbook; I can even read a single cell or multiple cells from the workbook and display that value onto my form; however I have to specify each individually.

My question is: how can I read and then display the values from a specific range of cells (i.e. "A1:A6") onto a form?

Thank you very much.

Below is the code I had written. I know it is incorrect, any help would be greatly appreciated.

'Import

Imports Excel = Microsoft.Office.Interop.Excel

VB

Dim xlApp As Application = New Application
        Dim xlWorkBook As Workbook = xlApp.Workbooks.Open("FileName")
        Dim xlSheet As Worksheet = xlWorkBook.ActiveSheet
        Dim myRange As Excel.Range
        Dim rCount As Integer
        Dim cCount As Integer
        Dim Obj1, Obj2, Obj3 As Object

        myRange = xlSheet.Range("A2:A6")

        For rCount = 1 To myRange.Rows.Count
            For cCount = 1 To myRange.Columns.Count
                Obj1 = CType(myRange.Cells, Excel.Range)
                Obj2 = CType(myRange.Cells, Excel.Range)
                Obj3 = CType(myRange.Cells, Excel.Range)
                displayLabel.Text = Obj1.value + Environment.NewLine +
                                    Obj2.value + Environment.NewLine +
                                    Obj3.value
            Next
        Next

        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlSheet)

Posted 18-Aug-15 3:46am

Member 11917664

Updated 18-Aug-15 3:47am

v2

Add a Solution

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)

CHill60 · Accepted Answer · 2015-08-18T05:15:00

If you debug your code you will find that Obj1 contains all of the values in your range, not just a single cell.

I also prefer to use the StringBuilder class rather than concatenating strings (you will need Imports System.Text)

So potentially the easiest way to iterate through all of the cells would be

VB

Dim sb As StringBuilder = New StringBuilder("")
For Each c As Excel.Range In myRange.Cells
    sb.Append(c.Value2)
    sb.Append(Environment.NewLine)
Next
displayLabel.Text = sb.ToString()

Note this also works if your range spans across multiple columns e.g. if you had

myRange = xlSheet.Range("A2:B6")

you would get the values from

A2
B2
A3
B3 etc