Sub SaveOpenWorkbooks()
Hallo!
Der Code funktioniert so wie er unten steht.
Ich wollte aber fragen ob es eine effizientere/kuerzere Moeglichkeit gibt den untenstehenden Code zu schreiben (vielleicht ein For Loop?). Ich moechte 18 Workbooks in einem File namens "Forcing Functions 15" abspeichern. Ich habe unten der kuerze halber nur 2 von 18 "Cases" aufgelistet. Das Problem ist, dass ich fuer jedes einzelne Workbook (im Code unten: HCB.xls und alpha-HCH.xls), das ich speichern moechte, die SaveAs Methode neu schreiben muss damit der Code funktioniert. Ich habe versucht eine "StringName()" Variable zu definieren, um dort alle 18 Workbooks zu speichern. Das funktioniert auch normalerweise...aber wenn ich das in diesem Fall tue, dann speichert es nicht mehr HCB.xls fuer das Workbook, sondern speichert StringName.xls.
StringName() scheint in diesem Fall kein Platzhalter fuer HCB.xls und alpha-HCH.xls zu sein. Es uebernimmt einfach diese StringName Variable...Wiss ihr wie man dieses Problem loest? Danke im voraus fuer die Antwort...Liebe Gruesse, Jan
Select Case LRTP
Case 1
Windows(Output$).Activate
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Bojan Gasic\Desktop\Project Generic Model\High Pressure Scenarios\Scenario 1\Forcing Functions 15\HCB.xls" _
Case 2
Windows(Output$).Activate
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Bojan Gasic\Desktop\Project Generic Model\High Pressure Scenarios\Scenario 1\Forcing Functions 15\alpha-HCH.xls" _
usw. bis
Case 18
|