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"