Anzeige
Archiv - Navigation
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien abarbeiten und markieren

Dateien abarbeiten und markieren
08.05.2020 13:47:58
Swisspuma
Hallo zusammen
Ich habe eine Anzahl Excel Datein mit Makro die abgearbeitet werden sollten und im Master vermerkt werden müssen.
Im ersten Code liste ich mir die Datein im Verzeichnis XY auf.
mit dem Zeiten Code sollen die Datein der reihe nach abgearbeitet werden mit dem Paf angezeigt und als erledigt vermerkt werden.
Mit der ersten Zelle klappt das auch wunderbar und ich weiss auch, dass ich in der Sub fileopen() bei (A1) und Cells je eins höchzählen muss.
Aber ich stehe wie ein Esel am Berg.
Bin am Versuchen mit iCounter usw.
Ziel ist es, dass dann alle aufgelisteten Zeilen abgearbeitet werden.
Danke für eure Unterstüzung
Folgenden Code habe ich schon:
 Sub DateienAuflisten()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:\Users\ua00011t\Documents\BigMove\Report 03.03. _ _
_
_
2020\")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 1
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub

Sub fileopen()
Dim strPfad As String
strPfad = _
ActiveWorkbook.Path & "\" & Worksheets("Tabelle1").Range("A1")
Application.Workbooks.Open (strPfad)
Dim extWB As Workbook, strExtName As String
Set extWB = GetObject(strPfad) 'Name der externen xlsm
strExtName = extWB.Name
Application.Run strExtName & "!EmailManuellAbsenden" 'Makro ausführen
extWB.Close
Set extWB = Nothing
Sheets("Tabelle1").Cells(1, 2) = strPfad
Sheets("Tabelle1").Cells(1, 3) = "erledigt"
End Sub

https:\/\/www.herber.de/bbs/user/137368.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien abarbeiten und markieren
08.05.2020 19:30:21
Swisspuma
Konnte es lösen.
Lösung folgt!
AW: Dateien abarbeiten und markieren
12.05.2020 08:34:40
Swisspuma
So, hallo zusammen
Hier der Code, mit dem ich eine File nach dem anderen öffne, das Makro ausführe und als erledigt im Master eintrage.
Sub fileopen()
Dim j As Integer
Dim Zeile As Integer
Dim strPfad As String
Dim dtHeute As String
dtHeute = Format(Now(), "DD.MM.YYYY")
Dim aktZeit As String
aktZeit = Format(Now(), "HH:MM:SS")
Zeile = ActiveCell.Row
j = 1
Do While IsEmpty(Cells(j, Zeile)) = False
strPfad = _
ActiveWorkbook.Path & "\" & Worksheets("Tabelle1").Cells(j, 1)
Application.Workbooks.Open (strPfad)
Dim extWB As Workbook, strExtName As String
Set extWB = GetObject(strPfad) 'Name der externen xlsm
strExtName = extWB.Name
Application.Run strExtName & "!Emailsenden"  'Makro ausführen
extWB.Close
Set extWB = Nothing
Worksheets("Tabelle1").Cells(j, 2) = strPfad
Worksheets("Tabelle1").Cells(j, 3) = "erledigt"
Worksheets("Tabelle1").Cells(j, 4) = dtHeute
Worksheets("Tabelle1").Cells(j, 5) = aktZeit
j = j + 1
Loop
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige