Programmstruktur

Private Function GetValue(path, file, sheet, ref) 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 = "'" & path & "[" & file & "]" & sheet & "'!" & _ Range(ref).Range("A1").Address(, , xlR1C1) GetValue = ExecuteExcel4Macro(arg) End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub teste() Dim myFile As String Dim weRt Const mypaTh = "C:\Temp\" ' Hier Dein Pfad myFile = Dir(mypaTh & "*.xls") If myFile = "" Then Exit Sub Do If IsEmpty(weRt) Then ReDim weRt(1 To 1) As String Else ReDim Preserve weRt(1 To UBound(weRt) + 1) End If weRt(UBound(weRt)) = getvalue(mypath, myfile,...) myFile = Dir Loop Until myFile = "" End Sub

Hi Georg,
ok, nehmen wir an, im Verzeichnis (c:\tmp) stehen 17 Excelmappen.
Dann willst du wohl 17 Werte aus diesen Mappen auslesen.
Was willst du mit diesen 17 Werten tun? Wo sollen sie stehen, in welchen Variablen?
Was, wenn eine 18. Datei dazu kommt? Soll dann eine 18. Variable gefüllt werden?
Oder brauchst du vielleicht überhaupt nur eine Variable für den jeweils ausgelesenen Wert?
(Vielleicht wird aus den Wereten ja nur eine Summe gebildet...)
Noch ein halb ernst gemeinter Scherz:
Wenn der Pfad eine lange Zeichenkette ist, musst du ihn für 17 Aufrufe nicht 17 mal hinschreiben.
Du könntest ihn z. B. in eine Variable schreiben und dann die Variable anstelle des Textes verwenden.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hi Georg,
es fällt (nicht nur mir) nicht leicht, dich zu unterstützen.
In deiner Ausgangsfrage spielte eine zentrale Rolle, wie du die Fkt GetValue aufrufen könntest.
Geht es noch um diese Frage?
"ich möchte in den 17 Mappen prüfen ob an einer bestimmten Position 100% steht"
Ja, das könnte man - evtl. in einer Schleife - mit GetValue tun.
"wenn ja, wird dann der Bereich (welcher Bereich?) ausgelesen und weiter ausgewertet (wie?)"
"In jeder Mappe starte ich an der gleichen Position und durchsuche dann den definierten Spaltenbereich"
Was ist der definierte Spaltenbereich?
Soll dieses Durchsuchen auch mit GetValue passieren?
Spricht etwas dagegen, die 17 Mappen nacheinander zu öffnen, auszuwerten und wieder zu schließen?
Stattdessen willst du mit ExecuteExcel4Macro arbeiten...
Nach wie vor wird überhaupt nicht klar, was du erreichen möchtest und wo dabei das Problem liegt
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread