XLS Datei versteckt öffnen, GetObject?

Sub Öffne Const PfadSQL = "C\SQL Publishes.xlsx" Set wbSQL = Workbooks.Open(PfadSQL, ReadOnly:=True) Set wsSQL = Worksheets("Tabelle1") NumofRow = wsSQL.Cells(Rows.Count, 2).End(xlUp).Row Set rngSQL = wsSQL.Range("B2:B" & NumofRow) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Sub Temp() Dim objSQL As Object Dim ws As Worksheet Const PfadSQL = "SQL Publishes.xlsx" Set objSQL = GetObject(PfadSQL) Set ws = objSQL.Application.Worksheets("Tabelle1") ws.Activate 'FEHLER !!!!!!!! End Sub

Sub tt() Dim wkb As Workbook, blnSWIT As Boolean Dim lngI As Long blnSWIT = Application.ShowWindowsInTaskbar 'Zustand merken With Application .ScreenUpdating = False .ShowWindowsInTaskbar = False 'Fenster in Taskleiste nicht anzeigen End With Set wkb = Workbooks.Open("c:\copy\test.xlsx", ReadOnly:=True) ThisWorkbook.Worksheets(1).Range("A1") = wkb.Worksheets(1).Range("A1") ' Hier mal testweise was tun in der geöffneten Mappe, also ich sehe dann nur die Mappe mit dem _ Makro die Sanduhr und sonst nichts! For lngI = 1 To 100000 wkb.Worksheets(1).Cells(lngI, 2) = lngI Next lngI wkb.Close False With Application .ScreenUpdating = True .ShowWindowsInTaskbar = blnSWIT 'Zustand wiederherstellen End With End Sub

Hallo Holger,
wie Hajo immer so schön zu sagen pflegt, wir können nicht auf deinen Rechner gucken.
Letzter Tipp / Vermutung, schalte mal die Events ab, wenn da irgendwo noch Makros drin sind in den Dateien.

Sub tt()
Dim wkb As Workbook, blnSWIT As Boolean
Dim lngI As Long
blnSWIT = Application.ShowWindowsInTaskbar 'Zustand merken
With Application
.ScreenUpdating = False
.EnableEvents = False
.ShowWindowsInTaskbar = False 'Fenster in Taskleiste nicht anzeigen
End With
Set wkb = Workbooks.Open("c:\copy\test.xlsm", ReadOnly:=True)
ThisWorkbook.Worksheets(1).Range("A1") = wkb.Worksheets(1).Range("A1")
' Hier mal testweise was tun der geöffneten Mappe, also ich sehe dann nur die Mappe mit dem  _
Makro die Sanduhr und sonst nichts!
For lngI = 1 To 100000
wkb.Worksheets(1).Cells(lngI, 2) = lngI
Next lngI
wkb.Close False
With Application
.ScreenUpdating = True
.EnableEvents = True
.ShowWindowsInTaskbar = blnSWIT 'Zustand wiederherstellen
End With
End Sub

Gruß Heiko

Hallo Heiko,
um mit getobject eine datei zu oeffnen musst Du folgendes tun:
Dim MeinWB As Object ' Variable welche die Referenz zur neuen Excel-Instanz beinhaltet
Set MeinWB = GetObject(MeinWorkBook) 'Variable 'MeinWorkbook' haelt den kompletten Pfad und Dateiname zum Workbook z.B. "c:\Meine Dokumente\MeinWB.xls"
ReportWB.Application.EnableEvents = False 'Damit werden die Events fuer die Neue excel-Instanz ausgeschaltet, die startende Instanz hat weiterhin events, falls nicht auch ausgeschaltet.
'Set TargetBook = ReportWB 'Damit wird das Workbook 'Targetbook' als MeinWB gesetzt
Fuer alle aktivitaeten im nicht sichtbaren MeinWB musst Du dieses WB entsprechend referenzieren.
falls Du das Workbook 'MeinWB' sichtbar machen moechtest, musst Du das Kommando
Windows(MeinWB.Name).Visible = True veerwenden bzw. Windows(MeinWB.Name).Visible = False
zumVerstecken.
gruss
Dirk aus Dubai
Falls

Beliebteste Forumthreads (12 Monate)

XLS Datei versteckt öffnen, GetObject?

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

XLS Datei versteckt öffnen, GetObject?

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread