Opening Excel with password in VB 6

[DocGrimm]

First hello all, and thanks for answering.

What I'm trying to do is trying to read a single cell (say B2) from an Excel spreadsheet from within VB6.

I've had some success reading unprotected spreadsheets, but I just can't seem to bring it all together. I've searched the forums and don't see anything that can specifically help me.

Can anyone help me out here?

Thanks

 

[combo]

Hi,
With early binding:

Dim xlApp As Excel.Application
Dim xlWbk As Excel.Workbook
Set xlApp = New Excel.Application
xlApp.Visible = True 'make it visible to avoid ghost on crash
Set xlWbk = xlApp.Workbooks.Open(FileName:="c:\wbk.xls", Password:="x")
MsgBox xlWbk.Worksheets(1).Range("B2")

combo

 

[DocGrimm]

Thanks,

This was exactly what I was looking for.