title image


Smiley Re: VBA- Excelmappen per Makro öffnen
Hi,



die folgende Prozedur öffnet, kann ein bestimmtes Sheet aktivieren und bringt Fehlermeldungen, wenn z.B. das Workbook oder das zu aktivierende Worksheet nicht existiert:





Public Sub GetWorkbook(ByVal strFileName As String, Optional strSheet As Variant = 1)



Dim objWb As Excel.Workbook



On Error GoTo ErrHandler



Set objWb = Workbooks.Open(strFileName)

objWb.Sheets(strSheet).Activate



ErrExit:

On Error Resume Next

Set objWb = Nothing

Exit Sub



ErrHandler:

MsgBox Err.Description, vbCritical, "GetWorkbook: Fehler " & Err.Number & " aufgetreten!"

Resume ErrExit



End Sub







Die Prozedur einfach in ein allgemeines Modul kopieren. Aufruf z.B. so:





Call GetWorkbook("C:\Temp\asdf.xls") ' Default-Sheet (= 1) aktivieren

Call GetWorkbook("C:\Temp\asdf.xls", 3) ' Sheet Nummer 3 aktivieren

Call GetWorkbook("C:\Temp\asdf.xls", "Umsätze") ' Sheet mit Namen "Umsätze" aktivieren





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: