Option Explicit
 
Sub ExcelFusszeileAuslesen()
 
'Unter "Extras", "Verweise" den Eintrag "Microsoft Excel x.0 Object Library"
' auswählen
 
Dim Excel As Excel.Application
 
Dim WB As Workbook
 
Dim WS As Worksheet
 
Dim Datei As String
 
Dim Fusszeilentext As String
 
Datei = "d:\irgendwas\fusszeile.xls"
 
Set Excel = New Excel.Application
 
Set WB = Excel.Workbooks.Open(Datei)
 
Set WS = WB.Sheets("Tabelle1")
 
Fusszeilentext = WS.PageSetup.RightFooter
 
WB.Close (False)
 
Set WS = Nothing
Set WB = Nothing
Set Excel = Nothing
 
MsgBox Fusszeilentext
 
End Sub

EALA FREYA FRESENA