title image


Smiley Guten Tag, Arbeitsblatt!
Hi,



etwa so:





Public Sub GetXlSheets(ByVal xlFile As String)



Dim objXl As Excel.Application

Dim objWb As Excel.Workbook

Dim objSh As Excel.Worksheet





On Error GoTo ErrHandler



Set objXl = New Excel.Application

Set objWb = objXl.Workbooks.Open(xlFile)



For Each objSh In objWb.Sheets

MsgBox "Ich bin das Worksheet mit Namen '" & objSh.Name & "'"

Next objSh



ErrExit:

On Error Resume Next

Set objSh = Nothing

objWb.Close False

Set objWb = Nothing

objXl.Quit

Set objXl = Nothing

Exit Sub



ErrHandler:

MsgBox Err.Description

Resume ErrExit

End Sub







Wird der Zugriff so programmiert, benötigst Du zusätzlich einen Verweis auf die MS Excel Object Library.



Aufruf dann etwa so:





Call GetXlSheets("C:\Temp\DeinFile.xls")





Wichtig ist bei der Automation von Excel, dass man immer sauber mit Objektvariablen arbeitet; immer sauber eine Objektvariable für jedes Excel-Objekt (Application, Workbook, Worksheet, Range etcpp.) deklarieren, das ist schon die halbe Miete.



Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: