Dateien mit gleichen Namen öffnen

Sophie · 2008-02-04T10:44:00+00:00

Hallo zusammen, habe da eine Frage: Habe z.B. die Datei "Test" für das aktuelle Jahr, für das Jahr 2007, Jahr 2006 usw. Da der Dateiname immer exakt der gleiche ist (liegt nur in einem anderen Ordner), gelingt es mir nicht diese gleichzeitig zu Öffnen, ohne eine davor wieder zu schließen. Brauche sie aber alle geöffnet. Gibt es irgendwie eine Möglichkeit um dieses umzusetzen? Umbenennen kann ich Sie leider nicht, möchte sie auch nicht unter einen neuen Namen abspeichern. Für Eure Hilfe bin ich Euch sehr dankbar. Gruß Sophie

sie machen will.
Damit kann man wenigstens kopieren, wenn's auch ein ziemlicher Umstand ist. Ich würde einfach die Dateien Zwischenspeichern unter anderem Namen und diese dann wieder löschen. Ist wohl das einfachste.


Sub Instanz2()
Dim objXL As Object
Dim Pfad As String, nam As String
Pfad = ThisWorkbook.Path & "\test.xls"
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
objXL.WindowState = -4137
On Error Resume Next
objXL.Workbooks.Open Pfad
If Err Then objXL.Quit
Set objXL = Nothing
Dim objApp As Object, objApp1 As Object
On Error Resume Next
Set objApp = GetObject("C:\Documents and Settings\stadter\Desktop\test.xls")
If Err.Number = 0 Then
objApp.Sheets(1).Range("A1").Copy
objApp.Application.Quit
Set objApp = Nothing
End If
ThisWorkbook.Sheets(1).Activate
ThisWorkbook.Sheets(1).Range("A1").Select
ActiveSheet.Paste
End Sub

Gruß
Chris

Servus Sopie,


Sub Instanz2()
Dim objXL As Object
Dim Pfad As String, nam As String
Pfad = ThisWorkbook.Path & "\test.xls" 'Hier ist der Pfad der zu öffnenden Datei z.B.: "C:\..."
Set objXL = CreateObject("Excel.Application") ' Hier wird eine neue Excelinstanz kreiert
objXL.Visible = True ' sichtbar
objXL.WindowState = -4137 ' Fenstergröße normal
On Error Resume Next ' falls Fehler
objXL.Workbooks.Open Pfad ' die datei test.xls wird in der neuen Instanz geöffnet.
If Err Then objXL.Quit ' bei Fehler schließen
Set objXL = Nothing ' zurücksetzten
Dim objApp As Object ' ab hier greifst du auf die andere Instanz zu
On Error Resume Next
Set objApp = GetObject("C:\Documents and Settings\stadter\Desktop\test.xls") ' Hier muss  _
zwingend der Pfad für die Datei test.xls angegeben werden
If Err.Number = 0 Then ' quasi wenn offen, dann
objApp.Sheets(1).Range("A1").Copy ' Hier käme jetzt ein Code, wichtig ist es muss überall  _
objApp davorstehen, wenn es in der neuen Instanz geschehen soll (hier kopieren Tabelle1.A1)
objApp.Application.Quit ' nach Code-Ende neue Instanz schließen
Set objApp = Nothing
End If
ThisWorkbook.Sheets(1).Activate ' in der Ursprungsdatei kopierte zelle aus test.xls einfügen
ThisWorkbook.Sheets(1).Range("A1").Select
ActiveSheet.Paste
End Sub

Also es geht viel, wenn man will. ist aber wie gesagt auch etwas umständlich, da du das für alle Dateien so machen musst. Einfacher ist es, die Dateien in Temp unter anderem, eindeutigem Namen zwischenzuspeichern und dann abzuarbiten und danach wieder zu löschen.
Viel Spass
Gruß
Chris

Dateien mit gleichen Namen öffnen

Forumthread: Dateien mit gleichen Namen öffnen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial