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:
640		 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...

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