|
Hallo Zusammen,
zwecks Kontrolle sollen Daten aus vielen aber identischen XLSM-Dateien gelesen und auf Fehler geprüft werden
nach ein wenig Recherche habe ich diesen Code zusammengesetzt um mich zunächst mit dem öffnen und auslesen vertraut zu machen:
Private Sub CommandButton1_Click()
'Demo Code um eine Datei zu Öffnnen und einen Wert auszulesen
'Sicherheitshalber ausschalten
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim SourceFile As Workbook
Dim TargetFile As Workbook
Set TargetFile = ThisWorkbook
Dim OpenString As String
OpenString = Application.GetOpenFilename(Title:="Please choose a file to open", FileFilter:="Excel Files *.xlsm*,")
Set SourceFile = Workbooks.Open(OpenString, False, True)
TargetFile.Worksheets(1).Cells(1, 1).Value = Quelldatei.Worksheets("Mantelbogen").Cells(1, 1).Value
SourceFile.Close
'Wieder anschalten
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Problem:
Wenn ich den Code mit einer XLSX-Datei teste funktioniert mein Test. Bei einer XLSM_DAtei nicht. Excel hängt sich dann auf und beschwert sich das ich angeblich zu wenig Arbeitsspeicher habe
Viele Grüße
Cornel
Private Sub CommandButton1_Click()
'Demo Code um eine Datei zu Öffnnen und einen Wert auszulesen
'Sicherheitshalber ausschalten
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim SourceFile As Workbook
Dim TargetFile As Workbook
Set TargetFile = ThisWorkbook
Dim OpenString As String
OpenString = Application.GetOpenFilename(Title:="Please choose a file to open", FileFilter:="Excel Files *.xlsm*,")
Set SourceFile = Workbooks.Open(OpenString, False, True)
TargetFile.Worksheets(1).Cells(1, 1).Value = Quelldatei.Worksheets("Mantelbogen").Cells(1, 1).Value
SourceFile.Close
'Wieder anschalten
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
|