Hallo Liebe Forumsgemeinde
Ich stehe an mit meine VBA kentnissen.
und zwar möchte ich LBound to UBound als loop anwenden für alle dateien die in einem folder liegen in für welchen ich in zelle a2 den referenzpfad hinterlegt habe.
geht das irgendwie?
danke für eure hilfe
danke, diese variante habe ich schon öfters umgesetzt ich wollte aber einen meiner codes abändern und zwar folgendes:
____________________________
VariableData=Application.GetOpenfilename("file(*.xlsb),*.xlsb*,False,"Please select one/multiple file(s) for import",False,True)
For IngValue = Lbound(VariableData) To Ubound (VariableData)
____________________________
Ich möchte nun anstatt ein auswahlfenster einfach auf einen ordener referenzieren wo die sheets gespeichert sind.
geht das?
P
Anzeige
AW: LBound to UBound für ein fixes Verzeichnis
04.02.2017 19:54:17
ransi
Hallo,
Geht das in diese Richtung?
OptionExplicit
PublicSub MACHS() Const verz = "C:\Users\xy\makros\Dokumentation\"'anpassen Dim WSHShell AsObject Dim arr AsVariant Dim objExec AsObject Set WSHShell = CreateObject("WScript.Shell") Set objExec = WSHShell.Exec("Where /R " & verz & " *.xls") 'Findet alle .xls in verz und Unterverzeichnissen. arr = Split(objExec.stdout.readall, vbCrLf) Set objExec = Nothing 'Ausgeben RedimPreserve arr(UBound(arr) - 1) Range("A1").Resize(UBound(arr)) = WorksheetFunction.Transpose(arr) EndSub