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

Datein eines Ordners öffnen und prüfen?

Forumthread: Datein eines Ordners öffnen und prüfen?

Datein eines Ordners öffnen und prüfen?
03.01.2006 15:22:49
Gustav
Hallo, gibt es eine Möglichkeit alle Excel-Dateien eines Ordners der Reihe nach zu öffnen, jeweils die Summe der Spalte C zu überprüfen und bei der Summe 0 die Datei in den Unterordner "Leer" zu verschieben? Wenn die Summe ungleich 0 ist, soll die Datei einfach wieder geschlossen werden.
Vielen Dank für die Anregungen.
Gustav
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datein eines Ordners öffnen und prüfen?
03.01.2006 16:47:00
Josef
Hallo Gustav!
Spalte C in welchem Tabellenblatt (Name) ?
Haben die Tabellen immer den gleichen Namen?
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Datein eines Ordners öffnen und prüfen?
03.01.2006 17:38:53
Josef
Hallo Gustav!
Ich nehme mal an, das die Tabellen immer den selben Namen haben!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long

Sub GetSumAndMove()
Dim strPath As String, strMove As String, strSheet As String, strRange As String
Dim objFS As FileSearch, objFSO As Object
Dim lngIndex As Long, varResult As Variant

'#### Diese Angaben anpassen #######################

'zu untersuchendes Verzeichnis
strPath = "F:\Temp\"

'Ordner in den die Dateien verschoben werden sollen!
strMove = "F:\Temp\Leer"

'Name des Tabellenblattes!
strSheet = "Tabelle1"

'Bereich dessen Summe gebildet werden soll!
strRange = "C:C"

'###################################################


If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
If Right(strMove, 1) <> "\" Then strMove = strMove & "\"

MakeSureDirectoryPathExists strMove

Set objFS = Application.FileSearch
Set objFSO = CreateObject("Scripting.FileSystemObject")

With objFS
  .NewSearch
  .LookIn = strPath
  .FileType = msoFileTypeExcelWorkbooks
  .SearchSubFolders = False
  .Execute
  
  For lngIndex = 1 To .FoundFiles.Count
    
    varResult = GetValue(strPath, Replace(.FoundFiles(lngIndex), strPath, ""), strSheet, strRange)
    
    If IsNumeric(varResult) And varResult = 0 Then
      objFSO.MoveFile .FoundFiles(lngIndex), strMove
    End If
    
  Next
  
End With

Set objFS = Nothing
Set objFSO = Nothing

End Sub


Private Function GetValue(path As String, file As String, _
  sheet As String, ref As String) As Variant

Dim arg As String

If Right(path, 1) <> "\" Then path = path & "\"

If Dir(path & file) = "" Then
  GetValue = "File Not Found"
  Exit Function
End If

arg = "SUM('" & path & "[" & file & "]" & sheet & "'!" & _
  Range(ref).Address(, , xlR1C1) & ")"

GetValue = ExecuteExcel4Macro(arg)

End Function


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Datein eines Ordners öffnen und prüfen?
04.01.2006 08:05:29
Gustav
Hallo Sepp,
die Spalte C liegt in dem Tabellenblatt "Gesamtübersicht".
Die Dateien haben nie den gleichen Namen. Sie bestehen aber immer aus einem Tabellenblatt mit den Namen "Gesamtübersicht"
Dateien liegen in "C:\Temp\Innenauftrag" und sollen nach "C:\Temp\Innenauftrag\leer".
Wenn das klappt wärs echt super...
Besten Dank vorab Gustav
Anzeige
AW: Datein eines Ordners öffnen und prüfen?
04.01.2006 10:04:54
Josef
Hallo Gustav!
Hast du meinen Code Probiert?
Die Pfade und den Blattnamen musst du anpassen!
Ich habe die Stellen genau gekennzeichnet!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Datein eines Ordners öffnen und prüfen?
04.01.2006 11:54:28
Gustav
Mensch Sepp,
das läuft astrein. Am Ende gibt er zwar eine Fehlermeldung aus,
aber das Makro leistet ganze Arbeit.
Da hast Du mir wirklich weitergeholfen.
Vielen Dank und ein tolles Jahr 2006!
Gustav
AW: Datein eines Ordners öffnen und prüfen?
04.01.2006 12:27:38
Josef
Hallo Gustav!
Die Fehlermeldung kommt z.B. wenn du Verknüpfungen zu "*.xls" Dateien in dem Ordner stehen hast!
Das lässt sich auch abfangen!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long

Sub GetSumAndMove()
Dim strPath As String, strMove As String, strSheet As String, strRange As String
Dim objFS As FileSearch, objFSO As Object
Dim lngIndex As Long, varResult As Variant

'#### Diese Angaben anpassen #######################

'zu untersuchendes Verzeichnis
strPath = "F:\Temp\"

'Ordner in den die Dateien verschoben werden sollen!
strMove = "F:\Temp\Leer"

'Name des Tabellenblattes!
strSheet = "Tabelle1"

'Bereich dessen Summe gebildet werden soll!
strRange = "C:C"

'###################################################


If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
If Right(strMove, 1) <> "\" Then strMove = strMove & "\"

MakeSureDirectoryPathExists strMove

Set objFS = Application.FileSearch
Set objFSO = CreateObject("Scripting.FileSystemObject")

With objFS
  .NewSearch
  .LookIn = strPath
  .FileType = msoFileTypeExcelWorkbooks
  .SearchSubFolders = False
  .Execute
  
  For lngIndex = 1 To .FoundFiles.Count
    
    If objFSO.GetExtensionName(.FoundFiles(lngIndex)) = "xls" Then
      
      varResult = GetValue(strPath, Replace(.FoundFiles(lngIndex), strPath, ""), strSheet, strRange)
      
      If IsNumeric(varResult) And varResult = 0 Then
        objFSO.MoveFile .FoundFiles(lngIndex), strMove
      End If
      
    End If
    
  Next
  
End With

Set objFS = Nothing
Set objFSO = Nothing

End Sub



Private Function GetValue(path As String, file As String, _
  sheet As String, ref As String) As Variant

Dim arg As String

If Right(path, 1) <> "\" Then path = path & "\"

If Dir(path & file) = "" Then
  GetValue = "File Not Found"
  Exit Function
End If

arg = "SUM('" & path & "[" & file & "]" & sheet & "'!" & _
  Range(ref).Address(, , xlR1C1) & ")"

GetValue = ExecuteExcel4Macro(arg)

End Function


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
;

Forumthreads zu verwandten Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
VBA-Makro zum Gruppieren einzelner Tage
Christoph

Hallo Leute!
Bin neu hier im Forum und da ich relativ wenig Ahnung von Excel und VBA habe, mich aber beruflich in Zukunft häufiger damit beschäftigen werde, bin ich noch auf ein wenig Hilfe angewiesen.
Ich bastle gerade an einem Makro, das innerhalb einer Monats-Tabelle die einzelnen Ta...
26.09.2008 10:22:00
Thread-ID: 1012530
10 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Anzeige
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Formeln in Zellen tretz VBA beibehalten
Enrico

Ich benutze ein selbsterstelltes userform um Datensätze zu finden, zu modifizieren und zurückzuschreiben.
Läuft alles bestens. Nur der richtige Dreh um die Formeln einer Zellen beizubehalten fehlt mir noch.
Ein Beispiel. Angezeigt werden in B6 5 Stunden und in B7 7 Stunden. B8 wird das...
31.12.2008 15:11:47
Thread-ID: 1036151
2 Beiträge
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
xls Datei in Unterordnern suchen und öffnen
Markus

Hallo zusammen,
ich habe ein kleines Makro geschrieben, was mir eine Excel-Datei in einem Ordner suchen soll und diese dann öffnet. Das funktioniert auch soweit. Jetzt möchte ich aber die Unterordner, die sich in diesem Ordner befinden, einbinden. Leider bekomm ich es nicht hin.
Hier m...
28.04.2009 15:55:22
Thread-ID: 1071656
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige