Visual Basic para Aplicaciones - Accesar a un dato en excel dessde VB

Como acceso a leer atos de alguna columna en excel desde un programa en visual basic

Private Sub Contar_Grupos()
Dim ToTaL As Integer
Dim CoDigoX As Integer

Set exlobj = New Excel.Application

Set exlobj = CreateObject("excel.application") ' Initialize the excel object
Set objsheet = exlobj.ActiveSheet
exlobj.Workbooks.Open (App.Path + "\MEP\MINICIALX.xls")
exlobj.Visible = True
Worksheets(4).Activate
' exlobj.Workbooks.Add

With exlobj.ActiveSheet
Total = .Cells(26, 7).Value
.Cells(26, 7).Font.Size = 14
End With
end Sub.

Con esto espero poder contestar a tu duda, cualquier cosa, solo escribeme a [email protected], con gusto te ayudare por cualquier cosa

Joder (perdon)

Te arreglo un poco ese codigo, o lo intento al menos

Private Sub Contar_Grupos()
Dim Total As Integer

Set exlobj = New Excel.Application
exlobj.Workbooks.Open (App.Path + "\MEP\MINICIALX.xls")
Set objsheet = exlobj.Worksheets.Item(4)

exlobj.Visible = True 'Es necesario que se abra la excel?

With objsheet
Total = .Cells(26, 7).Value
.Cells(26, 7).Font.Size = 14
End With

end Sub.

Defines variables que no usas, llamas a hojas del libro 2 veces y luego no las usas y usas el activesheet...

Lo primero que tienes que hacer es llamar a la hoja excel:

Set Libro = New Excel.Application
Libro.Workbooks.Open FileName:=Ruta_Archivo
Libro.DisplayAlerts = False
Set Hoja = Libro.Worksheets.Item(1) '1 para que sea la primera hoja, si quieres otra solo tienes que cambiarlo

Luego con las propiedades si quieres ver por ejemplo todos los datos de la columna C seria:

Do While i <= Hoja.Range("A65536").End(xlUp).Row 'hasta el final de la hoja
If Hoja.Cells(i, "C") <> "No" Then 'una simple comprobacion
prueba = Hoja.Cells(i, "C")
End If
i = i + 1
Loop

es fácil no?