Get values from Certain Cells in Excel Document

[Cyb3rH4Xter]

I want to retrieve the value from example Cell C4 and dim it as String and then retrieve Cell D8 and dim as string etc.

How do i do this the easy way?

[ForumAccount]

You will have to make references to the Excel library and use the Excel.WorkSheet.Range method to access the cells. I'm sure RobDog888's signature shows some simple examples of how to do this.

[Bulldog]

Oddly enough, I just wrote something similar for debugging, maybe you can just adapt this.

You need;
Imports System.Runtime.InteropServices
and add a reference for;
Microsoft Excel 10.0 Object Library

note sure if you actually need references for these, but these are set in my project;
Microsoft Office 10.0 Object Library
Microsoft Visual Basic for Applications Extensibility 5.3

    Private Sub ReadExcelFields(ByVal FileName As String)

        Dim xlApp As Excel.Application = CreateObject("Excel.Application")
        xlApp.DisplayAlerts = False
        xlApp.Visible = False

        Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(FileName, False, True)
        Dim xlSheet As Excel.Worksheet = xlBook.Worksheets(1) 'Worksheet number

        Dim LastRow As Integer = xlSheet.UsedRange.Rows(xlSheet.UsedRange.Rows.Count).Row
        Dim LastCol As Integer = xlSheet.UsedRange.Columns(xlSheet.UsedRange.Columns.Count).Column

        With xlSheet.Application
            For row As Integer = 1 To LastRow
                For col As Integer = 1 To LastCol
                    If Not IsNothing(.Cells(row, col).Value) Then
                        'Cell has a value;
                        MessageBox.Show(.Cells(row, col).Value.ToString())
                    Else
                        'Blank Cell
                    End If
                Next
            Next
            .Quit()
        End With

        'Get rid of Excel objects
        If Not IsNothing(xlSheet) Then
            Marshal.ReleaseComObject(xlSheet)
            xlSheet = Nothing
        End If
        If Not IsNothing(xlBook) Then
            Marshal.ReleaseComObject(xlBook)
            xlBook = Nothing
        End If
        If Not IsNothing(xlApp) Then
            Marshal.ReleaseComObject(xlApp)
            xlApp = Nothing
        End If

    End Sub