WkbOpenInvisible...kann nicht auf Sheets zugreifen
27.08.2014 09:48:53
Thorben
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