Check a value in Excel

[Zygor]

Is there a way to check the value of a cell in a closed workbook, before I import it into Access?

 

[CautionMP]

Yes, off the top of my head there are two options:

You can open the workbook using OLE and check the cell.
- or -
You can query the workbook using ADO to check the cell.

Do you have a technology preference?

CMP

(GMT-07:00) Mountain Time (US & Canada)

 

[Zygor]

Thanks for the response. Here's what I came up with

Private Function ValidateVersion(strFileToCheck As String) As Boolean
Dim objXL As Excel.Application
Dim objWkb As Excel.Workbook
Dim objSht As Excel.Worksheet

Set objXL = New Excel.Application

Set objWkb = objXL.Workbooks.Open(strFileToCheck)

Set objSht = objWkb.Worksheets("tblResults")

If InStr(1, objSht.Cells(2, 28).Value, "2.5") Then
ValidateVersion = True
Else
ValidateVersion = False
End If

DoEvents

objXL.Quit

Set objSht = Nothing
Set objWkb = Nothing
Set objSht = Nothing

End Function

 

[CautionMP]

That pretty much matches my picture of option 1, does it do what you need it to do or are you still having a problems?

CMP

(GMT-07:00) Mountain Time (US & Canada)

 

[Zygor]

It worked like I hoped. Thanks.