Microsoft Excel

Herbers Excel/VBA-Archiv

WkbOpenInvisible...kann nicht auf Sheets zugreifen

Betrifft: WkbOpenInvisible...kann nicht auf Sheets zugreifen von: Thorben
Geschrieben am: 27.08.2014 09:48:53

Moinsen alle,

ich habe folgendes Problem mit einem aus dem Netz gefundenen Code.
Damit möchte ich die zu beschreibende Datei unsichtbar öffnen:

  • Public Sub WkbOpenInvisible()
        'Bildschirmaktualisierung ausschalten
        Application.ScreenUpdating = False
        'Anzeige der Fenster in Taskleiste ausschalten
        Application.ShowWindowsInTaskbar = False
        'Mappe öffnen
        Workbooks.Open "C:\Pfad\Pfad\Pfad\Pfad\Pfad\blank.xlsx"
        'Fenstertitel in Varibale einlesen
        strWindowName = ActiveWindow.Caption
        'Fenster (Mappe) ausblenden
        Windows(strWindowName).Visible = False
        'Anzeige der Fenster in Taskleiste wieder einschalten
        Application.ShowWindowsInTaskbar = True
        'Bildschirmaktialisierung einschalten
        Application.ScreenUpdating = True
    End Sub
    Public Sub WkbVisible()
        'Ausgeblendete Mappe einblenden
        Windows(strWindowName).Visible = True
        'oder ausgeblendete Datei schließen
        Windows(strWindowName).Close SaveChanges:=True
    End Sub


  • Jetzt meine Sub mit der ich aus Access in die "unsichtbare Datei" schreiben möchte:

    Sub Integral()
    Dim dbe As Object ' As DAO.DBEngine
    Dim db As Object ' As DAO.Database
    Dim rs As Object ' AS DAO.Recordset
    Dim dbfile As String
    Dim sSQL As String
    Dim i As String
    Dim WkSh_Z As Worksheets

    WkbOpenInvisible ' Exceldatei unsichtbar öffnen

    '----- Sheet 1 -----

    Set WkSh_Z = Worksheets("Integral")

    Hier setzt der Debugger an. Ich vermute bedingt durch die "unsichtbare Datei"!
    Wie kann ich jetzt auf das Sheet zugreifen?

    Danke schonmal für eure Hilfe

    MfG
    Thorben

      

    Betrifft: AW: WkbOpenInvisible...kann nicht auf Sheets zugreifen von: yummi
    Geschrieben am: 27.08.2014 10:13:46

    Hallo Thorben,

    du musst bevor du den Verweis auf das sheet machst, erstmal das richtige Workbook ansprechen:

    dim wkb as workbook
    dim wks as worksheet
    
    'direkt nach öffnen
    Set wkb = ThisWorkbook
    Set wks = wkb.Sheet("name oder index")
    
    wenn du wks global anlegst, kannst Du das sheet jederzeit von überall ansprechen und bearbeiten ohne es zu aktivieren.

    Gruß
    yummi


      

    Betrifft: AW: Hallo yummi, Vielen Dank! owT von: Thorben
    Geschrieben am: 28.08.2014 09:46:14

    .


     

    Beiträge aus den Excel-Beispielen zum Thema "WkbOpenInvisible...kann nicht auf Sheets zugreifen"