Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel Datei als Kopie öffnen

531 views
Skip to first unread message

Andreas

unread,
Sep 24, 2009, 11:16:02 AM9/24/09
to
Hallo Leute,

über den Windows Explorer (Rechts-Klick) kann ich über den Menuepunkt "Neu"
eine Kopie einer Excel Datei öffnen. Das hat den Vorteil, dass ich beliebig
viele derartige Kopien ein und derselben Datei gleichzeitig in Excel offen
haben kann.

Geht dies auch beim Öffnen einer Datei per VBA? Ich möchte also per VBA eine
Datei mehrmals öffnen (read only), ohne dass ich die einzelnen Kopien
irgendwo speichern muss.

Wer kann mir da helfen?

Vielen Dank im Voraus.

Grüße,
Andreas


Andreas Killer

unread,
Sep 24, 2009, 2:40:16 PM9/24/09
to
Andreas schrieb:

> über den Windows Explorer (Rechts-Klick) kann ich über den Menuepunkt "Neu"
> eine Kopie einer Excel Datei öffnen. Das hat den Vorteil, dass ich beliebig

Das wäre dann eine neue Datei mit Vorlage aus der alten Datei:

Workbooks.Add Template:="Z:\Mappe1.xls"

> Geht dies auch beim Öffnen einer Datei per VBA? Ich möchte also per VBA eine
> Datei mehrmals öffnen (read only), ohne dass ich die einzelnen Kopien
> irgendwo speichern muss.

Das geht nur wenn Du eine neue Instanz erzeugst:

Sub test()
Dim Pfad As String, App As Excel.Application
With ActiveWorkbook
Pfad = .Path & "\" & .Name
End With
Set App = New Application
App.Visible = True
App.Workbooks.Open Pfad, , True
End Sub

Andreas.

Andreas

unread,
Sep 24, 2009, 4:33:02 PM9/24/09
to
Hallo Andreas,

Klasse! Die Methode

Workbooks.Add Template:="Z:\Mappe1.xls"

ist genau das, was ich suche.

Vielen Dank für den Tipp.

Ciao,
Andreas

0 new messages