automatisch benannte Datei wieder öffnen
04.04.2005 16:05:56
Thomas
Jetzt möchte ich die automatisch neu geschaffenen Datei wieder aufrufen und mit Werten der Ursprungsdatei bestücken.
Wie rufe ich sie auf?
Mein Übungsbeispiel:
Sub Dateispeichern()
'Datei speichern
Sheets("Tabelle1").Select
Dim FName$, M$, J$
M = ActiveSheet.Range("b3") 'hier steht z.b. der Monat
J = ActiveSheet.Range("c3") 'hier steht z.b. das Jahr
FName = M & "_" & J & ".xls"
ThisWorkbook.SaveAs Filename:=FName
'Ursprungsdatei wieder aufrufen und Wert übertragen
Workbooks.Open Filename:="g:\Mappe2.xls"
Sheets("Tabelle2").Select
Range("b5").Select
Selection.Copy
'jetzt soll die unter dem generierten Namen gespeicherte Datei geöffnet werden
' zB.wie: Windows("Neugeschaffen.xls").Activate
Windows.Activate Filename:=FName ' Dies ist die Form, die VBA zuläßt, aber nicht ausführt
Sheets("Tabelle1").Select
Range("b10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Hat jemand eine Idee?
Vielen Dank schon einmal
Thomas