[vb outlook] open file excel allegato

[roberto1969]

Io utilizzo outlook2007 e excel 2007.
Non riesco ad aprire file excel ricevuti come allegato e salvati in precedenza.
Di seguito uno stralcio del codice.

Dim ExcelSheet As Object
Set ExcelSheet = GetObject("D:\0023_0002_2.xls")
ExcelSheet.Application.Visible = True
a = ExcelSheet.Application.Cells(4, 5).Value
b = ExcelSheet.Application.Cells(5, 5).Value
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

Qualcuno riesce ad aiutarmi o a darmi un metodo alternativo?
Le variabili a e b non vengono valorizzate......

ringrazio in anticipo.

[galavott]

Prova con questo (ho un po copiato in giro e riadattato)
Devi mettere il tuo percorso corretto, il nome del foglio di lavoro e le celle che ti servono.
A me funziona con Office 2003 (non ho il 2007).

Public Sub OpenExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim a As String
Dim b As String

Set xlBook = GetObject("C:\Prova.xls")
Set xlSheet = xlBook.Worksheets("Foglio1")

a = xlSheet.Range("A1").Value
b = xlSheet.Range("A2").Value
MsgBox a & " - " & b
xlBook.Close (True) ' False per non salvare le modifiche

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

[roberto1969]

perfetto funziona.
ciao grazie