Zugriff auf geschlossene Excel-Datei
25.04.2006 22:10:14
Sophie
hätte da mal eine Frage.
Ist es möglich bei einer nicht geöffneten Excel Datei deren Tabellenblätter zu kopieren, also ohne sie zu öffnen und die Kopierten Tabellenblätter in eine bereits geöffneten Datei einzufügen.
Mit einzelnen Zellen funktioniert dies ja, hab in der Recherche schon was gefunden, konnte dieses aber nicht ummünzen, sodaß die kompletten Tabellenblätter kopiert werden.
Der Hintergrund ist dieser, daß es ziemlich große Dateien mit vielen Tabellenblätter sind worauf ich zugreifen will, wobei ich von diesen nur wenige Tabellenblätter benötige, wenn ich diese Datei aber öffne, dauert dies ziemlich lange und somit möchte ich wenn möglich den Öffnungsvorgang umgehen.
Dies hab ich in der Recherche gefunden, wie gesagt nur einzelne Zellen.
Option Explicit
Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function
Sub AktualBasismittel()
Dim strSource As String
Dim i As Integer
'Tabellenblatt selektieren
Sheets("Basismittel").Select
Range("A1").Select
'Budget-Schleife
For i = 1 To 8 Step 1
strSource = "'C:\TEMP\[BASMIT.xls]BASMIT'!R" & i + 6 & "C2"
ActiveCell.Offset(3, 3 + i).Value = xl4Value(strSource)
Next i
End Sub
Gruss
Sophie