Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

arbeiten mit Col.add datei

arbeiten mit Col.add datei
Kienzl
Hallo Ihr klugen Köpfe
ist es möglich bereits in der Funktion bestimmte datei.name aus colection entfernt werden
Col.Add Datei
im Sinne von
If Datei.Name = "AAMuster.xlsb" then
Datei.name.delete
endif
Datei.Name "AAMuster.xlsb" nicht in die Col aufnehmen oder löschen
Jetzt schon Vielen Dank für die Antwort

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: arbeiten mit Col.add datei
09.09.2010 13:34:40
JogyB
Hallo Wolfgang,
ich bin jetzt nicht sicher, ob ich Dich richtig verstanden habe, aber hilft Dir das weiter: 
Sub Test()
Dim myCol As New Collection
Dim myWbk As Workbook
Dim i As Long
For Each myWbk In Workbooks
myCol.Add myWbk
Next
For i = myCol.Count To 1 Step -1
If myCol.Item(i).Name = "Mappe1" Then
myCol.Remove i
End If
Next
End Sub

Gruß, Jogy
AW: arbeiten mit Col.add datei
09.09.2010 13:51:52
Kienzl
Hallo Jogy
Nicht ganz
Sende dir den teil meiner Function
Function ReturnArray() As Variant()
Dim i
Dim C
Dim fso
Dim D()
Dim Datei
Dim Ordner
Dim Col As New Collection
Dim LW
Dim lLW
ext = ".xlsb"
LW = Laufwerk
lLW = Len(LW)
Set fso = Nothing
Set fso = CreateObject("Scripting.Filesystemobject")
Set Ordner = fso.GetFolder(LW) 'Pfad anpassen
C = GetFileCount(ActiveWorkbook.Path)
For Each Datei In Ordner.Files 'Schleife über alle Dateien im Ordner laufen lassen
Select Case LCase(fso.GetExtensionName(Datei)) 'Extension auslesen
Case "xlsb"
Col.Add Datei 'Alle Excel-Dateien in eine Collection.Die anderen ignorieren.
' Or fname = "Auswertungen" Or fname = "AAMuster" Or fname = "Auswertung2010" Or fname = "~$Auswertung2010"
If Datei.Name = "AAMuster" & ext Or Datei.Name = "Auswertung2010" & ext Or Datei.Name = "Index" & ext Or Datei.Name = "~$Auswertung2010" Then
Stop
Datei.Delete Soll AAMuster löschen oder gar nicht auf nehmen
End If
Stop
End Select
Next
.........................
...........................
Wolfgang
Anzeige
AW: arbeiten mit Col.add datei
09.09.2010 14:50:37
JogyB
Hallo Wolfgang,
ich frage mich gerade, wie man bei "Excel gut" an einer so einfachen IF-Abfrage scheitern kannn... naja, jeder hat mal ein Brett vor dem Kopf ;) 
Sub test2()
'nur zu Testzwecken
Const LW = "c:\temp\test"
Dim fso As Object
Dim Ordner As Object
Dim Datei As Object
Dim fName As String
Dim Col As New Collection
Set fso = CreateObject("Scripting.Filesystemobject")
Set Ordner = fso.GetFolder(LW) 'Pfad anpassen
For Each Datei In Ordner.Files 'Schleife über alle Dateien im Ordner laufen lassen
If LCase(fso.GetExtensionName(Datei)) = "xlsb" Then
fName = fso.GetBaseName(Datei)
If fName  "Auswertungen" And fName  "AAMuster" _
And fName  "Auswertung2010" And fName  "~$Auswertung2010" Then
Col.Add Datei 'Alle Excel-Dateien in eine Collection.Die anderen ignorieren.
End If
End If
Next
End Sub

Gruß, Jogy
Anzeige
AW: arbeiten mit Col.add datei
09.09.2010 15:29:18
Kienzl
Hallo Jogy
Danke, dass du mir geholfen hast.
FSO ist für mich neu, daher hab ich nicht gewußt wie vorher auswählen. der Wald war zu groß.
Wolfgang

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige