Nach kopieren Datei schließen
07.11.2003 09:21:41
Sascha
ich habe in einem Verzeichniss mehrere Excel Dateien. Diese sollen nacheinander geöffnet, ein bestimmter Zellbereich kopiert, und danach wieder geschlossen werden. das Öffnen sowie das Kopieren funktioniert Problemlos. Einzig beim schließen stürzt Excel regelmäßig ab. Ich hab hier mal das Makro für das Öffnen und Kopieren.
Sub getdata()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim mappe As String
Dim i As Integer
mappe = ThisWorkbook.Name
Sheets("test").Activate
Range("A2:BH65000").Select
With Selection
.ClearContents
.ClearFormats
End With
Range("A2").Select
With Application.FileSearch
.NewSearch
.LookIn = "U:\Project_PA\Analysis_Concepts\Test"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Range("A7:A56 , A58:A107 , A110:A159 , A161:A210 , A108 , A211:A212") _
.EntireRow.Copy
Workbooks(mappe).Activate
Sheets("test").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(203, 0).Select
Next i
End With
Call copydata
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Das schließen der Dateien soll möglichst noch innerhalb der For Next -Schleife erfolgen um das Sytem nicht mit zu viel geöffneten Datein zu überlasten.
Danke für eure Hilfe,
Sascha
Anzeige