Leggere contenuto foglio Excell

Dim objExcel As Excel.Application
Dim wkb As Workbook
Dim wks As Worksheet
'

'**********************************************

NB) ho inserito riferimento di Excell
'**********************************************


Set objExcel = New Excel.Application
Set wkb = objExcel.Workbooks.Open(FileName:="c:\Prova\prova.xls")
Set wks = wkb.Worksheets("Foglio1")
'


objExcel.Visible = True
'

Dim I As Long
I = 1
Do
Stringa = wks.Cells(I, 1).Formula
Stringa = wks.Cells(I, 2).Formula
Stringa = wks.Cells(I, 3).Formula
Stringa = wks.Cells(I, 4).Formula

I = I + 1

Loop
wkb.Close
'


Set wks = Nothing
Set wkb = Nothing
Set objExcel = Nothing