Herbers Excel-Forum - das Archiv

geöffnete Datei wieder schliessen

Bild

Betrifft: geöffnete Datei wieder schliessen
von: Klaus

Geschrieben am: 05.04.2005 06:56:07
Guten Morgen zusammen
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
Bild

Betrifft: AW: geöffnete Datei wieder schliessen
von: Hajo_Zi

Geschrieben am: 05.04.2005 07:19:12
Hallo Kalus,
verzichte auf select, Activate usw. Dann brauchst Du nur
ActiveWorkbook.Close True
True =Speichern

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: geöffnete Datei wieder schliessen
von: Klaus
Geschrieben am: 05.04.2005 07:37:18
Hallo Hajo
Vielen Dank für deine Antwort. Aber wie soll das denn aussehen? kannst du meinen Code so ändern, dass es funktioniert??
Gruss Klaus
Bild

Betrifft: AW: geöffnete Datei wieder schliessen
von: Hajo_Zi

Geschrieben am: 05.04.2005 07:42:48
Hall Klaus.
ich habe es jetzt nicht getestet.
Option Explicit
Sub Vorhanden()
Dim Datei As String
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
Cells.Copy Destination:=Workbooks("Angebotsvorlage.xls").Worksheets("Tabelle1").Cells
'    Cells.Copy Destination:=Workbooks("Angebotsvorlage.xls").Worksheets("Tabelle1").Range("A1")
ActiveWorkbook.Close True
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: geöffnete Datei wieder schliessen
von: Klaus
Geschrieben am: 05.04.2005 08:19:40
Hallo Hajo
Nochmals vielen Dank für deine Hilfe. Es funktioniert prima.
Gruss Klaus
 Bild
Excel-Beispiele zum Thema "geöffnete Datei wieder schliessen"
Bei falscher Eingabe alten Wert wiederherstellen Zufallszahlen generieren, die sich nicht wiederholen
Startansicht wiederherstellen Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten
Zum Druck auf Fax-Drucker umschalten und wieder zurück Druck einer Tabelle mit wechselndem Wiederholungszeilentext
Vor dem Druck Zeilen einfügen und danach wieder löschen Keine Wiederholung fett geschriebener Zahlen
Teilbereiche als Wiederholungszeilen anlegen Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen