Datei kopieren

Horst · 1970-01-01T00:00:00+00:00

Hallo Excel-Jünger, wie kann man per Makro eine bestehende .xls kopieren, umbennen und in einem Speicherordner ablegen? Bei der zu kopierende .xls ist derzeit die Bezeichnung und der Tabellennamen ident. Bei der Kopie soll die Bezeichnung und der Tabellenname jedoch unterschiedlich sein! Beispiel: A.xls mit Tabellenblatt A.xls A.xls soll kopiert werden, neuer Name der Kopie: B.xls, das darin befindliche Tabellenblatt soll aber nicht B.xls, sondern "Tabelle 1" heißen. Wie gehe ich am besten vor? Gruß, Horst

Hallo Tino,
danke für den Code, hab ihn gerade getestet. Die Arbeitsmappe wird kopiert, allerdings steht in der Kopie wieder der gleiche Tabellenname, d.h. im gegebenen Fall heißt die kopierte Mappe "treffer.xls", Arbeitsblatt heißt ebenfalls "treffer", es sollte aber "B" heißen. Was mache ich falsch? Pfadangaben habe ich angepasst. Kann das etwas mit den Einstellungen in der Arbeitsmappe zu tun haben?

Sub Test()
Dim strQuelle$, strZiel$, strNewTabname$
Dim WB_Ex As Workbook
Dim oApp As New Excel.Application
strQuelle = "C:\Dokumente und Einstellungen\User\Desktop\Test_Order\Test_Order\hit.xls" ' _
Quelldatei
strZiel = "C:\Dokumente und Einstellungen\User\Desktop\Test_Order\Test_Order\treffer.xls" ' _
Zieldatei
strNewTabname = "B" 'Tabellenname in Ziel
FileCopy strQuelle, strZiel
With oApp
.EnableEvents = False
.DisplayAlerts = False
On Error Resume Next
Set WB_Ex = .Workbooks.Open(strQuelle)
If Not WB_Ex Is Nothing Then
If Not WB_Ex.ReadOnly Then
'1. Tabelle bekommt diesen Namen, evtl. anpassen
WB_Ex.Sheets(1).Name = strNewTabname
WB_Ex.Close True
End If
End If
.EnableEvents = True
.DisplayAlerts = True
.Quit
End With
End Sub

Hallo Tino,
ich bin drauf gekommen, dass es mit der vom externen Programm generierten Datei zusammenhängt, die irgendwie anders aufgebaut sein dürfte als eine "manuell" erstellte .xls. Mit den downloadbaren Beispiel-Dateien gibt es keinerlei Probleme. Ich habe dir anbei mal diese ominöse "treffer.xls" upgeloadet, kannst mal ausprobieren:
https://www.herber.de/bbs/user/75072.zip
Ziel ist es, dass der Name der Datei und der Tabellennamen NICHT ident sind. Eventuell muss man die Datei auch per Makro nochmal extra unter .xls-Format abspeichern, bevor das Umbenennen des Tabellennamens funktioniert?
Option Explicit

Sub Test()
Dim strQuelle$, strZiel$, strNewTabname$
Dim WB_Ex As Workbook
Dim oApp As New Excel.Application
Dim sPath$
sPath = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
strQuelle = sPath & "treffer.xls"   'Quelldatei
strZiel = sPath & "B.xls" 'Zieldatei
strNewTabname = "C" 'Tabellenname in Ziel
FileCopy strQuelle, strZiel
With oApp
.EnableEvents = False
.DisplayAlerts = False
On Error Resume Next
Set WB_Ex = .Workbooks.Open(strZiel)
If Not WB_Ex Is Nothing Then
If Not WB_Ex.ReadOnly Then
'1. Tabelle bekommt diesen Namen
WB_Ex.Sheets(1).Name = strNewTabname
WB_Ex.Close True
End If
End If
.EnableEvents = True
.DisplayAlerts = True
.Quit
End With
End Sub

Besten Dank für die Hilfe,
Horst

Forumthread: Datei kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel-Datei kopieren und umbenennen mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)