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

Beiträge aus den Excel-Beispielen zum Thema "geöffnete Datei wieder schliessen"