Thema Datum  Von Nutzer Rating
Antwort
02.11.2020 09:29:19 Max
NotSolved
02.11.2020 11:11:09 Gast28735
NotSolved
02.11.2020 11:19:41 Max
NotSolved
02.11.2020 12:11:48 Gast75486
NotSolved
02.11.2020 13:05:41 Max
NotSolved
Blau Excel Macro für mehrer Dateien anwenden
02.11.2020 15:39:16 Gast78342
NotSolved
02.11.2020 15:42:11 Max
NotSolved
02.11.2020 15:49:23 Gast7458
NotSolved
02.11.2020 15:51:17 Max
NotSolved
02.11.2020 16:00:01 Gast7458
NotSolved
02.11.2020 16:01:17 Gast53295
NotSolved

Ansicht des Beitrags:
Von:
Gast78342
Datum:
02.11.2020 15:39:16
Views:
829
Rating: Antwort:
  Ja
Thema:
Excel Macro für mehrer Dateien anwenden

Hallo,

ok, das würde in etwa so aussehen, ist jetzt Luftcode, aber so die Richtung...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Public Sub example()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWorkbook As Workbook
    Dim strPath As String
    strPath = "C:\ordner1\...\" '// Dein Pfad anpassen...
    Set objFSO = CreateObject(Class:="Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPath)
    For Each objFile In objFolder.Files
        Set objWorkbook = Workbooks.Open(Filename:=strPath & objFile.Name)
        Call DeinMakro
        Call objWorkbook.Save
        Call objWorkbook.Close
    Next
    Set objWorkbook = Nothing
    Set objFSO = Nothing
    Set objFolder = Nothing
End Sub

Gruß,


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.11.2020 09:29:19 Max
NotSolved
02.11.2020 11:11:09 Gast28735
NotSolved
02.11.2020 11:19:41 Max
NotSolved
02.11.2020 12:11:48 Gast75486
NotSolved
02.11.2020 13:05:41 Max
NotSolved
Blau Excel Macro für mehrer Dateien anwenden
02.11.2020 15:39:16 Gast78342
NotSolved
02.11.2020 15:42:11 Max
NotSolved
02.11.2020 15:49:23 Gast7458
NotSolved
02.11.2020 15:51:17 Max
NotSolved
02.11.2020 16:00:01 Gast7458
NotSolved
02.11.2020 16:01:17 Gast53295
NotSolved