Problem beim einlesen von XLSM Dateien

Hallo zusammen,

folgendes Problem:

ich habe mehrere XLSM Dateien und möchte aus dem Formular in Sheet1 verschiedene Zellen auslesen.

Leider entsteht das Problem, dass beim einlesen die makros dieser Formulare mit ausgeführt werden. Das führt zu enigen Problemen.

Kann ich irgendwie verhindern, dass die Makros beim einlesen mit gestartet werden. Ich möchte ja nur mein makro ausführen. Mit xlsx Dateien geht es ohne Probleme.

Code sieht wie folgt aus:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Test
  Dim strPath As String, ws As Worksheet, cFile As String


    Application.DisplayAlerts = False

    Application.ScreenUpdating = False


    strPath = "C:\Users\Datei\Desktop\Test\"  

    cFile = Dir(strPath & "\*.xlsm")  

    With ActiveSheet

        Do While cFile <> ""  

            Set ws = GetObject(strPath & "\" & cFile).Sheets(1)  

            With .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
                
                .Resize(1, 1).Value = WorksheetFunction.Transpose(ws.Range("L2"))  
              
                
            End With
            
             With .Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)  

            .Resize(1, 1).Value = WorksheetFunction.Transpose(ws.Range("P2"))  
               
            End With
            
             With .Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)  

            .Resize(1, 1).Value = WorksheetFunction.Transpose(ws.Range("E3"))  
                
             End With

            ws.Parent.Close False

            cFile = Dir

        Loop

        .Range("A:IT").EntireColumn.AutoFit  

    End With

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True


    MsgBox "Dateien wurden eingelesen", vbInformation  

End Sub

Bin für jede hilfe dankbar.

Grüße

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Kommentar vom Moderator tomolpi am 20.01.2020 um 13:50:36 Uhr

Code-Tags hinzugefügt

Content-ID: 537471

Url: https://administrator.de/forum/problem-beim-einlesen-von-xlsm-dateien-537471.html

Ausgedruckt am: 13.04.2025 um 17:04 Uhr

4 Kommentare

Neuester Kommentar

Am Anfang des Codes ein

1
Application.EnableEvents = false

setzen und am Ende ein

1
Application.EnableEvents = True

Hallo,

so kann man die Makros abschalten:

1
2
3
4
5
6
7
Sub Datei_oeffnen_ohne_Makro()
Dim WB As Workbook
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    Pt_Fl = Application.GetOpenFilename()
    Set WB = Workbooks.Open(Pt_Fl)

End Sub

mfg

Vielen Dank. Das habe ich gesucht!

Kann ich auch Unterordner mit einbeziehen bei der suche nach xlsm Dateien?

Im Moment geht das leider nicht.

Grüße