geöffnete Datei wieder schliessen
05.04.2005 06:56:07
Klaus
Mit
Sub Vorhanden()
ChDrive "C:\Daten"
ChDir "C:\Daten"
Datei = Application.GetOpenFilename _
("Microsoft Excel-Dateien (*.xls), *.xls")
If Datei = False Then Exit Sub
Workbooks.OpenText Filename:=Datei, Origin:=xlWindows
öffne ich irgendeine Datei (z.B: "Klaus.xls")
Dann kopiere ich mit
Cells.Select
Selection.Copy
Windows("Angebotsvorlage.xls").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
End
End Sub
die Daten aus "Klaus.xls" in die Angebotsvorlage.xls
Nun möchte ich die Datei "Klaus.xls" wieder schliessen. Dieser Dateiname ist natürlich variabel.
Wie geht das?
Vielen Dank schon einmal
Gruss Klaus